Проверочная работа на тему "Массивы в Паскаль"

Вы уже знаете о суперспособностях современного учителя?

Тратить минимум сил на подготовку и проведение уроков.

Быстро и объективно проверять знания учащихся.

Сделать изучение нового материала максимально понятным.

Избавить себя от подбора заданий и их проверки после уроков.

Наладить дисциплину на своих уроках.

Получить возможность работать творчески.

=> ПОЛУЧИТЬ СУПЕРСПОСОБНОСТИ УЧИТЕЛЯ <=

Просмотр содержимого документа
«Проверочная работа на тему "Массивы в Паскаль"»

Проверочная работа

Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке

1 вариант

1. В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] — данные за понедельник, Dat[2] — за вторник и т.д.). Определите число, которое будет напечатано в результате выполнения следующего алгоритма, записанного на пяти алгоритмических языках.

Паскаль

Алгоритмический язык

Var k, m, day: integer;

Dat: array[1..7] of integer;

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] of integer;

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] of integer;

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] of integer;

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] of integer;

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] — за вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на пяти языках программирования.

Паскаль

Алгоритмический язык

Var k, m, day: integer;

A: array[1..6] of integer;

Begin

A[1]:=3;A[2]:=1;

A[3]:=4;A[4]:=2;

A[5]:=4;A[6]:=2;

day := 1;

m := A[1];

for k := 2 to 6 do

if A[k] = m then