15 Variablen auf Ungleichheit prüfen

[Skritek]

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

[Union]

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

[Skritek]

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 ?

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

[Aphton]

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!

[Skritek]

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

[Aphton]

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!

[DeddyH]

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