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.
Answers & Comments
//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