randomzahlen aufaddieren

[Fedebolix]

wie mache ich das, wenn ich die randomzahlen aufaddieren will? ich sitz schon den ganzen tag davor... und hab keine ahnung
bedank mich schon mal...

[Die Muhkuh]

Erstmal Herzlich willkommen auf'em DP

was meinste mit aufaddieren?

[Skiron]

wenn ich dich richtig verstanden habe, müsst das helfen:

Delphi-Quellcode:

function SummeRand(count, max: integer): integer;
var
  i: integer;
begin
  randomize;
  result := 0;
  for i := 1 to count do
    inc(result, random(max));
end;

[Fedebolix]

also ich habe dieses Würfelspiel, bei dem man so lange würfel kann wie man will. Die augenzahlen werden solange zusammengezählt, bis man eine eins würfelt, dann wird alles wieder gelöscht.
hoffe das is genau genung!?

[gekmihesg]

Delphi-Quellcode:

i:=random(5)+1;
if i = 1 then
  zahl:=0
else
  zahl:=zahl+i;

...wenn ich das richtig verstanden habe

[Fedebolix]

leider nicht...
so speichert er die vorherige zahl nicht.. oder so.
aufjedenfall kommt so die gleiche zahl rauß, wie die zufallszahl ist...

[Fedebolix]

gerade reingestolpert... und schon verstolpert... gehört hier ja gar nicht hin.

bitte um entschuldigung

[sakura]

Zitat von Fedebolix:

gerade reingestolpert... und schon verstolpert... gehört hier ja gar nicht hin.

Schwubs, ich verschiebe es mal

......

[delphi_newbie_123]

meinst du das vielelciht so?

Delphi-Quellcode:

var 
z1:integer;
z2:integer;
begin 
randomize;
z1:=random(6);
z2:=random(6);
label1.caption:=z1+z2;
end;

[delphi_newbie_123]

ah danke für die idee.
mach jetzt auch mal son würfelspiel