belibig oftes Würfeln

[Klaus01]

Delphi-Quellcode:

begin
   a:=strtoint(Edit1.Text);
   einser_zaehler:=0;
   zweier_zaehler:=0;
   dreier_zaehler:=0;
   vierer_zaehler:=0;
   fuenfer_zaehler:=0;
   sechser_zaehler:=0;
  i:=1;
  repeat
     //randomize;  // nur einmal aufrufen z.B. in Form.create
    b:=random(5{6})+1;                      // random(6) ermittelt eine Zufallszahl zwischen 0 und 6
                                            // Dein Ergebnis wird verfälscht wenn eine 0 gewürfelt wird
                                            // da das Ergebnis nicht gewertet wird aber ein Würfelversuch hochgezählt wird 
                                           // deshalb random(5) +1
    case b of
      1:{inttostr(g)} inc(einser_zaehler);  // weil Du ja wissen willst wie oft denn ein einser gewürfelt wurde
      2:{inttostr(h)} inc(zweier_zaehler);
      3:{inttostr(i)} inc(dreier_zaehler) ;
      4:{inttostr(j)} inc(vierer_zaehler);
      5:{inttostr(k)} inc(fuenfer_zaehler);
      6:{inttostr(l)} inc(sechser_zaehler);
    end;
    inc(i)  // Zähler hochzählen
  until i=a;

Wozu das?
{for f:= 0 to g do
  begin
    label16.Caption:=inttostr(f);
  end;
for m:= 0 to g do
  begin
    label17.Caption:=inttostr(m);
  end;
for n:= 0 to g do
  begin
    label18.Caption:=inttostr(m);
  end;
for o:= 0 to g do
  begin
    label19.Caption:=inttostr(o);
  end;
for p:= 0 to g do
  begin
    label20.Caption:=inttostr(p);
end;
for r:= 0 to g do
  begin
    label21.Caption:=inttostr(r);
end; }
  label6.caption:=IntToStr(einser_zaehler);
...

Grüße
Klaus