- Учителю
- Тест по теме Циклы в Паскале 10 класс
Тест по теме Циклы в Паскале 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;