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;

Vielleicht geht das nur mir so, aber ich versteh nicht ganz was du meinst. Also dein Code sieht so aus als würde er einen Durchschnittswert ohne Probleme erzeugen können.
Jetzt willst du daraus eine "Sportquote" machen... was meinst du denn damit?

naja also wie man sportquoten bei wettbüros macht, weißt du ja oder nicht?

Ich will also in diesem teil den durchschnitt so umändern das er die eingegeben messwerte also quoten nimmt und alle multipliziert und das dadurch der wert ausgegeben wird dann.

Zitat von vedroboy:

naja also wie man sportquoten bei wettbüros macht, weißt du ja oder nicht?

Ähm, nein ^^

Also deine Quoten sind wahrscheinlich in einem array of Double gespeichert und das Array heißt "Messwert", richtig?

Mit dem Code, den du als erstes gepostest hast, berechnest du ja den Durchschnitt dieser Double-Werte. Jetzt willst du alle miteinander multiplizieren und dann in Edit3 ausgeben?

Wenn ja dann musst du doch nur aus "summe := summe + messwert[n];" das machen: "summe := summe * messwert[n];"

Aber wahrscheinlich versteh ich deine Frage noch nicht richtig...
Was sind denn für dich Quoten?