15 Variablen auf Ungleichheit prüfen

[DeddyH]

Das ist doch eigentlich das gleiche Prinzip wie bei den Lottozahlen. Eine mögliche Implementierung findest Du auch hier.

[Skritek]

Also, das sieht dann jetzt so aus:

Code:

function Zufallskarte(Von, Bis: Integer): Integer;
var
  i,i2: byte;
  Karte: array [1..15] of Integer;
begin
  Result := Random(Succ(Bis - Von)) + Von;

  Karte[1]:= Zufallskarte(1, 52);
  Karte[2]:= Zufallskarte(1, 52);
  Karte[3]:= Zufallskarte(1, 52);
  Karte[4]:= Zufallskarte(1, 52);
  Karte[5]:= Zufallskarte(1, 52);
  Karte[6]:= Zufallskarte(1, 52);
  Karte[7]:= Zufallskarte(1, 52);
  Karte[8]:= Zufallskarte(1, 52);
  Karte[9]:= Zufallskarte(1, 52);
  Karte[10]:= Zufallskarte(1, 52);
  Karte[11]:= Zufallskarte(1, 52);
  Karte[12]:= Zufallskarte(1, 52);
  Karte[13]:= Zufallskarte(1, 52);
  Karte[14]:= Zufallskarte(1, 52);
  Karte[15]:= Zufallskarte(1, 52);

  for i:=1 to 10 do
    for i2:=1 to 10 do
      if i2<>i then
          if Karte[i] = Karte[i2] then
             Result := Random(Succ(Bis - Von)) + Von;
end;

Ist da irgendwo ein Fehler, weil wenn ich das so kopiliere und die erste Karte ziehe kommt ein Fehler, von wegen Stack Überlauf ( Im Projetkt ....exe ist eine Exeption der Klasse EStackOverflow aufgetreten. ), was soll ich tun ?!

Habe in den Anhang mal das gesamte Projekt reingetan, also wer Zeit hat, kann es sich gerne mal anschauen... Kommen noch diverse andere Fehler, wo ich die Lösung nicht weiß ...

edit:

Also keine richtigen Fehler, sondern nur ?logische? also die, die nicht vom Kompiler erkannt werden. z.B. dass es ab der 3. vom Comuter gezogenen Karte nicht mehr die Endkriterien wie SummeCu < 21 oder so ähnliches überprüft, sondern einfach aufhört...

[Bummi]

Versuch einfach einmal einen Durchlauf mit dem Finger auf der Zeile nachzuvollziehen, dann weißt Du wo der Stackoverflow herkommt.

[Skritek]

Also habe jetzt auf jeden fall schon mal gefunden, dass er 5 karten zu wenig durchsucht hat, aber den rest nicht ...

[DeddyH]

http://de.wikipedia.org/wiki/Rekursive_Programmierung

[Blup]

Delphi-Quellcode:

procedure Zufallskarten15;
var
  i1, i2, x: Integer;
begin
  for i1 := 1 to 15 do
  begin
    repeat
      x := Zufallskarte(1, 52);
      for i2 := 1 to i1 - 1 do
      begin
        if Karte[i2] = x then
        begin
          x := -1;
          Break;
        end;
      end;
    until (x <> -1);
    Karte[i1] := x;
  end;
end;

Aber es ist einfacher gleich bei der Auswahl doppelte Karten auszuschließen, als diese hinterher zu ersetzen.
Da hatte ich doch mal eine Funktion..., ah ja:
http://www.delphipraxis.net/881397-post66.html