Одномерный массив

1.

Задача. Дан одномерный массив В(10):
10, 31, 28, 31, -24, 73, 31, -90, 1, 120.
Составьте программу, которая найдет количество
элементов, значения которых равны 31.
Программа:
Dim K, i As Integer
Dim B (1 To 10) As Integer
B(1)=10 : B(2)=31 : B(3)=28 : B(4)=31 : B(5)=-24 : B(6)=73
B(7)=31 : B(8)=-90 : B(9)=1 : B(10)=12
K=0
For i =1 To 10
If B(i)=31 Then K=K+1
Next
Print “количество элементов, равных 31 равно” K

2. Устная работа

1) Что такое массив?
Массив – это набор переменных одного типа,
объединенных одним именем.
2) Как обозначаются элементы массива?
Элементы массива обозначаются именем
и индексом: А(1), А(2).
3) Что делает данный оператор: Dim A(1 To m) As Integer ?
Объявляет указанный массив.
4) Что выдает функция RND?
RND выдает случайные числа из интервала от 0 до 1
5) Что делает функция Int?
Функция INT выделяет целую часть числа: INT (9.5) = 9

3.

6)
Какие способы заполнения массива вы знаете?
Заполнение с помощью оператора присваивания:
Dat(1)=7: Dat(2)=9 : Dat(3)=10: Dat(4)=8
Заполнение с клавиатуры:
Числовые значения элементам массива вводятся с
клавиатуры с помощью оператора InputBox.
For i=1 To 10
A(i)=InputBox(“Введите число”)
Next
Заполнение с помощью функций RND:
For i =1 To 3
A(i)=Rnd
Next

4.

7). Объясните, какие числа будут присвоены элементам
массива А(15) в результате выполнения фрагмента
программы:
For i =1 To 15
A(i)= Int(Rnd*1000)
Next
8). Объясните, какие числа будут присвоены элементам
массива B(10) в результате выполнения фрагмента
программы:
For i =1 To 10
B(i)= (Int(Rnd*10))/10
Next

5.

Задание ГИА 1. С помощью функций Rnd и Int массив
В(20) заполнен целыми числами из интервала от 1 до 1000:
Int(Rnd*1000).
Перед вами блок-схема и программа.
Какое значение M напечатает программа при выполнении?
Программа:
Dim i, M As Integer
Dim B (1 To 20) As Integer
For i =1 To 20
B(i)= Int(Rnd*1000)
Next
M=B(1)
For i =2 To 20
If B(i) > M Then M = B(i)
Next
Print M
Ввод элементов
массива
M=B(1)
B(i)>M
?
нет
да
M=B(i)

6.

Задание ГИА 2. В таблице Dat хранятся данные ежедневных
измерений температуры воздуха (Dat(1) – температура в
понедельник, Dat(2) – во вторник и т.д.).
Что будет напечатано в результате работы программы?
Программа:
DIM Dat(1 To 7) As integer
DIM k, day As integer
Dat(1) = 9: Dat(2) = 11: Dat(3) = 10: Dat(4) = 13
Dat(5) = 8: Dat(6) = 5: Dat(7) = 11
day = 0
FOR k = 1 TO 7
IF Dat(k) <= 10 THEN day = day+1
NEXT
PRINT day

7.

Задание ГИА 3. В таблице Ball хранятся отметки по
контрольной работе (Ball[1] – отметка 1 ученика, Ball[2] –
отметка 2 ученика и т.д.).
Определите, что будет напечатано в результате
работы
следующей программы:
Dim Ball(1 To 10) As integer
Dim k, c As integer
Ball(1)=4: Ball(2)=5: Ball(3)=3: Ball(4)=4: Ball(5)=2
Ball(6)=5 :Ball(7)=4: Ball(8)=3: Ball(9)=4: Ball(10)=5
c=0
FOR k = 1 TO 10
IF Ball(k) >3 And Ball(k)<5 THEN c=c+1
NEXT
PRINT c
END

8.

Задание ГИА 4. В таблице A хранятся данные о
количестве призеров олимпиады по программированию.
Определите, что будет напечатано в результате работы
программы:
Dim A(1 To 9) As integer
Dim k, SC As integer
A(1)=6: A(2)=11: A(3)=7: A(4)=12 : A(5)=13
A(6)=5 : A(7)=9: A(8)=3: A(9)=4
SC=0
FOR k = 1 TO 9
IF A(k) > 10 THEN SC = SC+A(k)
NEXT
PRINT SC
END

9.

Задание ГИА 5. В таблице A хранятся данные о
количестве призеров олимпиады по программированию.
Определите,
что будет напечатано в результате работы программы:
DIM A(1 To 9) As integer
DIM k, scor As integer
A(1)=9: A(2)=11: A(3)=7: A(4)=12 : A(5)=13
A(6)=5 : A(7)=9: A(8)=3: A(9)=4
scor=0
FOR k = 1 TO 9
IF A(k) < 7 THEN scor=scor+A(k)
NEXT k
PRINT scor
END

10.

Задание на самоподготовку
1). Повторить конспект «Одномерный массив».
2). Выполнить письменное задание.
Задача. С помощью функций Rnd и Int заполнить массив
В(20) целыми числами из интервала от 1 до 10:
Int(Rnd*10).
Составить программу, которая найдет минимальный
элемент (Min) массива и его индекс.