Program lab1;
uses math;
Var X, Y, G: real;
Begin X := 2; Y := 5;
G := (((1 + cos(x+y))/abs(exp(x)-2*y/(1+sqr(x)*sqr)))*power(x,3))+(arcsin(Y));
writeln(G);
writeln('Indeterminate'
End.
An unhandled exception occurred at 0040D518: EInvalidOp: Invalid floating point operation 0040D518 00401766
uses math;
Var X, Y, G: real;
Begin X := 2; Y := 5;
G := (((1 + cos(x+y))/abs(exp(x)-2*y/(1+sqr(x)*sqr)))*power(x,3))+(arcsin(Y));
writeln(G);
writeln('Indeterminate'
End.
An unhandled exception occurred at 0040D518: EInvalidOp: Invalid floating point operation 0040D518 00401766