Extended rundet bei Addition automatisch

[Panthrax]

Das klingt doch gut!

Delphi-Quellcode:

var
  Summe, KleineSumme, KleinerWert: Extended;
    // KleinerWert hier nur als Platzhalter

{ ... }

Summe := 1;
KleineSumme := 0;

for I := 0 to N - 1 do
begin
  KleineSumme := KleineSumme + KleinerWert;
    // 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;
  // dann die großen und kleinen Werte summieren.