Программирование на BASIC / Visual Basic / Лабораторные работы1 / Лабораторные по информатике по VB(преподаватель- Хамзина Е.А.) / лабораторная по информатике5

Федеральное агентство по образованию.

Государственное общеобразовательное учреждение высшего профессионального

образования.

Уфимский Государственный Авиационный Технический Университет.

Кафедра информатики.

Отчет по лабораторной работе №5

По теме: «Работа с массивами»

Выполнил:

Студент группы МКС-120

Ноготков П.А.

Проверила старший

преподаватель:

Хамзина Е.А.

Уфа-2007

Целью работы является изучение возможностей разработки приложений и получение практических навыков решения типовых задач с использованием одномерных и двумерных массивов.

ОДНОМЕРНЫЕ МАССИВЫ

Задания:

Задание первого уровня сложности:

1.      Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-1000,1000]. Найти сумму отрицательных элементов, значения которых кратно10.

2.      Вывести индексы тех элементов, значения которых кратны 5 и 10.

3.      Определить, есть ли пара соседних элементов с произведением, равным заданному числу.

Код программы:

Dim am(1000) As Single

Private Sub Command1_Click()

Picture1.Cls

Picture2.Cls

List1.Clear

List2.Clear

Randomize

s = 0

n = Val(Text1)

For i = 1 To n

am(i) = CInt((1000 + 1000) * Rnd - 1000)

If (am(i) < 0) And (Abs(am(i)) Mod 10 = 0) Then

s = s + am(i)

End If

List1.AddItem am(i)

If (Abs(am(i)) Mod 10 = 0) And (Abs(am(i)) Mod 5 = 0) Then

List2.AddItem i

End If

Next i

Picture1.Print s

For i = 1 To n

If am(i) * am(i + 1) = Val(Text3) Then Picture2.Print "Есть такая пара чисел ", Else Picture2.Print "Нет такой пары чисел ";

Next i

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

Таблица №1

Объект	Свойство	Значение
Form1 Command1 Command2 Frame1 Frame2 Frame3 Label1 Label2 Label3 Label4 Label5	Caption BackColour Caption Caption BackColour Caption Caption Caption BackColour Caption Caption Caption Caption Caption BackColour	Задание№1 &H00C0FFC0& Вычислить Выход Ввод данных Вывод результата Наглядное изображение массива Размер массива Произведение должно быть равно (число X) сумма отрицательных элементов, значения которых кратно10 индексы элементов, кратных 5 и 10 есть ли пара соседних элементов с произведением, равным числу X

Задание второго уровня сложности:

Из элементов массива C сформировать массив A той же размерности по правилу: если номер i элемента четный, то A_i=C_i², если нечетный, то A_i=2C_i.

Код программы:

Dim am(20) As Double, ac(20) As Double

Private Sub Command1_Click()

List1.Clear

n = Val(Text2)

av = Split(Text1, " ")

For i = 1 To n

am(i) = av(i - 1)

Next i

For i = 1 To n

If (i Mod 2) = 0 Then ac(i) = am(i) * am(i) Else ac(i) = 2 * am(i)

List1.AddItem ac(i)

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

Объект	Свойство	Значение
Form1 Label1 Frame1 Frame2 Frame3 Command1 Command2	Caption BackColour Caption BackColour Caption Caption Caption BackColour Caption Caption	Задание№2 Укажите число элементов массива С из которых нужно сформировать массив А Ввод данных Вывод результата Введите элементы массива С через пробел Вычислить Выход

ДВУМЕРНЫЕ МАССИВЫ

Задание первого уровня сложности:

Задание№1.Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных.

Код программы:

Dim a(1 To 10, 1 To 10) As Integer

Private Sub Command1_Click()

Randomize

n = Val(Text1)

m = Val(Text2)

For i = 1 To n

For j = 1 To m

a(i, j) = Rnd * 10 - 5

Picture1.Print a(i, j);

Next j

Picture1.Print

Next i

For i = 1 To n

o = 0: p = 0

For j = 1 To m

If a(i, j) < 0 Then o = o + 1

If a(i, j) > 0 Then p = p + 1

Next

If p > o Then Picture2.Print "Есть такая строка": Exit For

Next

End Sub

Private Sub Command2_Click()

End

End Sub

Объект	Свойство	Значение
Form1 Label1 Frame1 Frame2 Frame3 Command1 Command2	Caption BackColour Caption BackColour Caption Caption Caption BackColour Caption Caption	Задание№1 есть ли в данном массиве строка, содержащая больше положительных элементов, чем отрицательных. Ввод данных Вывод результата Наглядное изображение массива Проверить Выход

Задание №2. Заполнить массив n*n по правилу:

Вывод:

В процессе выполнения лабораторной работы я изучил правила работы с одномерными и двумерными массивами - описание, ввод-вывод элементов массива, операции с элементами массива и попрактиковался в выполнении заданий с массивами, приведенных в методических указаниях

Вопросы к лабораторной работе:

1. Что такое массив?

2. Что называется размером массива?

3. Могут ли элементы одного и того же массива иметь разный тип?

4. Как выполняется обращение к элементам массива?

5. Что понимается под диапазоном значений индекса массива?

6. Как задается размерность массива при его описании?

7. Какое значение принимает нижняя граница диапазона значений индекса по умолчанию? 

8. Чем ограничена верхняя граница диапазона значений индекса? 

9. Как можно организовать ввод элементов одномерного массива?

10. Как можно организовать ввод элементов двумерного массива?

11. Как можно организовать вывод элементов одномерного массива?

12. Как можно организовать вывод элементов двумерного массива?

13. Для чего при работе с массивами используется функция Split?

14. Как организовать вывод элементов двумерного массива в таблицу?