Question

В Турбо Паскале..Вычислить следующее выражение при X = 10, Y = 3: Z = (sin37+cos73+tg23)/(x^2-2XY^2+Y^4)
^ -возведение в степень.

Answer 1

uses
  Crt;
const
  Pi=3.14159265;
var
  x,y,z:real;
begin
  ClrScr;
  x:=10; y:=3;
  z:=sin(37*Pi/180)+cos(73*Pi/180)+sin(23*Pi/180)/cos(23*Pi/180);
  z:=z/(sqr(x)-2*x*sqr(y)+sqr(sqr(y)));
  Writeln(z);
  ReadKey
end.

Результат выполнения программы
 1.3186615443E+00