СОСТАВИТЬ БЛОК-СХЕМУ И ПРОГРАММУ a)sinx^2+cosx/cosx^3+z/yc б)1+1/x^2-sqrt5+6,7y^2

Ответ учителя по предмету Информатика

1)

program discuc;

uses crt;

var x,y,z,c,d,r,q,w:real;

begin

writeln (‘введите x’);

readln (x);

writeln (‘введите y’);

readln (y);

writeln (‘введите z’);

readln (z);

writeln (‘введите c’);

readln (c);

q:=sin(sqr(x));

d:=cos(x)/cos(exp(ln(x)*3));

w:=z/y*c;

r:=q+d+w;

writeln (‘r=’,r:5:2);

readkey;

end.

2)

program bibup;

uses crt;

var x,y,z,c,v,j:real;

begin

writeln (‘введите x’);

readln (x);

writeln (‘введите y’);

readln (y);

z:=(1/(sqr(x)))+1;

c:=sqrt(5);

v:=6.7*(sqr(y));

j:=z-c+v;

writeln (‘j=’,j:5:2);

readkey;

end.

Это если в Pascal Free

надеюсь это то