Skatkartenspiel

[Mavarik]

Zitat von Mobby:

begin
i:=0;
// alle variablen sind schon eingetragen

Delphi-Quellcode:

for i to 32 do

 begin 
  spielkarten:=nagelneu[random(32)+1];
  spieler_1:=spielkarten+' '+spieler_1;

 end;

end;

Hmmmm kann ggf länger dauern:

Delphi-Quellcode:

var
  weg : array[1..32] of boolean;
  kart : integer;
  c    : integer;
begin
  fillchar(Weg,sizeof(weg),byte(false));

  c := 0;
  repeat
    Kart := random(31)+1; /// 31!!!!
    inc(c);
  Until not(weg[Kart]) or (C > 100)

  if not(weg[Kart]) then // Dann halt die nächste
    begin
      for c:=1 to 32 do
       if not(weg[Kart]) then
         Kart := c;
    end;

  spielkarten:=nagelneu[Kart];
  Weg[Kart] := true;
  spieler_1:=spielkarten+' '+spieler_1;

  
end;

Ungetestet....