Question

Переведите математическую формулу на язык Паскаль.

1 скрин, нужно сделать - 16-тое
2 скрин, нужно сделать - 1-ое

Answer 1

Код программы к 16:

var x, y:real;

begin

 x:=2;

 y := (x+3*cos(sqr(x)+1.5))/(tan(x)+4.56)+sin(2*x)+cos(sqr(x)+5);

 writeln(y);

end.

Код программы к 1:

var x, y, z, t:real;

begin

 x:=14.26;

 y:=-1.22;

 z:=0.035;

 t:=(2*cos(x-pi/6))/(0.5+power(sin(y), 2))*(1+sqr(z)/(3-sqr(z)/5));

 writeln(t);

end.