Блок-схема

[yanna]

Блок-схема

помогите, пожалуйста, составить блок схемы для данных программ
буду очень признательна!)

1)program zadanie211a;
var
chisl,znam,x,y:real;

begin
write('Введите х = ');
read(x);

chisl:=(8*sqr(x)-6*x+1)*(1/4);
znam:=pi/2-arctan(sqrt(2*x+1));
y:=chisl/znam+exp(sin(x)/abs(x)*ln(2));

write('y = ',y);
end.
2)program zadanie211b;
var
x,y,r:real;

begin
write('Введите R = ');
read(r);
write('Введите х = ');
read(x);

if (x <= -r) or (x = r) then
y:=0;
if (x > -r) and (x < r) then
y:=sqrt(sqr(r)-sqr(x));
if x > r then
y:=x-r;

write('y = ',y);
end.
3)program zadanie211v;
var
x,y,a,b,c:real;

begin
write('Введите A = ');
read(a);
write('Введите B = ');
read(b);
write('Введите C = ');
read(c);
write('Введите х = ');
read(x);

if ((a < b) and (x >= a) and (x <= b))
or ((a > b) and (x <= a) and (x >= b)) then
y:=a*sqr(x)+b*x+c
else
4)program zadanie311a;
var
chisl,znam,x,y,h:real;
i,n,a,b:integer;

begin
a:=1;
b:=2;
n:=10;

h:=(b-a)/n;

for i:=0 to n-1 do
begin
x:=a+i*h;

chisl:=(8*sqr(x)-6*x+1)*(1/4);
znam:=pi/2-arctan(sqrt(2*x+1));
y:=chisl/znam+exp(sin(x)/abs(x)*ln(2));

write('y = ',y:2:2,'; ');
end;
end.
5)program zadanie311b;

var
s,a:real;
i:integer;

begin
repeat
inc(i);
a:=sqrt(i+1)-sqrt(i);
s:=s+a;
until a < 0.001;

write('Сумма = ',s);
end.

 

[Vladimir_S]

http://www.tehnari.ru/f43/t93830/#post992811