HILFE !!!!

[swootPG]

hab gerade klassenarbeit brach eure hilfe hab kein plan von delphi
und zwar:

Schreiben sie ein modulares Programm das insgesamt 100000mal Würfel und danach die relative Häufigkeit jeder Augenzahl 1-6 darstellt. Gefordert Unterprogramme:

Erzeuge_Augenzahl
Berechne_Häufigkeit
Visualisiere_Übersicht

bitte helft mir ahb nich mehr viel zeit
brauch auch nur ein stück quellcode sein ^^

bitte

[AlterHacker]

Damit würd ich sagen hast dus verkackt

Wies in etwa sein hätte sollen:
float _1 = 0;
float _2 = 0;
float _3 = 0;
float _4 = 0;
float _5 = 0;
float _6 = 0;
for(int i = 0; i < 100000; i++){
switch(rand()%6+1){
case 1: _1++; break;
case 2: _2++; break;
case 3: _3++; break;
case 4: _4++; break;
case 5: _5++; break;
case 6: _6++; break;
}
}
int ges = _1+_2+_3+_4+_5+_6;
_1/=ges;
_2/=ges;
_3/=ges;
_4/=ges;
_5/=ges;
_6/=ges;
printf("1: %f\n2: %f\n3: %f\n4: %f\n5: %f\n6: %f\n",_1,_2,_3,_4,_5,_6);


So Code nicht getestet sollte aber so in etwa sein (natürlich noch mit includes und int main usw)
Außerdem isses C++/C

[terrorzwerg]

var Zahl : Array [1..6] of Integer;
...
procedure Erzeuge_Augenzahl;
var i,rdm : Integer;
begin
  randomize;
  for i:=1 to 100000 do begin
    rdm:=Random(6)+1;
    inc(Zahl[rdm]);
  end;
end;

Wie oft eine Zahl gewürfelt wurde kriegste dann über das Array raus, also z.B.

Edit1.Text:=IntToStr(Zahl[1]);

zeigt dir an wie oft die 1 gewürfelt wurde

zu mehr hab ich jetzt keine Lust ^^

[gORDon_vdLg]

ich würde noch ein Application.Processmessages mit in die for schleife schieben, dann bleibt die gui nicht kleben ansonsten volle zustimmgung, sowas habe ich auch schon mal aus langeweile gemacht

naja würde mal sagen ich bin n bisschen spät es sie denn sone arbeit drauert bei euch mehrere tage^^ aber falls es jmd interessiert... aber mal so by the way wenn die euch mit internet eine klassenarbeit schreiben lassen haben die selber schuld wenn jeder ne eins hat...