Hi Leute ^^
und zwar bräucht ich eure Hilfe bei einer eigentlich ziemlich leichten Aufgabe.
Das Programm soll in einem Stringgrid 100 Zufallszahlen ausgeben (10 Spallten x10 Zeilen).
Dabei soll die Summe und der Mittelwert jeder Zeile und Spalte in die dafür vorgegebene Box ausgegeben werden.
Das ganze läuft über ein Array.
Ich zeig euch erstmal die Oberfläche http://img3.imagebanana.com/view/leo...enannt.bmp.png
hier ist der Code
hab natürlich schon einiges probiert, aber wieder gelöscht, weil es nicht funktioniert hat.
type feldtyp= array [1..10,1..10] of integer; // <-- Array
var feld: feldtyp;
procedure TForm1.FormShow(Sender: TObject);
var i: integer;
begin
randomize;
for i:=1 to 10 do
begin
stringgrid1.Cells[0,i]:=inttostr(i)+'. Zeile';
stringgrid1.Cells[i,0]:=inttostr(i)+'. Spalte';
procedure TForm1.Button1Click(Sender: TObject);
var i, j, summe: integer;
begin
summe:=0;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
feld[i,j]:= random(101);
stringgrid1.Cells[i,j]:= inttostr(feld[i,j]);
end;
stringgrid1.Cells[11,1]:= inttostr(summe);
end;
PS: Habe eigentlich schon weitaus schwierigere Aufgaben gelöst, aber hier weiß ich einfach nicht weiter.
da ich dauernd, anstatt der Summe, der einzelnen Zeile, die Summe aller 100 Zufallszahlen ausgegeben bekomme ^^
20.06.2009, 14:46
Volumen
DU musst unten ne schleife einbauen die die summena usrechnet und den mittelwert...
20.06.2009, 17:26
oxmox
Zitat:
Zitat von Volumen
DU musst unten ne schleife einbauen die die summena usrechnet und den mittelwert...
:D
wie gesagt, ich hab schon ´ne Menge probiert,
darunter auch das was du vorgeschlagen hast.
aber danke für die Antwort.
Ich versuchs mal wieder und werde den Code gleich posten.
Edit:
Bin bisschen weiter gekommen.
aber sobald ich alle 10 Summen der 10 Zeilen in einer Schleife berechnen will, bekomme ich ziemlich komische Ergebnisse raus.
// siehe Bild http://img3.imagebanana.com/view/y0h...enannt.bmp.png