Extended rundet bei Addition automatisch

[himitsu]

Du könntest sogar noch mehr Ungenauigkeiten rausrechnen.

Delphi-Quellcode:

KleineSumme := 0;
for I := 0 to N - 1 do
begin
  KleineSumme := KleinerWert * I;
    // erst die kleinen Werte summieren

  WriteLn(Summe + KleineSumme);
    // für die Ausgabe summieren;
    // irgendwann ist KleineSumme groß genug
    // und wird nicht mehr absorbiert
end;

Summe := Summe + KleineSumme;

Delphi-Quellcode:

for I := 0 to N - 1 do
begin
  WriteLn(Summe + (KleinerWert * I));

end;

Summe := Summe + (KleinerWert * N);