Roulette

[sx2008]

Ein ganz heisser Tipp:
beim Roulette gibt es verschiedene Gewinnchancen (Zahl, rot/schwarz, pair/impair, mangue/passe, 1-3 Douzaines, ...)

Für jede dieser Gewinnchancen solltest du eine eigene Funktion schreiben:

Delphi-Quellcode:

function IstManque(zahl:integer):Boolean;
begin
  if (zahl >= 1) and (zahl <= 18) then
    result := True
  else
    result := False;

  // Verdichtet kann man das auch so schreiben
  Result := ((zahl >= 1) and (zahl <= 18));
end;

function IstPasse(zahl:integer):Boolean;
begin
  if (zahl >= 19) and (zahl <= 36) then
    result := True
  else
    result := False;
end;

function IstRot(zahl:integer):Boolean;
begin
  // selbermachen
end;

Mit diesen kleinen netten Funktionen wird die Auswertung viel leichter!