hm irgendwie haut das mit dem mischen nicht so ganz hin
der legt manchen karten einfach dreimal aus und nicht nur zweimal.
Code:
Bild: Array[1..3] of String; //Bildernamen
Platz: Array[1..6] of Integer; //Bildnummer
Nummer: Array[1..6] of Integer;
Zufall: Integer;
Nummer muss doch ein Array sein, definiere ich ihn richtig?
Code:
Anzahl:=6;
randomize; // Zufallszahlengenerator aktivieren
while Anzahl > 0 do { Die Karten mischen }
begin
zufall := random(Anzahl)+1; // eine Karte aus dem Stapel ziehen
Nummer[Anzahl]:= Platz[zufall]; // und auf letzten freien Platz auslegen
for k := zufall to Anzahl-1 do // restliche Karten einen Platz nach vorn
begin
Platz[k] := Platz[k+1];
end;
Anzahl := Anzahl - 1; // Der Stapel ist nun kleiner geworden
end;