Материал опубликовал

учитель в школе

Россия, Свердловская обл., Екатеринбург

Материал размещён в группе «УРОК.РФ: группа для участников конкурсов»

#8 класс #9 класс #Информатика и ИКТ #Учебно-дидактические материалы #Тест (специальный формат) #Учитель-предметник #Школьное образование #УМК И. Г. Семакина

Тест «Массивы на Паскале»

Конкурсная работа

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

©кабинет 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

Опубликовано 03.03.17 в 06:21 в группе «УРОК.РФ: группа для участников конкурсов»

Нажмите, чтобы скачать публикацию (.doc)

Размер файла: 21.38 Кбайт

Комментарии (2)

Лобанов Алексей Александрович, 07.03.17 в 13:36 -1Ответить Пожаловаться

Отсутствует описательнаячасть тестовой работы

Побережнюк Сергей Владимирович, 21.08.17 в 08:07 0Ответить Пожаловаться

ага, а еще цель, задачи, средства и целесообразность?

Чтобы написать комментарий необходимо авторизоваться.