Способы задания одномерных массивов

Для ввода и вывода числовых значений массива используются циклы.

Рассмотрим процедуры, которые бы формировали одномерный массив двумя способами

1) случайным образом,

2) вводом элементов с клавиатуры

Предположим, что мы будем работать с массивом целых чисел. Пусть нам достаточно иметь максимальное количество элементов равное 50. Процедура принимает параметр по ссылке массив Massiv заданного типа и целую переменную n, отвечающую за количество заполняемых ячеек массива. Также нам нужна будет локальная переменная i, которая будет выполнять функции параметра цикла и использоваться для указания номера, определяющего местоположение элемента в массиве.

1. Формирование одномерного массива случайным образом. Зададим значение каждого элемента результатом случайной функции Random(10). Заполнение массива зададим циклическим оператором for, в теле которого выполняется вычисление случайного числа функцией Random(10), после чего это значение присваивается очередному i-му элементу массива.

Procedure InsertMas1(Var massiv:mas; n:integer);

Var

i: integer;

Begin

Randomize;

for i:=1 to n do

massiv[i] := Random(10);

End;

2. Формирование одномерного массива вводом элементов с клавиатуры.

Procedure InsertMas2(Var massiv:mas; n:integer);

Var

i: integer;

Begin

for i:=1 to n do

begin

write('Введите ',i,'-ый элемент массива ');

readln(massiv[i]);

end;

End;

Вывод массива на экран осуществляется следующим образом:

Procedure PrintMas(massiv:mas; n:integer);

Var

i: integer;

Begin

for i:=1 to n

Write(Massiv[i]:5);

End;

Задание. Составьте программу-шаблон, в которой содержались бы два возможных варианта ввода элементов массива, оформленных в виде процедур, и одна процедура вывода полученного массива на экран. Результат работы покажите учителю для оценки.

Теперь проверьте себя, попробовав ответить на вопросы:

1. Что понимается под массивом?

2. Как обозначить в программе элементы массива?

3. Какие операции разрешены над элементами массива?

4. Как организовать в программе ввод и вывод элементов массива?

5. Приведите примеры, где можно использовать массивы.

6. Какие из приведенных описаний одномерных массивов являются правильными и почему?

a) Var a: Array[1..20] of Integer;

b) Type Myarrray: Array[1..20]

Var b: Myarrray;

c) Var sd:Array[1..n] of Integer;

d) Var dd:Array[1] of integer;

7. Сколько элементов в каждом из следующих массивов

a) Var mb: Array[2..20] of Integer;

b) Type myarray1[2..20] of Integer;

myarray2[-5..5] of Integer;

Var aa: myarray1;

bb: myarray2;

Дополнительное задание. (на усмотрение учителя)

1. Организуйте ввод в массив и выдайте на экран следующие последовательности:

а) 1, 3, 5, 7, ..., 131

б) список учеников вашего класса

2. Организуйте ввод чисел в массив с клавиатуры, а вывод элементов массива в столбик. Ввод и вывод организуйте в процедурах.

3. Дан произвольный массив N элементов. Организуйте вывод элементов массива на экран начиная с последнего элемента.