Zufallszahlen erstellen

[shmia]

Deine Auswertung ist falsch.
Zuerst muss geprüft werden ob die Bank gewonnen hat.
Erst danach darf man prüfen, ob die Zahl gerade oder ungerade war:

Delphi-Quellcode:

x:=random(33);  // liefert 0 .. 32

if x=0 then
begin
  // Bank gewinnt
end
else if Odd(x) then
begin
  // ungerade Zahl
end
else 
begin
  // gerade Zahl
end;

Man beachte, dass bei der Abfrage immer else verwendet wird.

Lnagfristig macht dieses kleine Ungleichgewicht zu Gunsten der Bank einen grossen Unterschied!!