** языке паскаль написать программу вычисления по формуле:...

Question

На языке паскаль написать программу вычисления по формуле:

G=(2sin(x-2pi/3))/(1/2+cos^2y);

H=1+(z^5/3+(z^5/5)), при исходных данных: x=2,367, y=-1,057, z=3,025

Answer 1

Program pr;

Var G,H,x,y,z:real;

Begin

x:=2.367;

y:=-1.057;

z:=3.025;

G:=(2*sin(x-2*3.14/3))/(1/2+(cos(y)*cos(y)));

H:=1+(exp(5*ln(z))/3+(exp(5*ln(z))/5));

Writeln('G=',G);

Writeln('H=',H);

end.