Побережнюк Сергей Владимирович

Тест «Массивы на Паскале» (Информатика и ИКТ)

Участник педагогического конкурса ‒ Всероссийский конкурс на лучшую методическую разработку «Тестовые задания по информатике и ИКТ»

Материал опубликован 3 March 2017 в группе

УРОК.РФ: группа для участников конкурсов

47285

222584

©кабинет 21, 2006-2016

Массивы на Паскале

1. Массив в программировании это…

А) большое количество цифровых данных.

Б) переменная, которая в упорядоченном виде хранит множество значений одного типа одновременно.

В) устройство хранения данных, состоящее из нескольких накопителей информации.

Г) данные с индексом.

2. Массив обозначается командным словом:

А) Arrau

Б) Aray

В) Array

Г) Arra

3. В какой строке НЕ правильное описание массива?

А) var ch: array[1..10] of integer;

Б) var stih: array[1,5..7] of real;

В) var STL23: array[2..108] of real;

4. Какое количество данных может находиться в данном массиве var ch: array[4..16] of integer;?

А) 13 целых чисел;

Б) 14 целых чисел;

В) 13 букв;

Г) 12 дробных чисел.

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

Program mas5;

Var k, m: integer;

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

Begin

Dat[1]:= 20; Dat[2]:= 25;

Dat[3]:= 19; Dat[4]:= 25;

Dat[5]:= 26; Dat[6]:= 22;

Dat[7]:= 24; Dat[8]:= 28;

Dat[9]:= 26; Dat[10]:= 21;

Dat[11]:= 27;

m := 0;

for k := 3 to 11 do

if Dat[k] >= 22 then

begin

m := m+1;

end;

writeln(m);

End.

Program mas6;

Var k, m: integer;

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

Begin

Dat[1]:= 2; Dat[2]:= 5;

Dat[3]:= 8; Dat[4]:= 5;

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

Dat[7]:= 0; Dat[8]:= 6;

Dat[9]:= 4; Dat[10]:=19;

m := 0;

for k := 5 to 9 do

if Dat[k] > m then

begin

m := Dat[k]

end;

writeln(m);

End.

Program mas7;

var k, m, day: integer;

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

begin

Dat[1]:= 7; Dat[2]:= 2;

Dat[3]:= 3; Dat[4]:= 3;

Dat[5]:= 4; Dat[6]:= 4;

Dat[7]:= 5; Dat[8]:= 5;

Dat[9]:= 7; Dat[10]:= 6;

day:= 1; m:= Dat[1];

for k:= 2 to 10 do begin

if Dat[k] >= m then begin

m := Dat [k];

day:= k

end

end;

write(day);

end.

Program mas8;

var k, m, day: integer;

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

begin

Dat[1]:= 7; Dat[2]:= 1;

Dat[3]:= 3; Dat[4]:= 3;

Dat[5]:= 2; Dat[6]:= 2;

Dat[7]:= 5; Dat[8]:= 5;

Dat[9]:= 7; Dat[10]:= 1;

day:= 1; m:= Dat[1];

for k:= 2 to 10 do begin

if Dat[k] < m then begin

m := Dat [k];

day:= k

end

end;

write(day);

end.

Program mas9;

var k, m: integer;

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

begin

Dat[1]:=45; Dat[2]:=55;

Dat[3]:=40; Dat[4]:=15;

Dat[5]:=20; Dat[6]:=80;

Dat[7]:=35; Dat[8]:=70;

Dat[9]:=10; Dat[10]:= 45;

m:=Dat[1];

for k:= 4 to 10 do begin

if Dat[k] <= Dat[1] then

begin

m:= m + Dat [k];

end

end;

write(m);

end.

Program mas10;

var k, m: integer;

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

begin

Dat[1]:=45; Dat[2]:=55;

Dat[3]:=40; Dat[4]:=15;

Dat[5]:=20; Dat[6]:=80;

Dat[7]:=35; Dat[8]:=70;

Dat[9]:=10; Dat[10]:=45;

m:= Dat[1];

for k:= 4 to 10 do begin

if Dat[k] > Dat[1]then

begin

m:= m + Dat[k]

end

end;

write(m);

end.

Ответы:

1) Б

2) В

3) Б

4) А

5) 7

6) 6

7) 9

8) 2

9) 170

10) 195