Einzelnen Beitrag anzeigen

metty09

Registriert seit: 21. Jan 2008
1 Beiträge
 
#1

hilfe ich schreibe klausur

  Alt 21. Jan 2008, 10:02
morgen erstmal.
ich hab dann in 3 stunden ne klausur.
hab aber gerade die themen erfahren. also mal echt geil gelaufen.
unser prof gibt uns das hier an quelltext:



const n=20;
Type TZahlenFeld=ARRAY[0..n-1] of real;
VAR FormMesswerte: TFormMesswerte;
Messwerte:TZahlenFeld;

implementation
{$R *.DFM}
procedure TFormMesswerte.FormActivate(Sender: TObject);
Var i:byte;
begin
for i:=0 to n-1 do
StringGridWerte.Cells[i,0] := IntToStr(i+1)+'. Wert';
end;{FormActivate}

procedure TFormMesswerte.ButtonWerteClick(Sender: TObject);
Var i,hilf:integer;
begin
Randomize;
For i:=0 TO n-1 DO
begin
hilf:=random(5);
Messwerte[i]:= hilf+ 0.54*random;
StringGridWerte.Cells[i,1] := FloatToStrF(Messwerte[i],ffFixed,8,3);
end;
ButtonWerte.Enabled:=false;
end;{ButtonWerteClick}

procedure TFormMesswerte.Button1Click(Sender: TObject);
begin

buttonwerte.enabled:=true;
end;



function Average(VAR Messwerte:TZahlenFeld; n:byte):real;
var
i:byte;
durch:real;
begin
durch:=0;
for i:=0 to n do
durch:=durch+Messwerte[i];
Average:=durch/n;
end;

{function treffer(Var :zahlen;:byte):integer;
var

begin

end;}
END.



mein kumpel hat schonmal versucht was zu machen ist aber gescheitert.
wir sollen den durchschnitt berechen und einen button für die auswertung anlegen.


wär echt geil wenn ihr mir helfen könntet.

ps wir arbeiten mit delphi 5