Kartenspiel Algorithmus

[d3g]

Zitat von Nico1:

Aja : for i := 1 to 54 --> sollte for i := 1 to 54 do

Wahr. Ich hab zu viel C programmiert.

Zitat von Nico1:

noch was : das s : String kannste auch weglassen

Auch wahr. Hab's vergessen wegzumachen, als ich aus dem Codebeispiel eine Funktion gemacht hab.

[Nico1]

Eine Frage noch(bin nur so interresiert weil ich auch grad das brauche) aber warum kommt bei mir bis auf eine Herzausnahme NUR KARO?

[Nico1]

Zitat von d3g:

Ich bin von einem Pascal-Programmierer ausgegangen, der mit 1 zu zählen beginnt (obwohl 0 oft sinnvoller ist). Random(54) gibt einen Wert zwischen 0 und 53 zurück.

Ich meinte eigentlich das es RANDOM und nicht RANDOMIZE heißt

Noch was : Karo 9As sollte eigentlich nicht vorkommen (ich sah halt noch nie eien As 0 )

Tschuldigung das ich mit solche sachen komme aber wie ich schon oben erwähnt habe brauch ich den Code für so eine Funktion und bin dir deshalb sehr dankbar!

/Edit sorry Moderatoren wegen den Doppelpost war ein Versehen!

[d3g]

Zitat von Nico1:

Ich meinte eigentlich das es RANDOM und nicht RANDOMIZE heißt

Hat mich irgendwer unter Drogen gesetzt? Entweder sind meine Pascal-Kenntnisse total verrottet oder ich merke gar nicht, wie wenig konzentriert ich gerade bin.

Zitat von Nico1:

Eine Frage noch(bin nur so interresiert weil ich auch grad das brauche) aber warum kommt bei mir bis auf eine Herzausnahme NUR KARO?

Zufall? Ich kann keinen Fehler finden (aber das heißt ja im Moment nichts).

Zitat von Nico1:

Noch was : Karo 9As sollte eigentlich nicht vorkommen (ich sah halt noch nie eien As 0 )

[Dagon]

Zitat von Nico1:

Eine Frage noch(bin nur so interresiert weil ich auch grad das brauche) aber warum kommt bei mir bis auf eine Herzausnahme NUR KARO?

Du musst im OnCreate der Form noch Randomize hinschreiben.

[Nico1]

Das hab ich aber es geht trotzdem nicht


Aber ich kann sonst nichts finden! oder bin ich jetzt zu vertrottelt?

[d3g]

Zitat von the_master:

Zitat von Nico1:

Eine Frage noch(bin nur so interresiert weil ich auch grad das brauche) aber warum kommt bei mir bis auf eine Herzausnahme NUR KARO?

Du musst im OnCreate der Form noch Randomize hinschreiben.

Er hat doch nicht etwa für jeden Funktionsaufruf das Programm neugestartet?

Ich hab übrigens noch einen Fehler gefunden... Mit 0 zu zählen zu beginnen ist ja doch besser. Jetzt tötet mich, ihr Pascal-Only-Jedis!

Delphi-Quellcode:

function PickCards(): String;
var
  Picked, i: Integer;
  Cards: set of 1..54;
  s: String;
begin
  Cards := [];
  for i := 1 to 10 do begin
    Picked := Random(54) + 1;
    if (not (Picked in Cards)) then
      Cards := Cards + [Picked];
  end;

  Result := '';
  for i := 1 to 54
    if (i in Cards) then begin
      case ((i - 1) div 13) of
        0: Result := 'Kreuz ';
        1: Result := 'Pik ';
        2: Result := 'Herz ';
        3: Result := 'Karo ';
      end;
      case ((i - 1) mod 13) of
        1:     Result := Result + 'As';
        2..10: Result := Result + IntToStr(i mod 13);
        11:    Result := Result + 'Bube';
        12:    Result := Result + 'Dame';
        0:     Result := Result + 'König';
      end;
    end;
end;

[Dagon]

Zitat von d3g:

Er hat doch nicht etwa für jeden Funktionsaufruf das Programm neugestartet?

Ich habe zu erst gepostet, dann erst nachgedacht.

[MikeS]

deine funktion sieht gut aus aber was machst du für den fall das

(i-1) div 13 = 4 (i-1) mod 13 = 0
und
(i-1) div 13 = 4 (i-1) mod 13 = 1

dafür hast du keine auswertung!

53/13 = 4,...
52/13 = 4,0;

[Dagon]

Ich weiss jetzt wieso immer nur KARO ausgegeben wird!
Der höchste werd im Set "Cards" ist mit grosser Wahrscheinlich keit immer eine Zahl die x div 13 = 3 geben wird. Da die schleife ja 54 mal ausgefürd wird und eben x div 13 mit gorsser Wahrscheinlichkeit 3 gibt, wird auch immer als Schlussresultat Karo asugegebn.

Ich hoffe man versteht was ich meine.