Самостоятельная работа "Циклы и массивы"
Самостоятельная работа «Циклы и массивы»
Вариант 1
№1. Дан массив
1
2
3
4
5
6
7
8
9
10
5
14
-9
25
0
2
-4
54
3
-7
Определите:
А) размерность массива;
Б) значение элемента А[3];
В) значение максимального элемента массива;
Г) индекс первого отрицательного элемента массива;
Д) индекс элемента, значение которого равно -4;
Е) значение минимального элемента массива;
Ж) количество элементов массива, значения которых равно 2.
№2
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за
первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей
программы.
Var k, m: integer;
Dat: array[1..10] of integer;
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 := 0;
for k := 1 to 10 do
if Dat[k] = 15 then
begin
m := m+1;
end;
writeln(m);
End.
№3
Какое значение примет переменная х в результате выполнения следующих фрагментов программ?
x:=10;
y:=1;
repeat
y:=y*x+x*x;
x:=x-2; until x<0;
№4
Какое слово используют для описания переменных величин в программе?
A) const; B) var; C) real; D) uses.
№5
Запишите результат выполнения программы, опишите для чего нужна каждая строчка, её функция?
program massiv;
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-20 + random(41);
write(a[i]:6);
end;
end.
Самостоятельная работа «Циклы и массивы»
Вариант 2
№1. Дан массив
1
2
3
4
5
6
7
8
9
10
25
0
-6
-8
25
25
7
19
0
-8
Определите:
А) размерность массива;
Б) значение элемента А[4];
В) значение максимального элемента массива;
Г) индекс первого отрицательного элемента массива;
Д) индекс элемента, значение которого равно -6;
Е) значение минимального элемента массива;
Ж) количество элементов массива, значения которых равно 2.
№2
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за
первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей
программы.
Var k, m: integer;
Dat: array[1...10] of integer;
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 := 0;
for k := 1 to 10 do
if Dat[k] > m then
begin
m := Dat[k]
end;
writeln(m);
End.
№3
Какое значение примет переменная х в результате выполнения следующих фрагментов программ?
x:=1;
while x<10 do
x:=x+3;
x:=x+1;
№4
Сколько раз будет выполняться цикл For i:= 7 to 12 do…;
A) 5 B) 12 C) 7 D) 6.
№5
Запишите результат выполнения программы, опишите для чего нужна каждая строчка, её функция?
program massiv;
var a:array[1..10] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-20 + random(41);
write(a[i]:6);
end;
s:=0;
for i:=1 to 10 do s:=s+a[i];
writeln('s= ',s)
end.
Самостоятельная работа «Циклы и массивы»
Вариант 3
№1. Дан массив
1
2
3
4
5
6
7
8
9
10
-4
14
0
96
45
2
-4
14
3
-7
Определите:
А) размерность массива;
Б) значение элемента А[3];
В) значение максимального элемента массива;
Г) индекс первого отрицательного элемента массива;
Д) индекс элемента, значение которого равно -4;
Е) значение минимального элемента массива;
Ж) количество элементов массива, значения которых равно 2.
№2
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за
первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей
программы.
Var k, m: integer;
Dat: array[1...10] of integer;
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.
№3
Какое значение примет переменная х в результате выполнения следующих фрагментов программ?
x:=1;
repeat
x:=x+1;
until x>10;
№4
Какие служебные слова не используют в команде ветвления?
A) if; B) for; C) else ; D) then.
№5
Запишите результат выполнения программы, опишите для чего нужна каждая строчка, её функция?
program massiv;
var a:array[1..10] of integer;
i:integer;
p:real;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-20 + random(41);
write(a[i]:6);
end;
p:=1;
for i:=1 to 10 do p:=p*a[i];writeln('p= ',p)end.
Самостоятельная работа «Циклы и массивы»
Вариант 4
№1. Дан массив
1
2
3
4
5
6
7
8
9
10
6
17
-1
5
40
9
-4
54
3
-7
Определите:
А) размерность массива;
Б) значение элемента А[3];
В) значение максимального элемента массива;
Г) индекс первого отрицательного элемента массива;
Д) индекс элемента, значение которого равно -4;
Е) значение минимального элемента массива;
Ж) количество элементов массива, значения которых равно 2.
№2
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за
первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей
программы.
Var k, m: integer;
Dat: array[1...10] of integer;
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 := 0;
for k := 1 to 10 do
if Dat[k] > 12 then
begin
m := m + 1
end;
writeln(m);
End.
№3
Какое значение примет переменная х в результате выполнения следующих фрагментов программ?
x:=1;
repeat
x:=x+3;
x:=x+1;
until x>10;
№4
Какое значение примет логическое выражение (х>=5) and (x<15), если х = 3?
A) четное; B) нечетное; C) true; D) false.
№5
Запишите результат выполнения программы, опишите для чего нужна каждая строчка, её функция?
program massiv;
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-20 + random(41);
write(a[i]:6);
end;
end.
Самостоятельная работа «Циклы и массивы»
Вариант 5
№1. Дан массив
1
2
3
4
5
6
7
8
9
10
5
-7
-9
0
30
2
-4
58
47
-7
Определите:
А) размерность массива;
Б) значение элемента А[3];
В) значение максимального элемента массива;
Г) индекс первого отрицательного элемента массива;
Д) индекс элемента, значение которого равно -4;
Е) значение минимального элемента массива;
Ж) количество элементов массива, значения которых равно 2.
№2
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за
первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей
программы.
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] := 3;
Dat[9] := 4; Dat[10] := 5;
m := 0;
for k := 1 to 10 do
if Dat[k] > m then
begin
m := Dat[k]
end;
writeln(m);
End.
№3
Какое значение примет переменная х в результате выполнения следующих фрагментов программ?
x:=0;
for y:=1 to 9 do
x:=x+1;
№4
Какие из записанных ниже операторов ветвления являются правильными?
A) if a<b then a:= a+1 else b:= b-1; B) if (x<5) and (y>3 ) then s:= s+1; else s:= s-1;
C) if a<>b then b:= a; D) if 9 then k:= k+1.
№5
Запишите результат выполнения программы, опишите для чего нужна каждая строчка, её функция?
program massiv;
var a:array[1..10] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-20 + random(41);
write(a[i]:6);
end;
s:=0;
for i:=1 to 10 do s:=s+a[i];
writeln('s= ',s);end.
Самостоятельная работа «Циклы и массивы»
Вариант 6
№1. Дан массив
1
2
3
4
5
6
7
8
9
10
5
10
10
25
2
3
58
54
37
-7
Определите:
А) размерность массива;
Б) значение элемента А[3];
В) значение максимального элемента массива;
Г) индекс первого отрицательного элемента массива;
Д) индекс элемента, значение которого равно -4;
Е) значение минимального элемента массива;
Ж) количество элементов массива, значения которых равно 2.
№2
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за
первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей
программы.
Var k, m: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 2; Dat[2] := 5;
Dat[3] := 7; Dat[4] := 5;
Dat[5] := 4; Dat[6] := 2;
Dat[7] := 0; Dat[8] := 3;
Dat[9] := 4; Dat[10] := 5;
m := 10;
for k := 1 to 10 do
if Dat [ k] < m then
begin
m := Dat[k]
end;
writeln(m);
End.
№3
Какое значение примет переменная х в результате выполнения следующих фрагментов программ?
x:=1;
while x<10 do
begin
x:=x+3;
x:=x+1;
end;
№4
В команде for .. to шаг всегда равен:
A) любому числу; B) 3; C) 1; D) 2.
№5
Запишите результат выполнения программы, опишите для чего нужна каждая строчка, её функция?
program massiv;
var a:array[1..10] of integer;
i:integer;
p:real;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-20 + random(41);
write(a[i]:6);
end;p:=1; for i:=1 to 10 do p:=p*a[i];writeln('p= ',p)end.
