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


Здесь Вы можете скачать готовую презентацию на тему Массивы. Предмет презентации: Информатика. Красочные слайды и илюстрации помогут вам заинтересовать своих одноклассников или аудиторию. Для просмотра содержимого презентации воспользуйтесь плеером, или если вы хотите скачать презентацию - нажмите на соответствующий текст под плеером. Презентация содержит 37 слайдов.

Слайды презентации

Слайд 1
С п о н я т и е м " м а с с и в " п р и х о д и т с я с т а л к и в а т ь с я п р и р е ш е н и и н а у ч н о - т е х н и ч е с к и х и э к о н о м и ч е с к и х з а д а ч о б р а б о т к и с о в о к у п н о с т е й б о л ь ш о г о к о л и ч е с т в а з н а ч е н и й .
Слайд 2
 это множество однотипных элементов, объединённых общим именем и занимающих в компьютере определённую область памяти.
Слайд 3
 Количество элементов в массиве всегда конечно.  Элементы массива имеют один и тот же тип.  Элементы упорядочены по индексам, определяющим положение каждого элемента в массиве.
Слайд 4
 Если за каждым элементом массива закреплен только один его порядковый номер (индекс), то такой массив называется линейным, или одномерным.
Слайд 5
A(1)= а A( 2 )= б A( 3 )= в A( 4 )= г A( 5 )= д A( 6 )=е
Слайд 6
 Если за каждым элементом массива закреплены два его порядковых номера (индекса), то такой массив называется двумерным. Его можно представить в виде таблицы.
Слайд 8
A(i, j) i – номер строки j – номер столбца А(1,1)=1 А(2,3)=0 А(1,3)= 3
Слайд 9
Dim A(1 to 6) as string
Слайд 10
Задача 1. Ввод 10 элементов массива с клавиатуры и вывод их на экран. Ввод элементов массива осуществляется пользователем с клавиатуры с помощью функции InputBox.
Слайд 11
Ввод Вывод
Слайд 13
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
Слайд 14
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
Слайд 15
 Для генерации последовательности случайных чисел используем функцию Rnd.  При запуске программы функция Rnd дает равномерно распределенную псевдослучайную (каждый раз повторяющуюся) последовательность чисел из интервала [ 0;1).  Для того чтобы генерировать различающиеся между собой последовательности, можно использовать оператор Randomize.
Слайд 16
 Для получения целочисленной последовательности случайных чисел из интервала 0≤X<100 нужно использовать формулу: Int(Rnd*100).  Для получения последовательности случайных чисел из интервала A≤X<B нужно использовать формулу: (B-A)*Rnd+A.
Слайд 17
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
Слайд 18
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
Слайд 19
Задачи для самостоятельного выполнения 1. Заполните массив фамилиями учащихся вашей группы. 2. Найдите произведение элементов массива, состоящего из 15 действительных чисел. 3. Организуйте вывод первого и последнего из 15 элементов массива. 4. Организуйте вывод элементов массива, состоящего из 10 элементов, с чётными и нечётными номерами. 5. Найдите максимальный элемент массива.
Слайд 20
 Определить является ли представленная последовательность массивом: 1. 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, … 2. A, B, C, D 3. 1, F, G, H, 5, 12 4. АА, ББ, РЕ, ТТ, ПР 5. 15, 26, 25, 45, 36, 69
Слайд 21
 Определите правильно ли описан массив: 1. Dim M(1 to 15) as single 2. Dim Mass(N) as single 3. Dim M(1 to 30) as string 4. Dim M(N to 15) as singl 5. Dim M(1 to 15)
Слайд 22
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
Слайд 23
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
Слайд 24
Задача 4. Создать проект, который в строковом массиве, содержащем английский алфавит, ищет заданную букву.
Слайд 26
 Заполнение массива буквами английского алфавита 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
Слайд 27
 Поиск заданной буквы 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
Слайд 28
Задача 5. Вывести минимальный элемент массива, состоящего из 10 целых чисел. Значение минимального элемента будем хранить в переменной Min , а его индекс в переменной n.
Слайд 30
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
Слайд 31
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
Слайд 32
И.Д: a(i), i=1…20 В.Д: k Связь: k=0 если a(i)<0, то k=k+1
Слайд 33
конец
Слайд 34
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
Слайд 35
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
Слайд 37
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

Другие презентации по информатике



  • Яндекс.Метрика
  • Рейтинг@Mail.ru