durchschnitt von sehr vielen versuchen

[himitsu]

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);