Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Массивы
Содержание
- 1. Массивы
- 2. это множество однотипных элементов, объединённых общим именем и занимающих в компьютере определённую область памяти.Массив
- 3. Количество элементов в массиве всегда конечно.Элементы массива
- 4. Если за каждым элементом массива закреплен только
- 5. A(1)=аA(2)=бA(3)=вA(4)=гA(5)=дA(6)=е
- 6. Если за каждым элементом массива закреплены два
- 7. Двумерные массивы
- 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 элементов массива с
- 11. АлгоритмВводВывод
- 12. Техническое задание
- 13. ПрограммированиеDim a(1 To 10) As String, i
- 14. ПрограммированиеDim a(1 To 10) As String, i
- 15. Для генерации последовательности случайных чисел используем функцию
- 16. Для получения целочисленной последовательности случайных чисел из интервала 0≤X
- 17. Dim A(1 To 10) As Integer, i
- 18. Dim a(1 To 5) As Integer, i
- 19. Задачи для самостоятельного выполненияЗаполните массив фамилиями учащихся
- 20. Определить является ли представленная последовательность массивом:1, 2,
- 21. Определите правильно ли описан массив:Dim M(1 to
- 22. 1) Dim a(1 To 10) As single,
- 23. 3) Dim a(1 To 5) As string,
- 24. Задача 4. Создать проект, который в строковом массиве, содержащем английский алфавит, ищет заданную букву.Поиск в массивах
- 25. Слайд 25
- 26. Заполнение массива буквами английского алфавитаDim a(1 To
- 27. Поиск заданной буквыPrivate Sub Command2_Click() x = InputBox("введите
- 28. Задача 5. Вывести минимальный элемент массива, состоящего
- 29. Слайд 29
- 30. Dim a(1 To 10) As Integer, i
- 31. Private Sub Command2_Click() Min = a(1) n = 1 For
- 32. Задача 6. Определить количество отрицательных элементов массива. И.Д: a(i), i=1…20В.Д: k Связь: k=0 если a(i)
- 33. Алгоритмконец
- 34. Dim a1(1 To 20) As String, a(1
- 35. Dim a1(1 To 20) As String, a(1
- 36. Задача 7. Определить количество положительных элементов в массиве и найти их сумму и произведение.
- 37. Dim a1(1 To 20) As String, a(1
- 38. Скачать презентанцию
это множество однотипных элементов, объединённых общим именем и занимающих в компьютере определённую область памяти.Массив
Слайды и текст этой презентации
Слайд 1С понятием "массив" приходится сталкиваться при решении научно-технических и экономических
задач обработки совокупностей большого количества значений.
Слайд 2это множество однотипных элементов, объединённых общим именем и занимающих в
компьютере определённую область памяти.
Массив
Слайд 3Количество элементов в массиве всегда конечно.
Элементы массива имеют один и
тот же тип.
Элементы упорядочены по индексам, определяющим положение каждого элемента
в массиве.
Слайд 4Если за каждым элементом массива закреплен только один его порядковый
номер (индекс), то такой массив называется линейным, или одномерным.
Одномерные массивы
Слайд 6Если за каждым элементом массива закреплены два его порядковых номера
(индекса), то такой массив называется двумерным.
Его можно представить в виде
таблицы.Двумерные массивы
Слайд 10Задача 1. Ввод 10 элементов массива с клавиатуры и вывод
их на экран.
Ввод элементов массива осуществляется пользователем с клавиатуры с
помощью функции InputBox.Задачи на числовые массивы
Слайд 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 10Print 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
iEnd Sub
Слайд 15Для генерации последовательности случайных чисел используем функцию Rnd.
При запуске программы
функция Rnd дает равномерно распределенную псевдослучайную (каждый раз повторяющуюся) последовательность
чисел из интервала [0;1).Для того чтобы генерировать различающиеся между собой последовательности, можно использовать оператор Randomize.
Заполнение массива с помощью датчика случайных чисел
Слайд 16Для получения целочисленной последовательности случайных чисел из интервала 0≤X
использовать формулу: Int(Rnd*100).
Для получения последовательности случайных чисел из интервала A≤X
нужно использовать формулу: (B-A)*Rnd+A.Заполнение массива с помощью датчика случайных чисел
Слайд 17Dim 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 элементов массива с помощью датчика случайных чисел
и вывод их на экран.
Слайд 18Dim 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 элементов.
Слайд 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 singlDim M(1 to 15)
Задания для повторения
Слайд 221) 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
Дан участок программы. Определить ошибки в коде
Слайд 233) 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
iPrint "Буква и ее номер:", x, "-", n
End Sub
Программирование
Слайд 28Задача 5. Вывести минимальный элемент массива, состоящего из 10 целых
чисел.
Значение минимального элемента будем хранить в переменной Min, а его
индекс в переменной n. Поиск в числовом массиве
Слайд 30Dim a(1 To 10) As Integer, i As Integer, Min
As Integer, n As Integer
‘Заполнение массива случайными числами
Private Sub Command1_Click()
For
i = 1 To 10a(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
IfNext i
Print "Минимальный элемент"; Min; "его индекс"; n
End Sub
Программирование
(Поиск минимального элемента)
Слайд 32Задача 6. Определить количество отрицательных элементов массива.
И.Д: a(i), i=1…20
В.Д: k
Связь: k=0
если
a(i)
Слайд 34Dim 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
Программирование
Слайд 35Dim 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)
Слайд 36Задача 7. Определить количество положительных элементов в массиве и найти
их сумму и произведение.
Слайд 37Dim a1(1 To 20) As String, a(1 To 20) As
Single, k As Integer, i As Integer, p As Single,
s As SinglePrivate 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
Решение
Теги
