Question

Создать программу вычисления указанной величины. Результат проверить при заданных исходных значениях.

Answer 1

//Для FreePascal/Delphi добавить
//uses Math;

var h, x, y, z: real;
begin
  x := 2.444;
  y := 0.869*power(10, -2);
  z := -0.13*power(10, 3);
  h := (((power(x,(y+1))+exp(y-1))/(1+x*abs(y-tan(z))))*(1 + abs(y-x)));
  h := h + (sqr(abs(y-x))/2) - (power(abs(y-x),3)/3);
  writeln('h = ', h:0:5);
  readln;
end.


h = -0.49871