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

  • doc
  • 28.02.2020
Публикация на сайте для учителей

Публикация педагогических разработок

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

Иконка файла материала Тест.doc

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.