Turbo Pascal

Lord Nozaki

Mam pytanie:
Czy ktoś potrafiłby napisać program, który losuje liczby np od "1" do "n" i ustawia je w losowej kolejności?

Taki program miałby np zastosowanie w programie losującym ułożenie kart w talii...

Niestety nie mogę poradzić sobie z powtarzaniem już wylosowanych kart Blue_Light_Colorz_PDT_13

APE

program tasuj;
uses crt;

var i,n,m:integer;
x:array [1..30] of integer;

begin

clrscr;

randomize;

for i:=1 to 30 do
begin
x[i]:=i; {w tej petli wkladamy do tablicy 30 kolejnych liczb}
end;

for i:=1 to 30 do {to oczywiscie nie jest potrzebne}
begin {wyswietlam kolejne liczby}
gotoxy(3,i);
writeln(x[i]);
end;

for i:=1 to 30 do {tasujemy liczby, ktore juz mamy}
begin {to znacznie latwiejsze, niz losowanie bez powtorzen}
n:=random(30)+1;
m:=x[n];
x[n]:=x[i];
x[i]:=m;
end;

for i:=1 to 30 do {to tez nie jest potrzebne}
begin {wyswietlam potasowana talie}
gotoxy(6,i);
writeln(x[i]);
end;

readkey;
end.

mam nadzieję, że o to ci chodziło. napisałem program dla trzydziestu elementów, ale będzie działał dla każdej liczby z przedziału integer (32 tys. z groszem :P) więc spokojnie możesz potasować karty - 52 elementy.

				fora.pl - załóż własne forum dyskusyjne za darmo Powered by phpBB © 2001, 2002 phpBB Group Avalanche style by What Is Real © 2004