Hello gpc,
program Test;
{ Shows the ** fault }
var
a, b : Real;
c, d : __long__ Real;
begin
Readln(a);
Readln(b);
Writeln(a ** b : 20 : 10);
c := a;
d := b;
Writeln(c ** d : 20 : 10);
end.
Put in what you want. The result is right for Real, but for __long__ Real
it's everytime the result = 1.0. I think the conversion of the exponent
from Real to __long__ Real does'nt work:
c ** 0.0 = 1.0 ;-)
___,
((__ o
,____)) V E N I