Zitat von
me2u:
Mittelwert = (Ergebnis1 + Ergebnis2 + Ergebnis3 + ...) / Anzahl Durchläufe
Wie realisiert man so etwas am besten ohne diese Ergebnis1 bis x ?
Pack doch deine ganze Berechnung noch mit ner einfachen for-Schleife rein. Und anstelle der Ausgabe berechnest du
Ergebnis := Ergebnis + Tafeln ;
Zum Schluss nur noch dein Ergebnis durch die Anzahl der Durchläufe teilen:
Delphi-Quellcode:
var
Ergebnis, i : integer ;
begin
Ergebnis := 0 ;
for i := 1 to AnzahlDurchlaeufe do begin
// dein Code
Ergebnis := Ergebnis + Tafeln ;
end ;
TafelnMittelwert := Ergebnis / AnzahlDurchlaeufe ;
// Ausgabe
end ;