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

МЕТОДИКА
32
май 2012 / ИНФОРМАТИКА
Правильная запись программы:
program mas_input2;
var mas : array[ 1 .. 5 ] of integer;
i: integer;
begin
write('Поочередно введите
элементы массива');
for i := 1 to 5 do
begin
{ввод значения текущего элемента}
read(mas[ i ]);
write(' '); {вывод разделяющего промежутка}
end;
writeln;
{когда все элементы введены, переход
на новую строку}
end.
Каждая найденная ошибка — 1 балл (максимальное
количество баллов — 5).
2. Впишите недостающие фрагменты:
program mas_init;
{массив из 101 элемента}
var mas: array[0..100] of real;
i: integer;
x: real;
begin
for i := 0 to 100 do
begin
x := i/5 - 10;
{изменение x от -10 до 10
с шагом 0,2}
mas[i] := sin(x);
{вычисление значений функции синуса}
end;
end.
Каждый правильно вписанный фрагмент —
1 балл (максимальное количество баллов — 3).
3. Найдите ошибки в фрагменте программы:
var mas : array[1..4]
of integer := {1.5, -2.6, 4.8};
1) должны быть круглые скобки, а не фигурные;
2) задано только три значения, хотя массив имеет
четыре элемента;
3) несоответствие типов массива (целый) и задаваемых
значений (вещественные).
Каждая найденная ошибка — 1 балл (максимальное
количество баллов — 3).
УЭ2 (раздаточный материал для учащихся)
Задание 1. Откройте файл mas1_2.pas. Измените
программу так, чтобы при вводе с клавиатуры
значений массива:
mas[1] = 1, mas[2] = 2, mas[3] = 3,
mas[4] = 4, mas[5] = 5
на экран выводились значения массива:
mas[1] = 5, mas[2] = 4, mas[3] = 3,
mas[4] = 2, mas[5] = 1.
Задание 2. Откройте файл mas1_2.pas. Измените
программу так, чтобы при вводе с клавиатуры
значений массива:
mas[1] = 1, mas[2] = 2, mas[3] = 3,
mas[4] = 4, mas[5] = 5
на экран выводились значения массива:
mas[1] = 1, mas[2] = 2, mas[3] = 3.
Задание 3. Откройте файл mas3_4.pas. Сформируйте
единичные элементы массива при его объявлении
(ввод с клавиатуры не использовать!).
Задание 4. Откройте файл mas3_4.pas. Создайте
и заполните значениями массив, используя вычисления
по формуле. Требуемые значения массива:
mas[1] = 1, mas[2] = 4, mas[3] = 9, mas[4] = 16,
mas[5] = 25.
Критерии оценивания: 1 балл за каждое задание
(правильным решением считается работоспособная
программа, формирующая требуемые значения
массива).
Файл mas1_2.pas:
program mas_l_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 5 do
write(mas[i],' ');
end.
Файл mas3_4.pas:
program mas_3_4;
var mas : array[1..5] of integer;
i : integer;
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
writeln('Поочередно введите
элементы массива');
for i := 1 to 5 do
begin
write('Введите элемент
массива mas[',i,']=');
read(mas[i]);
end;
writeln;