will randomzahlen aufaddieren

[Fedebolix]

so, nocheinmal mein problem, nachdem ich es schon an der falschen stelle geschildert habe...

also, ich will randomzahlen aufadieren. jetzt habe ich es soweit geshaft:

zufallszahl:=random(5)+1;
edit1.Text:=inttostr(zufallszahl);
if zufallszahl=1 then summe:=summe-summe
else summe:=summe+zufallszahl;

aber es funktioniert nicht...

[MrKnogge]

schreib das doch in deinen alten Thread, sonst verliert man hier den Überblick !

[Fedebolix]

hm, ja, hab ich gemacht, oder wurde gemacht...

aber die frage... die gilt immer noch :arrow:

[negaH]

Delphi-Quellcode:

if zufallszahl=1 then 
  summe:=summe-summe   //  --->  X - X == 0 das gilt immer
else 
  summe:=summe+zufallszahl;

Warum nun die IF Abfrage ? Erkläre mal warum du das so gecodet hast.

Gruß hagen

PS: am obigen Beispiel erkennt man auch warum ein besserer Programmierstil eventuelle logische Fehler verhindert.

[Fedebolix]

naja, wenn eine eins gewürfelt wird, soll ja der punktestand gelöscht werden, darum...

[negaH]

Gut dann wäre das richtig:

Delphi-Quellcode:

if ZufallsZahl = 1 then Summe := 0
  else Inc(Summe, ZufallsZahl);

Was funktioniert nun nicht richtig ? Denn dein eigene Code macht exakt das du willst.

Gruß Hagen

[Michael Leyhe]

HI

Dein Soude sieht ganz in Ordnung aus! Also wenn etwas nicht funktioniert dann sollte dies an den Zeilen davor oder danach liegen.

Ich weiß nicht ob du das nicht schon weißt, weil dein Source dies nicht beinhaltet, aber der Befehl Random spuckt immer die gleichen Zahlen aus und bei einem Würfelspiel wie du es programmieren willst wäre das ja eher schlecht. Mit dem Befehl

Delphi-Quellcode:

Randomize;

leitet Random die Zufallszahl von der Systemzeit ab und somit kommen nicht immer die gleichen Zahlen.

[Fedebolix]

ja danke, ich werds gleich mal ausprobieren...
aber wenn es das gleiche macht. Das Problem das ich hatte, "summe" muss als variable stehn und wenn ich vor der if-bedingung summe keinem Wert oder sonstigem zugeordnet hatte, kam als ergbnis immer 18920 oder ähnliches rauß...

[Fedebolix]

so siehts bei mri jetzt aus... aber klappen tuts noch nicht

var zufallszahl, summe: integer;
begin
randomize;
zufallszahl:=random(6)+1;
edit1.Text:=inttostr(zufallszahl);
if zufallszahl = 1 then Summe := 0
else Inc(Summe, ZufallsZahl);

[Wuzzel]

wenn du solche werte rausbekommst solltest du vielleicht bevor du anfängst zu würfeln, summe ienene wert zu ordnen, zb 0 oder ähnliches...