belibig oftes Würfeln

[passsy]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
i:integer; //anzahl der würfelrunden
a:integer; //was im edit steht
b:integer; //gewürfelte zahl
eins,zwei,drei,vier,fünf,sechs:integer  //gewürfelte zahlen
begin
a:=edit1.text;

if i<a then
begin
 b:=random(5)+1;  //0 wird auch gewürfelt ;)
  if b =1 then
   eins:=eins+1
  else
   if b = 2 then
   zwei:=zwei+1
  else
   if b =3 then
   drei:=drei+1
  else
   if b = 4 then
   vier:=vier+1
  else
   if b =5 then
   fünf:=fünf+1
  else
   if b = 6 then
   sechs:=sechs+1

//jetzt nur noch die zahlen an label übergeben...
i:=i+1;
end;