Problem mit aneinandergereihten while-Schleifen

[Mavarik]

Hallo

Das liegt an der internen Genauigkeit...

Versuch mal

Delphi-Quellcode:

function RealComp(r1,r2:real):boolean;

Var
    S1,S2 : shortstring;

begin
  if r2 = 0.0 then
    r1 := abs(R1);

  Str(R1:10:2,S1);
  Str(R2:10:2,S2);
  RealComp := Boolean( S1 = S2 );
end;

und

WHILE (b>0.01) or realcomp(b,0.01) DO BEGIN Dann funktioniert es!

Grüsse Mavarik