Контрольная работа «Язык программирования Pascal» с ответы, информатика 9 класс


Контрольная работа «Язык программирования Pascal» Вариант 1
Какое слово используют для описания переменных величин в программе?
Const
Var
Real
uses
3788410394335Какое логическое выражение определяет попадание точки A(x,y) внутрь заштрихованной области на координатной плоскости?
(x*x + y*y< = 4) and (y>=2x)
(x*x + y*y> = 4) and (y>=2x)
(x*x + y*y< = 4) and (y<=2x) and (x <= 0)
(x*x + y*y< = 4) and (y>=2x) and (x >= 0)
В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте массив сначала заполняется, а потом изменяется. Чему будут равны элементы этого массива?
For i:=0 to 10 do A[i]:=i+1;
For i:=0 to 10 do A[i]:=A[10-i];
10 9 8 7 6 5 4 3 2 1 0
11 10 9 8 7 6 5 4 3 2 1
11 10 9 8 7 6 7 8 9 10 11
10 9 8 7 6 5 6 7 8 9 10
Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
a:=1686;
b:=(a div 10) mod 5;
a:=a-200*b;
Да
Нет
A:=2
B:=0
A:=A+1
B:=B+A
A=7?
Определите значение переменной b после выполнения фрагмента алгоритма:
Определите, что будет напечатано в результате работы следующего фрагмента программы:
Var s, k: integer;
Begin
s := 100;
for k := 1 to 9 do
s := s - 5;
write (s);
End.
 В таблице 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.

Контрольная работа «Язык программирования Pascal» Вариант 2
Какой из записанных ниже операторов ветвления является правильным?
if a<b then a:= a+1 else b:= b-1;
if (x<5) and (y>3 ) then s:= s+1; else s:= s-1;
if a<>b then b = a;
if 9 then k:= k+1.
3484245340360Какое логическое выражение определяет попадание точки A(x,y) внутрь заштрихованной области на координатной плоскости?
(x*x + y*y< = 4) and (y>=2x)
(x*x + y*y> = 4) and (y>=2x)
(x*x + y*y> = 4) and (y>=2x) and (x >= 0)
(x*x + y*y< = 4) and (y>=2x) and (x >= 0)
В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте массив сначала заполняется, а потом изменяется. Чему будут равны элементы этого массива?
For i:=0 to 10 do A[i]:=i+1;
For i:=10 downto0 do A[i]:=A[10-i];
10 9 8 7 6 5 4 3 2 1 0
11 10 9 8 7 6 5 4 3 2 1
11 10 9 8 7 6 7 8 9 10 11
1 2 3 4 5 6 5 4 3 2 1
Определите значение переменной с после выполнения фрагмента программы:
A:=100;
B:=30;
A:=A-B*3;
If a>b then C:=A-B else C:=B-A;
Определите значение переменной Bпосле выполнения фрагмента алгоритма:
Да
Нет
A:=7
B:=0
A:=5
A:=A-1
В:=B+A
B:=B+A
A=1?

Нет

Определите, что будет напечатано в результате работы следующего фрагмента программы:
 Var s,k: integer;
Begin
s := 0;
for k := 3 to 8 do
s := s + 6;
writeln(s);
End.
В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Var k, m: integer;
Dat: array[1...10] of integer;
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.

Контрольная работа «Язык программирования Pascal» Вариант 3
Сколько раз будет выполняться цикл For i:= 7 to 12 do…;
5
12
7
6
4020185516890Какое логическое выражение определяет попадание точки A(x,y) внутрь заштрихованной области на координатной плоскости?
(x*x + y*y< = 4) and (y>=2x)
(sqrt (x*x+y*y)<=r2) and (sqrt(x*x+y*y)>=r1)
(sqrt (x*x+y*y)<=r2) or (sqrt(x*x+y*y)>=r1)
(sqrt (x*x+y*y)<=r2) and (x>=r1) and (x<=r2)
В программе описан одномерный целочисленный массив с индексами от 1 до 5. В приведенном ниже фрагменте массив сначала заполняется, а потом изменяется. Чему будут равны элементы этого массива?
For i:=1 to 5 do A[i]:=i+1;
For i:=1 to 5 do A[i]:=A[i]+1;
1 2 3 4 5 1 2 3 4 5
2 3 4 5 4 3 2 5
4 5 6 7
3 5 7 9 12
Вычислите значения арифметических выражений при х = 3
(10 div x + 2)*(10 mod x + 3)/(12 mod 5)
Определите значение переменной B после выполнения фрагмента алгоритма:
Да
Нет
A:=5
B:=0
A:=5
A:=A-1
В:=B+A
B:=B+A
A=1?

Определите, что будет напечатано в результате работы следующего фрагмента программы:
 Var s,k: integer;
Begin
s := 0;
for k := 4 to 8 do
s := s + 7;
writeln(s);
End.
В таблице Dat хранятся данные о количестве сделанных заданий учениками (Dat[1] заданий сделал первый ученик, Dat[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Var k, m: integer;
Dat: array[1...10] of integer;
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.

Контрольная работа «Язык программирования Pascal» Вариант 4
Какое значение примет логическое выражение(х>=5) and (x<15), если х=3?
четное;
нечетное;
true;
false
4699635465455Какое логическое выражение определяет попадание точки A(x,y) внутрь заштрихованной области на координатной плоскости?
(x*x+y*y<=r*r)and(((y<0)and(x<0))or((y>0)and(x>0)))
(x*x+y*y<=r*r)and(((y<0)and(x<0))or((y<0)and(x>0)))
(x*x+y*y<=r*r)and(((y>0)and(x>0))or((y<0)and(x>0)))
(x*x+y*y<=r*r)and(((y>0)and(x<0))or((y<0)and(x>0)))

В программе описан одномерный целочисленный массив с индексами от 1 до 10. В приведенном ниже фрагменте массив сначала заполняется, а потом изменяется. Чему будут равны элементы этого массива?
For i:=1 to 10 do A[i]:=i+1;
For i:=1 to 10 do A[i]:=A[10-2];
11 10 9 8 7 6 5 4 3 2 1 0
12 10 9 8 7 6 5 4 3 2 1
12 11 10 8 9 8 9 10 11 12
9 9 9 9 9 9 9 9 9 9Определите значение целочисленных переменных a и b после выполнения фрагмента программы:
a:=381;
b:=a mod 10;
a:=a+300*b;
Да
Нет
A:=3
B:=0
A:=A+1
B:=B+A
A=5?
Определите значение переменной b после выполнения фрагмента алгоритма:
Определите, что будет напечатано в результате работы следующего фрагмента программы:
 Var s,k: integer;
Begin
s := 0;
for k := 3 to 7 do
s := s + 6;
writeln(s);
End.
В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учёбы семестров (Dat[1] — оценка за первый семестр, Dat[2] — за второй и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.
Var k, m, term: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 7; Dat[2] := 7;
Dat[3] := 6; Dat[4] := 8;
Dat[5] := 4; Dat[6] := 5;
Dat[7] := 4; Dat[8] := 7;
term:=1 m := Dat[1];
for k := 2 to 8 do
if Dat[k] < m then
begin
m:= Dat[k];
term := k;
end;
writeln(term);
End.

Ответы
1 2 3 4 5 6 7
1 b c c 1086 25 55 3
2 a d d 20 21 36 6
3 d b c 10 10 35 4
4 d d d 681 9 30 5

Приложенные файлы

  • docx file9
    Шеромова Т.С.
    Размер файла: 117 kB Загрузок: 2

Добавить комментарий