Проверочная работа "Массивы"
Проверочная работа по теме «Массивы»
1
2
3
4
5
6
Вариант 1
27
68
68
570
21
6
Вариант 2
7
41
19
10
14
5
Вариант 3
23
6
11
20
65
7
Вариант 4
27
38
30
17
45
4
Вариант 5
8
10
6
5
10
7
Проверочная работа по теме «Массивы» Вариант 1
Определите, что будет напечатано в результате выполнения следующих
алгоритмов
Задание 1.
Begin
Tur[1]:= 1; Tur[2]:= 11; Tur[3]:= 8; Tur[4]:= 12; Tur[5]:= 5;
Tur[6]:= 6; Tur[7]:= 15; Tur[8]:= 16; Tur[9]:= 16; Tur[10]:= 21;
Tur[11]:= 7;
m := 0;
For k := 1 to 11 Do
If Tur[k] < 10 Then
Begin
m := m + Tur[k];
End;
Writeln(m);
End.
Задание 2.
Begin
Tur[1]:= 1; Tur[2]:= 11; Tur[3]:= 8; Tur[4]:= 12; Tur[5]:= 5;
Tur[6]:= 6; Tur[7]:= 15; Tur[8]:= 16; Tur[9]:= 16; Tur[10]:= 21;
Tur[11]:= 7;
m := 0;
For k := 1 to 11 Do
If Tur[k] > 12 Then
Begin
m := m + Tur[k];
End;
Writeln(m);
End.
Задание 3.
Begin
Ani[1]:= 17; Ani[2]:= 17; Ani[3]:= 19; Ani[4]:= 21; Ani[5]:= 23;
Ani[6]:= 22; Ani[7]:= 24; Ani[8]:= 16; Ani[9]:= 19; Ani[10]:= 21;
Ani[11]:= 17; Ani[12]:= 17;
m := 0;
For k := 1 to 12 Do
If Ani[k] = 17 Then
Begin
m := m + Ani[k];
End;
Writeln(m);
End.
Задание 4.
Begin
Sea[1]:= 170; Sea[2]:= 170; Sea[3]:= 190; Sea[4]:= 210;
Sea[5]:= 230; Sea[6]:= 220; Sea[7]:= 240; Sea[8]:= 160;
Sea[9]:= 190; Sea[10]:= 210; Sea[11]:= 170; Sea[12]:= 170;
s := 100;
For k := 1 to 12 Do
If Sea[k] > 220 Then
Begin
s := s + Sea[k];
End;
Writeln(s);
End.
Задание 5.
Begin
Ves[1]:= 25; Ves[2]:= 21; Ves[3]:= 23; Ves[4]:= 28; Ves[5]:= 30;
Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28; Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27; Ves[13]:= 26; Ves[14]:= 24;
n := Ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = Ves[i];
End;
Writeln(n);
End.
Задание 6.
Begin
Dat[1] := 56; Dat[2] := 70; Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 22; Dat[7] := 30; Dat[8] := 12;
Dat[9] := 65; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k] > 25 then
begin
m := m+1
end;
writeln(m);
End.
Проверочная работа по теме «Массивы» Вариант 2
Определите, что будет напечатано в результате выполнения следующих
алгоритмов
Задание 1.
Begin
Ves[1]:= 25; Ves[2]:= 21; Ves[3]:= 23; Ves[4]:= 28; Ves[5]:= 30;
Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28; Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27; Ves[13]:= 26; Ves[14]:= 24;
n := 0;
For i := 1 to 14 Do
If Ves[i] > 26 Then
Begin
n : = n + 1;
End;
Writeln(n);
End.
Задание 2.
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.
Begin
Tok[1] := 10; Tok[2] := 14; Tok[3] := 15; Tok[4] := 4; Tok[5] := 12;
Tok[6] := 6; Tok[7] := 3; Tok[8] := 5; Tok[9] := 5; Tok[10] := 10;
m := 22;
For k := 1 to 10 Do
If Tok[k] > 10 Then
Begin
m := m - 1;
End;
Writeln(m);
End.
Задание 4.
Begin
Tok[1] := 10; Tok[2] := 14; Tok[3] := 15; Tok[4] := 4; Tok[5] := 12;
Tok[6] := 6; Tok[7] := 3; Tok[8] := 5; Tok[9] := 5; Tok[10] := 10;
m := 0;
For k := 1 to 10 Do
If Tok[k] > 6 Then
Begin
m := m + 2;
End;
Writeln(m);
End.
Задание 5.
Begin
App[1] := 100; App[2] := 128; App[3] := 80; App[4] := 99; App[5] :=
120; App[6] := 69; App[7] := 55; App[8] := 115; App[9] := 84; App[10]
:= 111; App[11] := 59; App[12] := 100;
m := 0;
For k := 1 to 12 Do
If App[k] > 100 Then
Begin
m := m + 1;
End;
m : = m + 10;
Writeln(m);
End.
Задание 6.
Begin
Dat[1] := 56; Dat[2] := 70; Dat[3] := 20; Dat[4] := 41;
Dat[5] := 14; Dat[6] := 22; Dat[7] := 30; Dat[8] := 12;
Dat[9] := 65; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k] < 35 then
begin
m := m+1
end;
writeln(m);
End.
Проверочная работа по теме «Массивы» Вариант 3
Определите, что будет напечатано в результате выполнения следующих
алгоритмов.
Задание 1.
Begin
App[1] := 100; App[2] := 128; App[3] := 80; App[4] := 99; App[5] :=
120; App[6] := 69; App[7] := 55; App[8] := 115; App[9] := 84;
App[10] := 111; App[11] := 59; App[12] := 100;
m := 0;
For k := 1 to 12 Do
If App[k] < 80 Then
Begin
m := m + 1;
End;
m : = m + 20;
Writeln(m);
End.
Задание 2.
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] > 3 then
begin
m := m + 1;
end;
writeln(m);
End.
Задание 3.
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.
Задание 4.
Begin
b := 15;
Tem[1] := 22; Tem[2] := 25; Tem[3] := 20; Tem[4] := 18; Tem[5] :=
16; Tem[6] := 14; Tem[7] := 20; Tem[8] := 23; Tem[9] := 17;
Tem[10] := 19; Tem[11] := 20; Tem[12] := 21;
For k := 1 to 12 Do
If Tem[k] < 20 Then
b := b + 1;
Writeln(b);
End.
Задание 5.
Begin
b := 0;
Tem[1] := 22; Tem[2] := 25; Tem[3] := 20; Tem[4] := 18; Tem[5] :=
16; Tem[6] := 14;
Tem[7] := 20; Tem[8] := 23; Tem[9] := 17; Tem[10] := 19; Tem[11]
:= 20; Tem[12] := 21;
For k := 1 to 12 Do
If Tem[k] < 19 Then
b := b + Tem[k];
Writeln(b);
End.
Задание 6.
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] < 25 then
begin
m := m+1
end;
writeln(m);
End.
Проверочная работа по теме «Массивы» Вариант 4
Определите, что будет напечатано в результате выполнения следующих
алгоритмов.
Задание 1.
Begin
Flow[1] := 25; Flow[2] := 33; Flow[3] := 45; Flow[4] := 56; Flow[5] :=
78; Flow[6] := 112; Flow[7] := 120; Flow[8] := 133; Flow[9] := 97;
Flow[10] := 77; Flow[11] := 59; Flow[12] := 34;
m := 23;
For k := 1 to 12 Do
If Flow[k] < 50 Then
Begin
m := m + 1;
End;
Writeln(m);
End.
Задание 2.
Begin
Flow[1] := 25; Flow[2] := 33; Flow[3] := 45; Flow[4] := 56; Flow[5] :=
78; Flow[6] := 112; Flow[7] := 120; Flow[8] := 133; Flow[9] := 97;
Flow[10] := 77; Flow[11] := 59; Flow[12] := 34;
m := 35;
For k := 1 to 12 Do
If Flow[k] > 100 Then
Begin
m := m + 1;
End;
Writeln(m);
End.
Задание 3.
Begin
Lose[1] := 1; Lose[2] := 5; Lose[3] := 3; Lose[4] := 6; Lose[5] := 7;
Lose[6] := 12; Lose[7] := 1; Lose[8] := 3; Lose[9] := 3; Lose[10] := 1;
m := 0;
For t := 1 to 10 Do
If Lose[t] > 3 Then
Begin
m := m + Lose[t];
End;
Writeln(m);
End.
Задание 4.
Begin
Lose[1] := 1; Lose[2] := 5; Lose[3] := 3; Lose[4] := 6; Lose[5] := 7;
Lose[6] := 12; Lose[7] := 1; Lose[8] := 3; Lose[9] := 3; Lose[10] := 1;
m := 0;
For t := 1 to 10 Do
If Lose[t] < 6 Then
Begin
m := m + Lose[t];
End;
Writeln(m);
End.
Задание 5.
begin
A[1]:=6; 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] >= 9 then
score:= score+A[k];
end;
write(score);
end.
Задание 6.
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] := 9;
m := 10; n: = 0;
for k := 1 to 10 do
if Dat[k] < m then
begin
m := Dat[k];
n := k
end;
writeln(n);
End.
Проверочная работа по теме «Массивы» Вариант 5
Определите, что будет напечатано в результате выполнения следующих
алгоритмов.
Задание 1.
Begin
Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 5; Dat[5] := 6;
Dat[6] := 7; Dat[7] := 9; Dat[8] := 10; Dat[9] := 6; Dat[10] := 9;
m := 0; n := 0;
for k := 1 to 10 do
if Dat[k] >= m then
begin
m := Dat[k]; n := k
end;
writeln(n)
End.
Задание 2.
Begin
Tok[1] := 10; Tok[2] := 14; Tok[3] := 15; Tok[4] := 4; Tok[5] := 12;
Tok[6] := 6; Tok[7] := 3; Tok[8] := 5; Tok[9] := 5; Tok[10] := 10;
m := 0;
For k := 1 to 10 Do
If Tok[k] > 6 Then
Begin
m := m + 2;
End;
Writeln(m);
End.
Задание 3.
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] < 8 then
begin
m := m + 1
end;
writeln(m)
End.
Задание 4.
begin
Dat[1] := 14; Dat[2] := 10; Dat[3] := 0; Dat[4] := 15; Dat[5] := 0;
Dat[6] := 15;
Dat[7] := 10;
day := 0;
for k := 1 to 7 do
if Dat[k] = 0 then
day := k;
write(day);
end.
Задание 5.
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 then
begin
m := Dat[k]
end;
writeln(m);
End.
Задание 6.
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 := 1 to 11 do
if Dat[k] > 22 then
begin
m := m+1;
end;
writeln(m);
End.
Информатика - еще материалы к урокам:
- Тест "Кодирование графической информации" 7 класс
- Промежуточный тест "Графическая информация" 8 класс
- Тест "Восприятие информации" 6 класс
- Тест "Обработка информации средствами текстового и графического редакторов" 5 класс
- Тест "Компьютерные презентации" 7 класс
- Практическая работа - итоговый контроль "Такая разная информация"
