Цитата:
|
Сообщение от Лунтик-Некрофил
Мне такого не надо, руки есть, и сам написать могу.
Ты мне лучше объясни как рандомно раскидать 4 числа без повторений...)
|
Код:
uses .... Math;
Var
i,Shuffle, R1,R2:integer;
a:array[1..4] of Integer;
...
procedure (создание формы)
begin
for i:=1 to 4 do begin
a[i]:=i;
end;
for i:=1 to 4 do begin
R1:=RandomRange(1,5);
R2:=RandomRange(1,5);
Shuffle:=a[R1];
a[R1]:=a[R2];
a[R2]:=Shuffle;
end;
end;
Думаю в объяснении не нуждается