Hallo,

habe da ein kleines Problem. Ich schreibe zur Zeit für den Unterricht an einem kleinen Black Jack (17&4) Programm und es klappt auch alles, bis auf die Überprüfung, dass auf dem Tsch verschiedene Karten liegen.
Also möchte ich die 15 Variablen "Karte1...Karte15" auf ihre Ungleichheit prüfen.

Diese sind vorher durch die Funktion:

markieren

Code:

function Zufallskarte(Von, Bis: Integer): Integer;
begin
  Result := Random(Succ(Bis - Von)) + Von;
end;

ermittelt worden.

Wie kann ich das hinbekommen ohne jede Variable einzeln auf Karte1<>Karte2 usw. zu überprüfen? Und danach, falls eine gleiche dabei ist, eine neue Auswählen, die nochmal darauf geprüft wird?

Danke schonmal Tom

Du solltest die Karten am besten in einem Array oder in einer Liste verwalten.

Okay,
und wie genau ?
Sorry, Arrays hatten wir noch nicht ...

Dann speichere doch die Information als String oder in den Bits eines Integerwerts.

Wie kann ich denn eine Variable, die zZ. noch keinen Wert hat in einen String umwandeln, der in einem Array verwendet werden kann ?
Kannst du mir das nicht eventuell am Quellcode zeigen?

Könnte das nicht eventuell so aussehen ?

markieren

Code:

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


  variabelspeicher[1]:= '<Karte1>';
  variabelspeicher[2]:= '<Karte2>';
  variabelspeicher[3]:= '<Karte3>';
  variabelspeicher[4]:= '<Karte4>';
  variabelspeicher[5]:= '<Karte5>';
  variabelspeicher[6]:= '<Karte6>';
  variabelspeicher[7]:= '<Karte7>';
  variabelspeicher[8]:= '<Karte8>';
  variabelspeicher[9]:= '<Karte9>';
  variabelspeicher[10]:= '<Karte10>';
  variabelspeicher[11]:= '<Karte11>';
  variabelspeicher[12]:= '<Karte12>';
  variabelspeicher[13]:= '<Karte13>';
  variabelspeicher[14]:= '<Karte14>';
  variabelspeicher[15]:= '<Karte15>';

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

LG

Anstatt 15 Variablen zu verwenden, solltest du eine Variable verwenden~
Also anstatt:
Karte1, Karte2, ...., Karte15: Integer;

Das hier:
Karten: Array[1..15] of Integer;

Dann ermittelst du wie gewohnt die Karten eben per Zufallskarte
Also:
Karten[1] := Zufallskarte(...);
Karten[2] := Zufallskarte(...);
..

Dann kannste nämlich schön mit Schleifen durch und kucken, ob ne Karte doppelt oder mehrfach vorkommt!

und in das (...) von Zufallskarte kommt dann was? Die Kartenvariable?! Also z.B. Karte1 ?

Du hast doch geschrieben

Zitat:

Diese sind vorher durch die Funktion:
..
ermittelt worden

Genau so wie du sie bereits einmal zuvor ermittelt hast, tust du das jz auch wieder - daran ändert sich nichts!

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

Also, das sieht dann jetzt so aus:

markieren

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...