|
|
 |
|
|
|
|
|
|
|
|
1. Определить значения переменных S, D после выполнения следующих операторов:
а) S:=0; i:=0;
while i<5 do i:=i+1; S:=S+1/i;
b) S:=0; i:=1;
while i>1 do begin S:=S+1/i; i:=i-1; end;
c) S:=0; i:=1;
while i>4 do begin S:=S+1; i:=i+1; end;
d) S:=0; i:=1; D:=4;
while i<=D do begin S:=S+D; i:=i+1; D:=D-1; end;
f) S:=10; i:=3; D:= -2;
while (i>1) and (D<>0) do begin S:=S+1; i:=i-1; D:=D+1 end;
e) S:=100;
for i:=1 to 5 do
S:=S-10;
g) S:=100; D:=0;
for i:=1 to 3 do begin
S:=S-10; D:=D+S; end;
h) S:=100; D:=0;
for i:=1 to 6 do
S:=S+10; D:=D-S;
i) S:=10; D:=0;
for i:=1 downto 5 do
S:=S-1; D:=S;
k) S:=10; D:=10;
for i:=4 downto 1 do begin
S:=S+5; D:=D-S; end;
m) S:=12; D:=20;
for i:=4 to 1 do begin
S:=S/D-10; D:=D*S+S; end;
n) S:=1; D:=0;
for i:=1 to 5 do
for i:=1 to 2 do begin
S:=S+i+j; D:=D+S+i*j; end;
l) S:=0; i:=1;
repeat
S:=S+2*i; i:=i-1;
until (i<=1);
o) S:=10; i:=1; D:=S;
repeat
S:=S+i; i:=i-1; D:=D+S
until (i<=2);
2. Вычисление F=10! - описать:
а) оператором цикла for.
b) оператором цикла while.
c) оператором цикла repeat ... until ... .
Ответы (решения)
1.a) S=0
b) S=0
c) S=0
d) S=7, D=2
f) S=12, D=0
e) S=50
g) S=70, D=240
h) S=160, D=-160
i) S=10, D=10
k) S=30, D=-80
m) S=12, D=20
n) S=24, D=98
l) S=2
o) S=11, D=21.
2. a) f:=1;
for i:=1 to 10 do
f:=f*i;
b) f:=1; i:=1;
while i<=10 do
begin
f:=f*i;
i:=i+1;
end;
c) f:=1; i:=1;
repeat
f:=f*i;
i:=i+1;
until(i>10);