Du könntest dir ja mal Int64 ansehn, da passt 'ne Menge rein
Delphi-Quellcode:
x: Int64;
d: Extendet;
x := 0;
for i := 1 to Anzahl do
x := x + Wert;
d := x / 3000;
//liefert, abgesehn von Rundungsfehlern, das Selbe ergebnis, wie die erste Variante
d := Wert / Anzahl;
for i := 2 to Anzahl do
d := d + (Wert / Anzahl);
//versuchen kannst du ja auch mal diesen Weg, aber dieses ist nicht der Mittelwert über alle Werte, sondern (vorwiegent) über die letzten
d := Wert;
for i := 2 to Anzahl do
d := (d * 0.99) + (Wert * 0.01);