Презентация "Массивы" по информатике – проект, доклад

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. Определить количество положительных элементов в массиве и найти их сумму и произведение.

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

Решение