Gewichteter Mittelwert

[Go2EITS]

Guten Morgen DP!

Ich arbeite an einem kleinen Projekt, bei dem sich eine Frage an die Mathematiker unter Euch stellt. Ich habe hierzu separat (funktionierenden) Code beigefügt, damit man meine Frage nachvollziehen kann.

Zum Problem:
Ich habe 20 Zahlen, den ich gerne gewichten möchte (mit 5 Werten) und d. h. je „neuer“ der Wert, desto mehr Gewicht bekommt dieser: Erster Wert 1, zweiter Wert 2, dritter Wert 3 etc., letzter Wert 5 (der neueste Wert).

Delphi-Quellcode:

//Die Gewichtung führe ich so durch: (n ist unser Gewicht)
  for x:=1 to 5 do
          begin
          n:=n+x;
          end;
//Die Umsetzung klappt nicht:
    GMW[i]:=GMW[i]+Zahlen[X]/5*N;
//Auch so nicht:
    GMW[i]:=GMW[i]+Zahlen[X]/N;

Die Formel, bei Wikipedia prima beschrieben, habe ich versucht umzusetzen:
http://de.wikipedia.org/wiki/Mittelw...tisches_Mittel

Ich habe in der Datei die Zahlen, eine Zahlenreihe mit den Mittelwert 5 und in der letzten Spalte den gewichteten Mittelwert.
Mein Versuch der Umsetzung liefert leider beim gewichteten Mittelwert nur Zahlen über 100:

Delphi-Quellcode:

program Project2000;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  Zahlen  :Array[1..20] of Real;  //Basiswerte
  MW      :Array[1..20] of Real;  //Mittelwert
  GMW     :Array[1..20] of Real; //Gewichteter Mittelwert
  i,x,n   :Integer;
  f       :TextFile;

  begin
//Zahlen zuweisen:
  Zahlen[1]:=10.42;
  Zahlen[2]:=11.10;
  Zahlen[3]:=10.83;
  Zahlen[4]:=11.05;
  Zahlen[5]:=10.96;
  Zahlen[6]:=11.55;
  Zahlen[7]:=11.98;
  Zahlen[8]:=12.05;
  Zahlen[9]:=12.50;
  Zahlen[10]:=12.67;
  Zahlen[11]:=13.42;
  Zahlen[12]:=14.10;
  Zahlen[13]:=13.83;
  Zahlen[14]:=14.05;
  Zahlen[15]:=13.96;
  Zahlen[16]:=14.55;
  Zahlen[17]:=14.98;
  Zahlen[18]:=15.05;
  Zahlen[19]:=15.50;
  Zahlen[20]:=16.67;

  //Mittelwert zuweisen (5 Werte)
  for i:=5 to 20 do
      begin
      for x:=i-4 to i do MW[i]:=MW[i]+zahlen[X]/5;
      end;

  //Gewichteter Mittelwert:
  for i:=5 to 20 do
      begin
      n:=0;  //Teiler 0 zuweisen;
      for x:=i-4 to i do
          begin
          n:=n+x; //Teiler "gewichten"
          GMW[i]:=GMW[i]+Zahlen[X]/5*n; //Da wird es irgendwie hapern...
          end;
      end;

Writeln('Testprogramm: Gew. Mittelwert');
Writeln;
//In Datei für Excel mit Komma als Trenner schreiben, damit ist ein Diagramm möglich
assignfile(f,'C:\Gewichte.csv');
Rewrite(f);
for i:=1 to 20 do
     Writeln(f,zahlen[i]:0:2,',',MW[i]:0:2,',',GMW[i]:0:2);
CloseFile(f);
//.. und auf den Screen natürlich
Writeln('Zahlen  MW      GMW');
Writeln;
for i:=1 to 20 do
     Writeln(zahlen[i]:0:2,' ',MW[i]:6:2,' ',GMW[i]:6:2);
Writeln;
Writeln('Fertig - Programm beenden: [Enter]');Readln;
end.

Kann jemand helfen? Danke für die Mühe im voraus!
Go2EITS