Просмотр содержимого документа
«Проверочная работа на тему "Массивы в Паскаль"»
Проверочная работа
Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке
1 вариант
1. В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] — данные за понедельник, Dat[2] — за вторник и т.д.). Определите число, которое будет напечатано в результате выполнения следующего алгоритма, записанного на пяти алгоритмических языках.
Паскаль
Алгоритмический язык
Var k, m, day: integer;
Dat: array[1..7] ofinteger;
Begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 8;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 6;
day := 1;
m := Dat[1];
for k := 2 to 7 do
if Dat[k] then
begin
day := k;
m := Dat[k];
end;
writeln(day);
End.
алг
нач
целтаб Dat[1:7]
цел k, m, day
Dat[1] := 7
Dat[2] := 9
Dat[3] := 10
Dat[4] := 8
Dat[5] := 6
Dat[6] := 7
Dat[7] := 6
day := 1
m := Dat[1]
нцдля k от 2 до 7
если Dat[k] то
day := k
m := Dat[k]
все
кц
вывод day
кон
2. В таблице Ball хранятся отметки по контрольной работе (Ball[1] — отметка 1 ученика, Ball[2] — отметка 2 ученика и т.д.). Определите, что будет напечатано в результате работы следующего алгоритма, записанного на пяти языках программирования.
Паскаль
Алгоритмический язык
Var k, c: integer;
Ball: array[1..10] ofinteger;
Begin
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 do
if Ball[k] 4 then
begin
c := c + 1;
end;
writeln(c);
End.
алг
нач
целтаб Ball[1:10]
цел k, c
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
нцдля k от 1 до 10
если Ball[k] 4 то
c := c + 1
все
кц
вывод c
кон
3. В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Паскаль
Алгоритмический язык
Var k, m: integer;
Dat: array[1..10] ofinteger;
Begin
Dat[1] := 2; Dat[2] := 5;
Dat[3] := 7; Dat[4] := 5;
Dat[5] := 4; Dat[6] := 2;
Dat[7] := 0; Dat[8] := 2;
Dat[9] := 4; Dat[10] := 5;
m := 0;
for k := 1 to 10 do
if Dat[k] 3 then
begin
m := m + 1;
end;
writeln(m);
End.
алг
нач
целтаб Dat[1:10]
цел k, m
Dat[1] := 2
Dat[2] := 5
Dat[3] := 7
Dat[4] := 5
Dat[5] := 4
Dat[6] := 2
Dat[7] := 0
Dat[8] := 2
Dat[9] := 4
Dat[10] := 5
m := 0
нцдля k от 1 до 10
если Dat[k] 3 то
m := m + 1
все
кц
вывод m
кон
Проверочная работа
Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке
2 вариант
1. В таблице Dat хранятся данные ежедневных измерений температуры воздуха (Dat[1] — температура в понедельник, Dat[2] — во вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.
Паскаль
Алгоритмический язык
Var k, day: integer;
Dat: array[1..7] ofinteger;
Begin
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 do
if Dat[k] then
begin
day := day + 1;
end;
writeln(day);
End.
алг
нач
целтаб Dat[1:7]
цел k, day
Dat[1] := 9
Dat[2] := 11
Dat[3] := 10
Dat[4] := 13
Dat[5] := 8
Dat[6] := 5
Dat[7] := 11
day := 0
нцдля k от 1 до 7
если Dat[k] то
day := day + 1
все
кц
вывод day
кон
2. В таблице A хранятся данные о количестве призеров олимпиады по программированию по 9-ти округам Москвы. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.
Паскаль
Алгоритмический язык
Var k, score: integer;
A: array[1..9] ofinteger;
Begin
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;
score := 0;
for k := 1 to 9 do
if A[k] then
begin
score := score + A[k];
end;
writeln(score);
End.
алг
нач
целтаб A[1:9]
цел k, score
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
score := 0
нцдля k от 1 до 9
если A[k] то
score := score + A[k]
все
кц
вывод score
кон
3. В таблице A хранятся данные о количестве учеников, опоздавших на занятия, за неделю (A[1] — данные за понедельник, A[2] — за вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.