Презентация на тему Массивы

это множество однотипных элементов, объединённых общим именем и занимающих в компьютере определённую область памяти.
Массив

Количество элементов в массиве всегда конечно.
Элементы массива имеют один и тот же тип.
Элементы упорядочены по индексам, определяющим положение каждого элемента в массиве.

Если за каждым элементом массива закреплен только один его порядковый номер (индекс), то такой массив называется линейным, или одномерным.
Одномерные массивы

A(1)=а
A(2)=б
A(3)=в
A(4)=г
A(5)=д
A(6)=е

Если за каждым элементом массива закреплены два его порядковых номера (индекса), то такой массив называется двумерным.
Его можно представить в виде таблицы.
Двумерные массивы

Двумерные массивы

Двумерные массивы
A(i, j)
i – номер строки
j – номер столбца
А(1,1)=1
А(2,3)=0
А(1,3)=3

Dim A(1 to 6) as string
Описание одномерного массива

Задача 1. Ввод 10 элементов массива с клавиатуры и вывод их на экран.
Ввод элементов массива осуществляется пользователем с клавиатуры с помощью функции InputBox.
Задачи на числовые массивы

Алгоритм
Ввод
Вывод

Техническое задание

Программирование
Dim a(1 To 10) As String, i As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("Введите фамилию")
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub

Программирование
Dim a(1 To 10) As String, i As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("Введите фамилию")
Print a(i)
Next i
End Sub

Для генерации последовательности случайных чисел используем функцию Rnd.
При запуске программы функция Rnd дает равномерно распределенную псевдослучайную (каждый раз повторяющуюся) последовательность чисел из интервала [0;1).
Для того чтобы генерировать различающиеся между собой последовательности, можно использовать оператор Randomize.
Заполнение массива с помощью датчика случайных чисел

Для получения целочисленной последовательности случайных чисел из интервала 0≤X<100 нужно использовать формулу: Int(Rnd*100).
Для получения последовательности случайных чисел из интервала A≤X
Заполнение массива с помощью датчика случайных чисел

Dim A(1 To 10) As Integer, i As Integer
Private Sub Command1_Click()
For i = 1 To 10
A(i) = Int(Rnd * 100)
Print A(i)
Next i
End Sub
Задача 2. Ввод 10 элементов массива с помощью датчика случайных чисел
и вывод их на экран.

Dim a(1 To 5) As Integer, i As Integer, s As Single
Private Sub Command1_Click()
For i = 1 To 5
a(i) = Int(Rnd * 100)
Print a(i)
s = s + a(i)
Next i
Print "Среднее арифметическое массива", s / 5
End Sub
Задача 3. Вычисление среднего арифметического массива,
состоящего из 5 элементов.

Задачи для самостоятельного выполнения
Заполните массив фамилиями учащихся вашей группы.
Найдите произведение элементов массива, состоящего из 15 действительных чисел.
Организуйте вывод первого и последнего из 15 элементов массива.
Организуйте вывод элементов массива, состоящего из 10 элементов,
с чётными и нечётными номерами.
Найдите максимальный элемент массива.

Определить является ли представленная последовательность массивом:
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, …
A, B, C, D
1, F, G, H, 5, 12
АА, ББ, РЕ, ТТ, ПР
15, 26, 25, 45, 36, 69
Задания для повторения

Определите правильно ли описан массив:
Dim M(1 to 15) as single
Dim Mass(N) as single
Dim M(1 to 30) as string
Dim M(N to 15) as singl
Dim M(1 to 15)
Задания для повторения

1) Dim a(1 To 10) As single, i As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("Введите фамилию")
Next i
2) Dim a(1 To 10) As string, i As Integer
Private Sub Command1_Click()
For k = 1 To 10
a(i) = InputBox("Введите фамилию")
Next i
Дан участок программы. Определить ошибки в коде

3) Dim a(1 To 5) As string, i As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("Введите фамилию")
Next i
4) Dim a(1 To 10) As string, i As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(k) = InputBox("Введите фамилию")
Next i
Дан участок программы. Определить ошибки в коде

Задача 4. Создать проект, который в строковом массиве, содержащем английский алфавит, ищет заданную букву.
Поиск в массивах

Заполнение массива буквами английского алфавита
Dim a(1 To 26) As String, i As Integer , x As String, n As Integer
Private Sub Command1_Click()
For i = 1 To 26
a(i) = InputBox("введите букву")
Print a(i)
Next i
End Sub
Программирование

Поиск заданной буквы
Private Sub Command2_Click()
x = InputBox("введите букву")
For i = 1 To 26
If x = a(i) Then n = i
Next i
Print "Буква и ее номер:", x, "-", n
End Sub
Программирование

Задача 5. Вывести минимальный элемент массива, состоящего из 10 целых чисел.
Значение минимального элемента будем хранить в переменной Min, а его индекс в переменной n.
Поиск в числовом массиве

Dim a(1 To 10) As Integer, i As Integer, Min As Integer, n As Integer
‘Заполнение массива случайными числами
Private Sub Command1_Click()
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i)
Next i
End Sub
Программирование

Private Sub Command2_Click()
Min = a(1)
n = 1
For i = 2 To 10
If a(i) < Min Then
Min = a(i)
n = i
End If
Next i
Print "Минимальный элемент"; Min; "его индекс"; n
End Sub
Программирование
(Поиск минимального элемента)

Задача 6. Определить количество отрицательных элементов массива.
И.Д: a(i), i=1…20
В.Д: k
Связь: k=0
если a(i)<0, то k=k+1

Алгоритм
конец

Dim a1(1 To 20) As String, a(1 To 20) As Single
Private Sub Command1_Click()
For i = 1 To 20
a1(i) = InputBox(“Введите элемент")
a(i) = Val(a1(i))
Print a(i)
Next i
k = 0
For i = 1 To 20
If a(i) < 0 Then k = k + 1
Next i
Print k
End Sub
Программирование

Dim a1(1 To 20) As String, a(1 To 20) As Single
Private Sub Command1_Click()
k = 0
For i = 1 To 20
a1(i) = InputBox(“Введите элемент")
a(i) = Val(a1(i))
Print a(i)
If a(i) < 0 Then k = k + 1
Next i
Print k
End Sub
Программирование (способ 2)

Задача 7. Определить количество положительных элементов в массиве и найти их сумму и произведение.