Einzelnen Beitrag anzeigen

vedroboy

Registriert seit: 15. Sep 2006
2 Beiträge
 
#1

Quotenberechnung

  Alt 9. Nov 2009, 20:08
Hallo,
ich wollte auf schnelle welle eine quotenrechner schreiben und bin jetzt bisschen gestolpert und hoffe ihr könnt mir helfen.
Die eingabe von quoten klappt und ausgabe aller quoten in Memo1 klappt auch jetzt frag ich mich wie ich ein teil den ich drinn hab für den Durchschnitt umschreiben kann damit er daraus eine sportquote zusammenrechnet.

Folgenden ausschnitt für den Butten hab ich der verändert werden soll:

Delphi-Quellcode:
procedure TForm1.ButtonDurchschnittClick(Sender: TObject);
begin
  summe := 0;
  for n := 0 to high (messwert) do
    begin
      summe := summe + messwert[n];
    end;
  durchschnitt := summe/length(messwert);
  Edit3.Text := FloatToStr (durchschnitt);
end;
  Mit Zitat antworten Zitat