Массивы - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Массивы. Доклад-сообщение содержит 37 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

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

Слайд 2

Описание слайда:

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

Слайд 3

Описание слайда:

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

Слайд 4

Описание слайда:

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

Слайд 5

Описание слайда:

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

Слайд 6

Описание слайда:

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

Слайд 7

Описание слайда:

Слайд 8

Описание слайда:

Слайд 9

Описание слайда:

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

Слайд 10

Описание слайда:

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

Слайд 11

Описание слайда:

Слайд 12

Описание слайда:

Слайд 13

Описание слайда:

Слайд 14

Описание слайда:

Слайд 15

Описание слайда:

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

Слайд 16

Описание слайда:

Для получения целочисленной последовательности случайных чисел из интервала 0≤X

Слайд 17

Описание слайда:

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

Слайд 18

Описание слайда:

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

Слайд 19

Описание слайда:

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

Слайд 20

Описание слайда:

Определить является ли представленная последовательность массивом: Определить является ли представленная последовательность массивом: 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

Слайд 21

Описание слайда:

Определите правильно ли описан массив: Определите правильно ли описан массив: 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)

Слайд 22

Описание слайда:

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

Слайд 23

Описание слайда:

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

Слайд 24

Описание слайда:

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

Слайд 25

Описание слайда:

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

Слайд 29

Описание слайда:

Слайд 30

Описание слайда:

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

Слайд 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

Описание слайда:

Слайд 33

Описание слайда:

Слайд 34

Описание слайда:

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

Слайд 35

Описание слайда:

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

Слайд 36

Описание слайда:

Слайд 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 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