Mittelwert von Myarray

[mkinzler]

edit2.Text:= inttostr(mitte.mtrID);

[toms]

Warum schreibst du

Delphi-Quellcode:

mitte.mtrID

?

mitte genügt :-D

PS: Verwende doch Delphi-Code Tags :thumb:

[Bericender]

muss nochmal kurz :(

irgendwie berechnet der den Mittelwert falsch :gruebel:

der berechnet den doch für das 2d Array oder? :gruebel:

[toms]

Zitat:

Zitat von Bericender

muss nochmal kurz :(

irgendwie berechnet der den Mittelwert falsch :gruebel:

der berechnet den doch für das 2d Array oder? :gruebel:

2 For-Schleifen -> 2d Array
1 For-Schleife -> 1d Array

[Bericender]

ja aber das ändert nichts an der Tatsache das er den Mittelwert falsch berechnet.

So siehts jetzt aus

Code:

unit uZufall;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TMyarray = Array [1..2,1..4] Of Integer;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit3: TEdit;
    StringGrid1: TStringGrid;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  MyArray: TMyarray;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption := 'neu';
Button2.Caption := 'memo';
Button3.Caption := 'grid';
Button4.Caption := 'edit';
Button5.Caption := 'MWZeile';
Button6.Caption := 'MWKomplett';
Button7.Caption := 'close';
StringGrid1.ColCount := 4;
StringGrid1.RowCount := 2;
Memo1.Clear;
Edit1.Visible := false;
Edit2.Visible := false;
Edit3.Visible := false;
Edit4.Visible := false;
Stringgrid1.Visible :=false;
Memo1.Visible := false;
end;

procedure fuellen;
var z,sp:integer;
begin
randomize;
for z:=1 to 4 do
 for sp:=1 to high(Myarray)do
  myarray[sp,z]:=random(101)
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
fuellen;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a1,a2 : string; sp : integer;
begin
memo1.Visible := true;
a1 := '';
for sp:=1 to 4 do
a1 := a1+ ' '+inttostr(myarray[1,sp]);
memo1.lines.add (a1);

a2 := '';
for sp:=1 to 4 do
a2 := a2+ ' '+inttostr(myarray[2,sp]);
memo1.lines.add (a2);
end;

procedure TForm1.Button3Click(Sender: TObject);
var row,col : integer;
begin
stringgrid1.Visible:= true;
for row:= 0 to 2 do
for col:= 0 to 4 do
stringgrid1.cells[col,row]:=inttostr(myarray[row+1,col+1])
end;

procedure TForm1.Button4Click(Sender: Tobject);
var a1,a2 : string; sp : integer;
begin
edit3.Visible:=true;
Edit1.Visible:= true;
a1 := '';
for sp:=1 to 4 do
a1 := a1+ ' '+inttostr(myarray[1,sp]);
edit3.text := a1;

a2:= '';
for sp:=1 to 4 do
a2 := a2+ ' '+inttostr(myarray[2,sp]);
edit1.text := a2;
end;

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


procedure TForm1.Button7Click(Sender: TObject);
begin
 close
end;

end.

Ich steh hier kurz vorm Lappi durchs Zimmer schmeissen weil mich der Mittelwert schon über 6 Stunden gekostet hat :wall:

[Mackhack]

Zitat:

Zitat von Bericender

edit: hab das Problem gelöst :D
danke für ale die zeit geopfert haben um mir zu helfen ;)

Das bezweifle ich aber! Ich glaub eher Markus und DeddyH haben das Problem fuer DICH geloest!

Hm, 6h, musst du morgen wohl abgeben das ganze was? :roll:

[Bericender]

nich direkt aber ich sitz jetz einmal dabei und will das jetz fertig machen :stupid: habt ihr noch ne Idee? ;)

[Mackhack]

Zitat:

Zitat von Bericender

nich direkt aber ich sitz jetz einmal dabei und will das jetz fertig machen :stupid: habt ihr noch ne Idee? ;)

Du sagst ja net wirklich was falsch ist. :glaskugel: ist im Urlaub!

[Bericender]

Hatte vorhin zum Beispiel bei den Zufallszahlen
71 + 28 + 84 + 42 + 29 + 75 + 15 + 54
einen Mittelwert von 9,10890 :gruebel:

[Mackhack]

Und was machen die Buttons und so???
Dein Code ist Null formatiert und null kommentiert. Macht wenig Freude zu helfen (meiner Meinung nach)!

//Edit: Hier mal der Code richtig formatiert:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TMyArray = Array [1..2,1..4] Of Integer;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit3: TEdit;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Memo1: TMemo;
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  MyArray: TMyarray;

implementation

{$R *.dfm}

procedure Fuellen;
var
  Z, SP: Integer;
begin
  Randomize;
  for Z := 1 to 4 do
    for SP := 1 to High(MyArray)do
      MyArray[SP, Z] := Random(101)
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Fuellen;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  A1, A2: String;
  SP: Integer;
begin
  Memo1.Visible := True;
  A1 := '';
  for SP := 1 to 4 do
    A1 := A1 + ' ' + IntToStr(MyArray[1, SP]);
  Memo1.Lines.Add(A1);

  A2 := '';
  for SP := 1 to 4 do
    A2 := A2 + ' ' + IntToStr(MyArray[2, SP]);
  Memo1.Lines.Add (A2);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  Row, Col: Integer;
begin
  StringGrid1.Visible := True;
  for Row := 0 to 2 do
    for Col := 0 to 4 do
      StringGrid1.Cells[Col, Row] := IntToStr(MyArray[ Row + 1, Col + 1])
end;

procedure TForm1.Button4Click(Sender: Tobject);
var
  A1, A2 : String;
  SP : Integer;
begin
  Edit3.Visible := True;
  Edit1.Visible := True;
  A1 := '';
  for SP := 1 to 4 do
    A1 := A1 + ' ' + IntToStr(MyArray[1, SP]);
  Edit3.Text := A1;

  A2 := '';
  for SP := 1 to 4 do
    A2 := A2 + ' ' + IntToStr(MyArray[2, SP]);
  Edit1.Text := A2;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  I,J, Summe, Anzahl: Integer;
  Mitte: Real;
begin
  Edit2.Visible := True;
  Summe := 0;
  for I := Low(Myarray) to High(Myarray) do
    for J := Low(MyArray[i]) to High(MyArray[i]) do
    begin
      Summe := Summe + MyArray[I, J];
      Inc(Anzahl);
  end;
  Mitte := Summe / Anzahl;
  Edit2.Text := FloatToStr(Mitte);
end;


procedure TForm1.Button7Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := 'neu';
  Button2.Caption := 'memo';
  Button3.Caption := 'grid';
  Button4.Caption := 'edit';
  Button5.Caption := 'MWZeile';
  Button6.Caption := 'MWKomplett';
  Button7.Caption := 'close';
  StringGrid1.ColCount := 4;
  StringGrid1.RowCount := 2;
  Memo1.Clear;
  Edit1.Visible := False;
  Edit2.Visible := False;
  Edit3.Visible := False;
  Edit4.Visible := False;
  Stringgrid1.Visible := False;
  Memo1.Visible := False;
end;

end.