Тест по теме «ЦИКЛЫ»

Тест по теме «ЦИКЛЫ»

Вариант 1

1.                  Выберите значение выражения-условия в цикле While, которое позволяет продолжить выполнение тела цикла:

a)                  True;

b)                 False.

2.                  Выберите операторы, которые содержат ошибки:

a)                  Repeat until a;

b)                 Repeat until a>7;

c)                  Repeat until a<7;

d)                 Repeat until a:=7;.

3.                  Выберите из списка операторы, которые соответствуют приведенным:

      i:=2; while i<=7 do begin a:=a+i;  i:=i+2 end; ;

a)                  For i:=2 to 7 do a:=a+i;;

b)                 For i:=2 to 7 do begin a:=a+i;  i:=i+2; end;;

c)                  i:=2; repeat  a:=a+i;  i:=i+2 until i>7;;

d)                  i:=2; repeat  a:=a+i;  i:=i+2 until i<=7;;
4. Выберите из списка операторы циклов, у которых тело цикла не будет выполняться:

a)                  For i:=1 to1 do…;

b)                 i:=10; while i<=9 do begin… i:=i-1 end;

c)                  i:=10; repeat … i:=i-1 until i>9;

d)                 For i:=1 downto 10 do … .
5. Выберите  значение, которое примет переменная s после выполнения приведенных операторов:

s:= 0;  for i:=3 downto 3 do s:=s+I;

a)                  0;

b)                 3;

c)                  6;

d)                 невозможно определить.

     6. Приведена программа, составленная для вычисления значения выражения

     у=1- 1/3-1/5-1/7-…-1/(2n+1)

    Выберите пропущенную строку:

    Var n, i: integer; y: real;

    Begin

    Readln(n);  y:=1;

    i:=3;

    y:=y+  ________________

    Begin

    y:=y-1/i;

    i:=i+2;

    End;

    Writeln (y:6:3);

    End.

a)                  For i:=1 to n do;

b)                 While i<=n do;

c)                  While i<=2*n+1 do;

d)                 For i:=1 to 2*n+1 do.

      7. Выберите описание блок-схемы:

                                                               нет

                                              да

                       нет

                           да

a)        While Условие1  do begin k1; k2; if  Условие 2 then end;;

b)        If  Условие1 then k1;  if  Условие 2 then k2;;

c)        While Условие1  do begin k1; repeat k2 until  Условие 2; end;;

d)        While Условие1  do begin k1; k2; repeat until  Условие 2; end;.

8. Выберите значение, которое примет переменная х после выполнения приведенных команд:

x:=5;

For y:=5 to 7 do

 If x>0 then x:=x-3 Else x:=x-2;

a)                  -3;

b)                 2;

c)                  -1;

d)                 -4;

9. Приведенные программы решают одну и ту же задачу. Выберите пропущенную строку для второй программы:

Программа 1:

Var p, s,k: integer;

Begin

Readln(s); p:=0; k:=1;

While p<s do begin

p:=p+k;  k:=k+1; end;

writeln(k-1);

end.

Программа 2:

var p, s,k: integer;

begin

readln(s); p:=0; k:=1;

repeat

p:=p+k; k:=k+1

_____________________

writeln(k-1); end.

a)                  Unti pp<=s;

b)                 Until s<=p;

c)                  Until s<p;

d)                 Until p<s.

Вариант 2

1.                  Выберите значение выражения-условия в цикле While, которое позволяет закончить выполнение тела цикла:

c)                  True;

d)                 False.
2.  Выберите операторы, которые содержат ошибки:

a)                  For a:=1 to 10 do;

b)                 For a:=10 to 1do;

c)                  For a:=1 to 1 do;

d)                 For a:=10 downto 1 do.
3. Выберите из списка операторы, которые отвечают приведенным:  for i:=1 to 5 do a:=a+I;

a)                  i:=1; while i<=5 do a:=a+i;;

b)                 i:=1; while i<=5 do begin a:=a+i; i:=i+1; end;;

c)                  i:=1; repeat a:=a+i until  i>5;;

d)                 i:=1; repeat a:=a+i; i:=i+1 until i<=5;.

4.                  Выберите из списка операторы циклов, у которых тело цикла будет выполняться 5 раз:

a)                  i:=2; while i<=10 do begin … i:=i+2; end;;

b)                 i:=2; repeat … i:=i+2 until i>10;

c)                  for i:=1 to5 do…;

d)                 i:=1; while i<=5 do i:=i+1;.

5.                  Выберите значение, которое примет переменная после выполнения приведенных операторов:

     s:=0; for i:=1to 2 do s:=s+i;

a)                  0;

b)                 1;

c)                  2;

d)                 3;

6.                  Приведена программа, составленная для вычисления значения выражения

y=1/2+3/4+5/6+…+(2m-1)/ (2m).

Выберите пропущенную строку:

Var m, i: integer; y: real;

Begin

Readln (m); y:=0;

For i:=1 tom do

y:=y+___________________

Writeln (y:6:3);

End.

a)                  2m-1/2m;

b)                 (2*m-1);;

c)                  (2*i-1)/(2*i);;

d)                 (2*i-1)/2*I;.

                                          нет

                          да

                                         нет

a)                  i:=1; if i<=n then begin while условие then K1; K2 i:=i+шаг; end;;

b)                 i:=1; while i<=n do begin while условие do K1; K2; i:=i+шаг; end;;

c)                  i:=1; if i<=n then if условие then K1else K2; i:=i+шаг;;

d)                 i:=1; while i<=n do begin if условие then K1; K2 i:=i+шаг; end;.

8. Выберите значение,  которое примет переменная y после выполнения приведенных команд:

y:=0;  j:=5;

For i:=3 downto 1 do

Begin

y:=y+j; j:=j-2;

End;

a)      9;  b) 8;  c) 3;  d)1.

9. Приведенные программы решают одну и ту же задачу. Выберите пропущенную строку для второй программы:

Программа 1:

Var i, n: integer;

r: real;

Begin

Readln (n);

r:=1;

For i:=1 ton do

if  i mod 2 <>0 then r:=r*i;

writeln (r);

end.

Программа 2:

Var i, n: integer;

r: real;

Begin

Readln (n);

r:=1;

i:=1;

repeat

r:=r* i;

___________________

Until i>n;

Writeln (r);

end.

a)      i:=i+1;

b)     if  i mod 2 <> 0 then;

c)      i:=i+2;

d)     if  i mod 2 =2  then.

Ключи к заданиям:

Каждое правильно решенное  задание оценивается 1 баллом.

9 баллов – оценка «5»;         8-7 баллов – оценка «4»;

6-5 баллов – оценка «3»;     менее 5 баллов – оценка «2».