belibig oftes Würfeln

[General Wolf1]

hihi
sagt mal kann mir mal einer weiterhelfen.
Ich will ein programm machen bei dem ich die würfelanzahl angeben kann (z.b.: 50mal) und das programm gibt mir dann
aus wie oft bei den 50mal die 1 und die 2 etc.pp gewürfelt wurde.
Ich komme aber nicht weiter weil ich nicht weis wie ich den Zufallsmechanissmus darin einknüpfe.
Wäre echt genial wenn mir jemand da weiterhelfen könnte!!

[arbu man]

randomize
ramdom

Weiteres Grundlagenwissen findest du bei www.dsdt.info

[General Wolf1]

Danke erstmal für den Link.
Also ich weiß ja wie man einen Würfel einzeln macht!
Ich weiß auch wie ich die Zählschleife einzeln verwende aber ich weiß nicht wie ich beide kombinieren soll.
Hatte heute schon mindestens 50 Varianten und keine ging im entferntesten.

[passsy]

machs doch mit nem integer .

Delphi-Quellcode:

i:integer; //anzahl der würfelrunden
a:integer; //was im edit steht


a:=edit1.text;
if i<a then
begin
label1.caption:=random(5)+1;
i:=i+1;
end;

[Die Muhkuh]

Hi,

meinst Du das hier im Anhang?

[General Wolf1]

Hie vieleicht nochmal mein Quellcode damit man vieleicht mehr darunter versteht

procedure TForm1.Button1Click(Sender: TObject);
var a,x,b,c,g,f,h,i,j,k,l,m,n,o,p,q,r:integer;

begin
a:=strtoint(Edit1.Text);
repeat
randomize;
b:=random(6)+1;
case b of
1:inttostr(g);
2:inttostr(h);
3:inttostr(i);
4:inttostr(j);
5:inttostr(k);
6:inttostr(l);
end;
until a=a;
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;
Vieleicht findet jemand den oder die Fehler und kann helfen

[Die Muhkuh]

Zitat von General Wolf1:

Vieleicht findet jemand den oder die Fehler und kann helfen

Ja, da fehlen die [delphi] [ /delphi] Tags

[passsy]

also

"" fehlt auf jeden fall

und sonst finde ich das recht kompiziert weil es ja auch einfacher geht. übernimm ma meinen teil und schreib dann den rest.

[General Wolf1]

Ich hab ja nur den wichtigen teil rausgenommen.
Die Datei zum Downloaden funzt bei mir nicht--> hab nur ne poplige delphi 4 Version
Ach ja ich will nur schleifen verwenden um das programm zu realisieren. naja und halt das zufallsding
Greez

[inherited]

Delphi-Quellcode:

var
  WuerfelErgebnisse=Array[1..6] of Integer;
randomize;
for i := 1 to 6 do
  WuerfelErgebnisse[i]:=0;

for i := 1 to AnzahlDerWuerfe do
  WurefelErgebnisse[random(6)+1]:=WurefelErgebnisse[random(6)+1]+1;

Wie immer ungetestet (tm), müsste aber gehen
(BTW: Passys ist ziemlich unbrauchbar, da die ergebnisse nur zwischen 1 und 5 liegen können)