Тест «Начала программирования на языке Pascal»

9 класс

Тест  «Начала программирования»

Вариант 1

 

№ 1  С какого слова обычно начинается программный блок?

 

1)  program

2)  var

3)  begin

4)  write

 

 № 2 Укажите операторы ввода?

 

1)  writeln ()  

2) write ()

3)  readln ()

4)  read ()

 

№ 3 Операция mod позволяет найти...

 

1)  модуль числа

2)  остаток от целочисленного деления

3)  найти результат целочисленного деления одного числа на другое

4)  частное от деления одного числа на другое

 

№ 4 Укажите оператор ветвления:

 

1) For

2) If

3) While

4) Repeat

 

 № 5 Что будет выведено на экран после выполнения серии команд

a:=4;

b:=8;

a:=a / b - 5;

write(abs(a));

 

1) 4.5

2)  4.75

3)  5.25

4) -4.5

 

№ 6 Переменная а является целой. В какой строке при использовании команды присвоить значение допущена ошибка?

 

1)  a:=SQRT(a);

2) a:=sqr(5);

3)  a:=a / 5-1;

4)  a:=abs(2*a);

 

№ 7 Каким служебным словом описывается строка символов?

 

1)  INTEGER;

2)  REAL;

3)  STRING

4)  CHAR;

 

№ 8 Что будет выведено на экран после выполнения серии команд

a:=4;

b:=2;

a:=b-a div 3;

write(a);

 

1) 1 2

2) 5

3) 1.7

4) 1

 

 № 9  Запишите значение переменной sum после выполнения фрагмента программы:

sum := 0;

for k := 5 to 9 do

sum := sum + i;

  

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

 

Алгоритмический язык	Паскаль
алг нач целтаб Dat[1:10] цел k, m 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 нц для k от 1 до 10 если Dat[k]>m то m := Dat[k] все кц вывод m кон	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.

 

 

9 класс

Тест  «Начала программирования»

Вариант 2

 

№ 1 Какая из переменных может не является целой?

 

1) a:=2;

2)  b:=4 div 7;

3)  c:=-25;

4)  d:=d / 6;

 

№ 2 Операция div позволяет найти...

 

1)  дробную часть числа

2)  остаток от целочисленного деления

3)  найти результат целочисленного деления одного числа на другое

4)  частное от деления одного числа на другое

 

№ 3 Какое значение получит переменная a после выполнения серии команд

a:=5;

b:=2;

a:=b * a - sqr(a) ;

 

1) -15

2) 15

3) 40

4) 10

 

№ 4 Что будет выведено на экран после выполнения серии команд

a:=5;

b:=2;

a:=b-a mod 4;

write(`a=`,a);

 

1) 2

2)  a=2

3)  a=1

4)  a=0

 

№ 5 Укажите оператор цикла с известным число повторений:

 

1) IF

2) FOR

3) WHILE

4) REPEAT

5) BEGIN

 

 

 

 

№ 6 Каким служебным словом описываются дробные переменные:

 

1) INTEGER;

2)  REAL;

3)  CHAR;

4)  STRING

 

№ 7 Раздел описаний VAR используется для описания:

 

1) Констант;

2) Меток;

3) Функций;

4) Переменных;

 

№ 8 Укажите операторы вывода?

 

1)  writeln ()  

2) write ()

3)  readln ()

4)  read ()

 

№ 9  За­пи­ши­те зна­че­ние пе­ре­мен­ной s, после выполнения фрагмента программы:

  s := 0;

for k := 3 to 7 do

s := s + 6;

 

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

 

Алгоритмический язык	Паскаль
алг нач цел­таб Dat[1:10] цел k, m Dat[1] := 4 Dat[2] := 5 Dat[3] := 4 Dat[4] := 3 Dat[5] := 2 Dat[6] := 3 Dat[7] := 4 Dat[8] := 5 Dat[9] := 5 Dat[10] := 3 m := 0 нц для k от 1 до 10 если Dat[k] < 4 то m := m + Dat[k] все кц вывод m кон	Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 4; Dat[2] := 5; Dat[3] := 4; Dat[4] := 3; Dat[5] := 2; Dat[6] := 3; Dat[7] := 4; Dat[8] := 5; Dat[9] := 5; Dat[10] := 3; m := 0; for k := 1 to 10 do if Dat[k] < 4 then begin m := m + Dat[k]; end; writeln(m); End.