Циклический алгоритм в Паскале

Название предмета: «Информатика»

Тема: «Циклические алгоритмы»

Класс: 9-11

4.Тест

1.Сколько раз выполняется цикл:

For i:=0 to 7 do

x:=x+15;

7;

8;

1;

Ни разу?

2. Сколько раз выполняется цикл:

For i:= 7 to 7 do

k:=k+1;

7;

2;

1;

Ни разу?

3. Сколько раз выполняется цикл:

For i:= 5 to 2 do

g:=g+2;

5;

2;

1;

Ни разу?

4.Какие значения t и k выведутся на экран в результате исполнения следующего фрагмента программы:

t:=0; k:=0;

For i:= 2 to 4 do

begin

t:=t+1;

k=k-1:

end;

writeln (t,k);

3, -3;

4, -4;

2, -2;

0, 0?

Что находит программа:

Program prim2;

var a,b,c: integer;

begin

readln(a); b:=a;

for c:=1 to 5 do

begin

readln(a);

if a>b then b:=a;

end;

writeln(b);

end.

Минимальное значение;

количество равных элементов ;

меняет переменные местами элементы;

максимальное значение?

6.Определить значение переменной m после выполнения фрагмента программы:

x:=1; m:=0;

while x<=3 do

begin

m:=m+x; x:=x+1;

end;

2;

3;

6;

4?

Какой фрагмент программы вычисляет значение функции y=x2+1 на промежутке [0;5] с шагом 0,5

x:=0;

If x<=5 then begin y:=x*x+1; x+x+0.5 end;

x:=0;

while x<=5 do begin y:=x*x+1; x:=x+0.5 end;

while x<=5 do begin x:=0; y:=x*x+1; x:=x+0.5 end;

x:=0;

while x<=5 do y:=x*x+1; x:=x+0.5?

8.Какие значения получат переменные a и b после выполнения фрагмента программы:

a:=0; b:=12;

while b-a>2 do

begin

a:=a+2; b:=b-2;

end;

writeln(a,b);

6, 6;

2, 10;

4, 8;

0, 2?

9.Определить результат вывода на экран значения r в фрагменте программы:

r:=1: p:=1;

Repeat

r:=r*p;

p:=p+1;

until(p>=5);

writeln(r):

1;

5;

120;

24.

10. Какие значения m и n должны вводиться, чтобы на экран после исполнения фрагмента программы вывелось число 12?

Readln(m,n);

Repeat

If m>n then m:=m-n else n:=n-m;

Until(m=n);

Writeln(m);

12, 18;

54, 12;

48, 24

24, 36.

Ключи к тесту