Программирование на BASIC / Visual Basic / Лабораторные работы1 / Лабораторные по информатике по VB(преподаватель- Хамзина Е.А.) / лабораторная по информатике5
.docxФедеральное агентство по образованию.
Государственное общеобразовательное учреждение высшего профессионального
образования.
Уфимский Государственный Авиационный Технический Университет.
Кафедра информатики.
Отчет по лабораторной работе №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 элемента четный, то Ai=Ci2, если нечетный, то Ai=2Ci.
Код программы:
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 по правилу:
Вывод:
В процессе выполнения лабораторной работы я изучил правила работы с одномерными и двумерными массивами - описание, ввод-вывод элементов массива, операции с элементами массива и попрактиковался в выполнении заданий с массивами, приведенных в методических указаниях
Вопросы к лабораторной работе:
-
Что такое массив?
-
Что называется размером массива?
-
Могут ли элементы одного и того же массива иметь разный тип?
-
Как выполняется обращение к элементам массива?
-
Что понимается под диапазоном значений индекса массива?
-
Как задается размерность массива при его описании?
-
Какое значение принимает нижняя граница диапазона значений индекса по умолчанию?
-
Чем ограничена верхняя граница диапазона значений индекса?
-
Как можно организовать ввод элементов одномерного массива?
-
Как можно организовать ввод элементов двумерного массива?
-
Как можно организовать вывод элементов одномерного массива?
-
Как можно организовать вывод элементов двумерного массива?
-
Для чего при работе с массивами используется функция Split?
-
Как организовать вывод элементов двумерного массива в таблицу?