Операторы циклов (составить блок-схему) / Free Pascal

[Ksyusha]

Как составить блок-схему:
Program prog2;
const
a=3;
b=10;
n=10;
var
s,x,h:real;
i:integer;
begin
writeln(Вычисление суммы значений функции);
h:=(b-a)/(n-1);
writeln( a = ,a);
writeln( b = ,b);
writeln( n = ,n);
writeln( h = ,h:0:8);
writeln;
{цикл "while"}
writeln(1. Цикл "while");
x:=a;
s:=0;
i:=1;
while i<=10 do
begin
s:=s+sin(x+3)/exp(2/5*ln(x+3));
x:=x+h;
i:=i+1;
end;
write( Значение s: );
writeln(s:0:8);
{цикл "repeat"}
writeln(2. Цикл "repeat");
x:=a;
s:=0;
i:=1;
repeat
s:=s+sin(x+3)/exp(2/5*ln(x+3));
x:=x+h;
i:=i+1;
until i>10;
write( Значение s: );
writeln(s:0:8);
{цикл "for ... to ... do"}
writeln(3. Цикл "for ... to ... do");
x:=a;
s:=0;
for i:=1 to 10 do
begin
s:=s+sin(x+3)/exp(2/5*ln(x+3));
x:=x+h;
end;
write( Значение s: );
writeln(s:0:8);
{цикл "for ... downto ... d o"}
writeln(4. Цикл "for ... downto ... do");
x:=a;
s:=0;
for i:=10 downto 1 do
begin
s:=s+sin(x+3)/exp(2/5*ln(x+3));
x:=x+h;
end;
write( Значение s: );
writeln(s:0:8);
readln;
End.

[Vanta11a]

Смотрите соседнюю свою тему.