7 Feb
1997
7 Feb
'97
12:46 a.m.
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