Cоставление программ, с блок- схемами.

[KirillG]

Всем доброго времени суток. Прошу вас помочь в составлении данных программ, желательно с блок- схемами. Заранее спасибо.

[Базиля]

1 задача:

program zad1;
const p=3.14;
var x,y:integer;
a:real;
begin
writeln('введите x и y');
readln(x,y);
a:=(2*cos(x-p/6))/(1/2+sin(sqr(y)))+sqr(x)/(3+sqr(x)/5);
writeln('a=',a:8:3);
end.

-----------------------------------------------
2 задача:

program zad2;
var a,x:real;

begin
writeln('введите a');
readln(a);
x:=1-sqrt(sin(sqr(a))+4)-sqr(a)/2;
writeln('x=',x:8:3);
end.

3 задача:

program zad3;
var y,x:real;

begin
writeln('введите x');
readln(x);
y:=(1+sqr(sin(x+5)))/(2+abs(x-2*x/(1+sqr(x))))+exp(5*ln(x));
writeln('y=',y:8:3);
end.

С блок-схемами здесь все просто, постарайся сам разобраться

[KirillG]

Базиля
Большое спасибо.