🗊Скачать презентацию Массивы

С понятием "массив" приходится сталкиваться при решении научно-технических и экономических задач обработки совокупностей большого количества значений.

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

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

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

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

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

Dim A(1 to 6) as string Dim A(1 to 6) as string

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

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

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

Dim A(1 To 10) As Integer, i As Integer 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

Dim a(1 To 5) As Integer, i As Integer, s As Single 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

Задачи для самостоятельного выполнения Заполните массив фамилиями учащихся вашей группы. Найдите произведение элементов массива, состоящего из 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 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 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. Создать проект, который в строковом массиве, содержащем английский алфавит, ищет заданную букву. Задача 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 целых чисел. Задача 5. Вывести минимальный элемент массива, состоящего из 10 целых чисел. Значение минимального элемента будем хранить в переменной Min, а его индекс в переменной n.

Dim a(1 To 10) As Integer, i As Integer, Min As Integer, n As Integer 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

Dim a1(1 To 20) As String, a(1 To 20) As Single 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 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

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 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