Gewichteter Mittelwert

[ibp]

Delphi-Quellcode:

  //Gewichteter Mittelwert: 
  //   Zahlen  :Array[1..20] of Real;  //Basiswerte 
  //   GEW     :Array[1..20] of Real;  //Gewichtung
  //   mittel : Mittelwert
  //   zaehler,nenner: zwischenberechnung
  mittel:=0;
  zaehler:=0;
  nenner:=0;
  for i:=1 to 20 do 
  begin 
    zaehler:=zaehler+Zahlen[i]*GEW[i]
    nenner:=nenner+GEW[i]
  end;
  mittel:=zaehler/nenner