|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Alexey Burdin 2:5012/2.89 04 Jan 2003 19:45:36
To : Igor Kasyanchuk
Subject : масив чисел
--------------------------------------------------------------------------------
> from: /Unknown/
Как после вчерашнего, Igor ?
var s:string;
i,n:longint;
a:array [1..10] of integer;
begin
s:='0123456789';
n:=random(2*3*4*5*6*7*8*9*10); {номер перестановки}
for i:=1 to 10 do
begin
a[11-i]:=(n mod i)+1;
n:=n div i;
end;
for i:=1 to 10 do
begin
n:=a[i];
a[i]:=ord(s[a[i]])-48;
delete(s,n,1);
end;
end. (C) 2002 Megabyte
IK> + Origin: Юзер, чайник, програмист, хакер...Кто ты ? (2:4623/55.90)
А кто ТЫ?
Всего хорошего. Alexey.
... А что подyмал кpолик, никто не yзнал,
--- потомy что кpолик был очень воспитанный.
* Origin: You're face to face To the man who sold the world (2:5012/2.89)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
