Контрольная работа. Программирование и алгоритмизация. 9 класс

Контрольная работа №1. Программирование и алгоритмизация.

Вариант №1

2.3

4.

1

Что будет выведено в результате выполнения фрагмента программы?

5. Что будет выведено в результате выполнения фрагмента программы?

6.  Для записи вспомогательных алгоритмов в языке Паскаль используются:

а) массивы

б) составные операторы

в) процедуры и функции

г) операторы и операнды

7.Как называется подпрограмма, имеющая произвольное количество входных и выходных данных?

8. Чему будет равно значение переменной «a» после выполнения этого цикла?

i:=1;
a:=4;
while i a:=a+i;
i:=i+2;
end;

9. Определите, что будет напечатано в результате работы следующей программы.

2

Var s,і:integer;
Begin
s := 3;
For і := 2 to 5 do
s := s + 2* і;
Writeln (s) ;
End.

10. . Определите значение, которое будет выведено на экран после выполнения фрагмента программы:

s:=0;

i:=15;

repeat

s:=s+i;

i:=i-3;

until i

writeln (s-i);

11.В таблице А хранятся данные о количестве призеров олимпиады по программированию по 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 begin
if A[k]
score:=score+A[k];
end;
write(score);
end.

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

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 16; Dat[2] := 20;
Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 12;
Dat[9] := 15; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k]m then begin
m := Dat[k]
end;
writeln(m);
End.

3

13. Напишите программу, которая выводит на экран элементы массива, заполненного 20 случайными натуральными числами, не превышающими 1000, и определяет количество четных не трёхзначных чисел в массиве. Программа должна вывести все элементы массива и одно число: количество четных не трёхзначных чисел, или, если таких чисел нет, выводится сообщение «No».

4

Контрольная работа №1. Программирование и алгоритмизация.

Вариант №2

2.

3

1

4. Что будет выведено в результате выполнения фрагмента программы?

5. Что будет выведено в результате выполнения фрагмента программы?

6. Между формальными и фактическими параметрами следует соблюдать соответствие:

а) по типу параметров

б) по количеству параметров

в) по порядку следования параметров

г) по всему, перечисленному в п. а) - в)

7.Как называется алгоритм, целиком используемый в составе другого алгоритма?

8. Чему будет равно значение переменной «a» после выполнения этого цикла?

i:=2;
a:=10;
while i a:=a+i;
i:=i+1;
end;

9. Определите, что будет напечатано в результате работы следующей программы.

Var у,і: integer;

2

Begin

y := 0;

For і := 1 to 3 do

у := у + 4*і;

Writeln(у);

End.

10. Определите значение, которое будет выведено на экран после выполнения фрагмента программы:

s:=0;

i:=16;

repeat

s:=s+i;

i:=i-3;

until i

writeln (s+i);

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

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := 6; Dat[10] := 7;
m := 0;
for k := 1 to 10 do
if Dat[k] m := m + 1
end;
writeln(m)
End.

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

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 12; Dat[2] := 15;
Dat[3] := 17; Dat[4] := 15;
Dat[5] := 14; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
Dat[9] := 14; Dat[10] := 15;
m := 20;
for k := 1 to 10 do
if Dat[k] m := Dat[k]
end;
writeln(m);

3

13.Напишите программу, которая выводит на экран элементы массива, заполненного 20 случайными натуральными числами, не превышающими 100, и определяет количество чисел в массиве, кратных 3. Если таких чисел нет, выводится сообщение «No». Программа должна вывести все элементы массива и одно число: количество чисел, кратных 3, или, если таких чисел нет, выводится сообщение «No».

14.

4