Тест по теме Циклы в Паскале 10 класс

Тест по теме «Циклы в Паскале»

1.Определить значение переменных i и S после выполнения следующих операторов:

a)S:=l; i:=0; б) S:=l; i:=0; в) S:=0; i:=l;

while i<=5 do while i<=3 do while i<2 do

i:=i+l; begin i:=i+2; S:=S+l/i;

S:=S+l/i; S:=S+i; end; i:=i+l;

г) S:=l; i:=0; д)S:=1;i:=2; e) S:=0; i:=l;

while false do while (i>3) or (i<6) do while (i>0) and (i<=l) do

i:=i+l; begin i:=i +2; begin S:=S+ l/i;

S:=S+ l/i; S:=S+i; end; i:=i+l; end;

2. Определить значение переменных i и S после выполнения следующих операторов:

a)S:=0; i:=3; б)S:=0; i:=l; в) S:=0; i:=4;

repeat repeat repeat

S:=S+i; S:=S+i; S:=S+1/i;

i:=i-1; i:=i+1; i:=i+1;

until i<3; until i<=4; until i<=5;

г) S:=l; i:=2; д) S:=0; i:=3; e) S:=0; i:=2;

repeat repeat repeat

S:=S+i; S:=S+i; S:=S+1/i;

i:=i+1; i:=i+1; i:=i+1;

until true; until (i<0) or (i<=3); until (i>=0) and (i<4);

3. Определить значение переменных a, b, x, у после выполнения
следующих операторов:

a) a:=2;b:=0; б) х:=2;у:=3;

for i:=1 to 3 do for i:=4 downto 2 do

begin x:=x*x;

a:=a+i; y:=y+x;

b:=b+a;

end;

4. Найти ошибки в следующем фрагменте программы

var k,i:integer; x,y:real;

a) k:=l; б) k:=0;

for i:=l to 64 do for i:=l to x do

begin k:=k+sqr(i);

i:=2*i; k:=k*i;

k:=k+i;
end;