Mittelwert von Myarray

[Bericender]

Hallöchen
Ich muss in unserem momentanem Info Projekt per Buttonklick den Mittelwert der Zufallszeilen des Myarray berechnen. ENimal soll das ganze Zeilenweise (aus einem 2 Dimensionalem Array) und einmal aus dem kompletten Array auf Buttonklick erfolgen. ;)
Nur irgendwie komm ich ums verrecken nicht dahinter was ich machen soll. :gruebel:

[toms]

Hallo

Überleg dir mal, was der Mittelwert bedeutet, wie du ihn von einer Menge Zahlen berechnen kannst.
Danach kommt die Delphi Umsetzung. (Tipp: For..To verwenden)

[Bericender]

Na ja ich berechne ihn in dem ich die Zahlen der Zeile addiere und durch die Anzahl der Zahlen teile. Die einzelnen Zahlen sind Integers das Ergebnis Real. Ich weiß nur nicht wie ich mit For .. To auf Myarray zugreifen kann ;)

[toms]

Myarray[0] gibt den Wert des 1. Elements zurück (falls Myarray bei 0 beginnt)

Low(Myarray) gibt den Index des 1. Elements von Myarray zurück
High(Myarray) gibt den Index des letzten Elements von Myarray zurück

D.h du kannst in einer Schleife von Low(Myarray) bis High(Myarray) die Werte durchlaufen und addieren und danach den Mittelwert bestimmen.

[Bericender]

irgendwie bringt mich das auch nicht direkt weiter :gruebel:

[mkinzler]

Welche Typ hat der Array?

[Bericender]

integer :D irgendwie hab ich einfach nur ne totale Denkblockade

so siehts bis jetzt aus

procedure TForm1.Button6Click(Sender: TObject);
var summe:integer; mitte:real;
i: integer;
begin
edit2.Visible:=true;
for i := Low(Myarray) to High(Myarray) do
summe := Integer + Myarray[i];
mitte := summe / 4;
end;
edit2.Text:= inttostr(summe);
end;

[DeddyH]

Zitat:

Delphi-Quellcode:

summe := Integer + Myarray[i];

Das kann ja nicht stimmen, gell?

[toms]

Die Zeile

Delphi-Quellcode:

summe := Integer + Myarray[i];

ist fehlerhaft.

Sollte

Delphi-Quellcode:

summe := summe + Myarray[i];

heissen.

Zudem sollte die summe initialisiert werden. D.h vor der Schleife auf 0 gesetzt werden.

[Bericender]

procedure TForm1.Button6Click(Sender: TObject);
var
i,summe:integer; mitte:real;
begin
edit2.Visible:=true;
summe := 0;
for
i := Low(Myarray) to High(Myarray) do
summe := Summe + Myarray[i];
mitte := summe / 4;
summe := summe + Myarray[i];
end;
edit2.Text:= inttostr(summe);

end;

Dann heisst es allerdings bei summe := summe + Myarray[i]; Inkompatible Datentypen