Выпуск 5 - Российский государственный профессионально ...

for i := 5 downto 1 do
write(mas[i],' ');
end.
Задание 2
program mas_2;
var mas : array[1..5] of integer;
i : integer;
begin
writeln('Поочередно введите
элементы массива');
for i := 1 to 5 do
begin
write('Введите элемент
массива mas[',i,']=');
read(mas[i]);
end;
writeln;
for i := 1 to 3 do
write(mas[i],' ');
end.
Задание 3
program mas_3;
var mas : array[1..5]
of integer = (1, 1, 1, 1, 1);
i : integer;
begin
for i := 1 to 5 do
writeln('Получился элемент
массива mas[',i,']=', mas[i]);
end.
УЭ3 (раздаточный материал для учащихся)
Задание 1. Откройте файл mas1_5.pas. Измените
программу так, чтобы каждому элементу
массива присваивалось значение его индекса:
mas[1] = 1, mas[2] = 2, mas[3] = 3, mas[4] = 4,
mas[5] = 5.
Задание 2. Откройте файл mas1_5.pas. Измените
программу так, чтобы заполнение массива из
пяти элементов производилось с помощью стандартной
функции random() действительными случайными
числами из интервала [20; 60].
Задание 3. Откройте файл mas1_5.pas. Измените
программу так, чтобы заполнение массива
из пяти элементов производилось с помощью
стандартной функции random() целыми
числами из интервала [1; N], где N вводится с
клавиатуры.
Задание 4. Откройте файл mas1_5.pas. Измените
программу так, чтобы заполнение массива из
пяти элементов производилось с помощью стандартной
функции random() целыми числами из
интервала [–3; 15].
Задание 5. Откройте файл mas1_5.pas. Введите
массив, используя вычисления по формуле (самостоятельно
найдите требуемую закономерность):
mas[1] = 0, mas[2] = 2, mas[3] = 6, mas[4] = 12,
mas[5] = 20.
Критерии оценивания: задания 1–3 — 1 балл за
каждое задание, задания 4 и 5 — 2 балла за каждое
задание (правильным решением считается работоспособная
программа, формирующая требуемые
значения массива).
Файл mas1_5.pas:
program mas_l_5;
var mas : array[1..5] of;
i : integer;
begin
for i := 1 to 5 do
begin
end;
writeln;
for i := 1 to 5 do
writeln('Получился элемент
массива mas[',i,']=', mas[i]);
end.
Задание 4
program mas_4;
var mas : array[1..5] of integer;
i : integer;
begin
for i := 1 to 5 do
mas[i] := i*i;
for i := 1 to 5 do
writeln('Получился элемент
массива mas[',i,']=', mas[i]);
end.
Решения (для учителя; учащимся не выдаются):
Задание 1
program mas_l;
var mas : array[1..5] of integer;
i : integer;
begin
for i := 1 to 5 do
begin
mas[i] := i;
end;
writeln;
for i := 1 to 5 do
writeln('Получился элемент
массива mas[',i,']=', mas[i]);
end.
Задание 2
program mas_2;
var mas : array[1..5] of real;
i : integer;
begin
for i := 1 to 5 do
begin
mas[i] := random()*(60-20) + 20;
end;
writeln;
33
май 2012 / ИНФОРМАТИКА