Quotenberechnung

**vedroboy**

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:

markieren

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;

Quotenberechnung

Quotenberechnung

Forumregeln