HILFE !!!!

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

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 ;)

Code:

---

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.

Code:

---

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

---

zeigt dir an wie oft die 1 gewürfelt wurde

zu mehr hab ich jetzt keine Lust ^^

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...