On 04/07/07, josepascual <[EMAIL PROTECTED]> wrote:
negative number problem is not in float operation but in format or strings
subsystem.
try this new example:
program floattest;
uses sysutils;
var a,b,c,d,e:double;
begin
a:=0.5;
b:=0.3;
writeln(format('%5.3f',[a*b]));
a:=-0.5;
c:=a*b;
d:=a*c;
writeln(format('%5.3f',[d]));
if (c < 0) then
begin
// e := abs(c); seems not to work! please remove // and try it
e := -1*c; // remove or comment if you use abs in above line
writeln('-'+format('%5.3f',[e]));
end;
end.
perhaps, I think now, part of problem can be in something relative abs or
used by abs.
comment your results,
i've reported this a while ago. i added a back trace the other day:
http://www.freepascal.org/mantis/view.php?id=8737
regards
Jose Pascual
henry
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
