|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Igor Kasyanchuk 2:4623/55.90 04 Jan 2003 21:16:00
To : Alexey Burdin
Subject : масив чисел
--------------------------------------------------------------------------------
AB> var s:string;
AB> i,n:longint;
AB> a:array [1..10] of integer;
AB> begin
AB> s:='0123456789';
AB> n:=random(2*3*4*5*6*7*8*9*10); {номер перестановки}
AB> for i:=1 to 10 do
AB> begin
AB> a[11-i]:=(n mod i)+1;
AB> n:=n div i;
AB> end;
AB> for i:=1 to 10 do
AB> begin
AB> n:=a[i];
AB> a[i]:=ord(s[a[i]])-48;
AB> delete(s,n,1);
AB> end;
AB> end. (C) 2002 Megabyte
Спасибо за ответ.
IK>> + Origin: Юзер, чайник, програмист, хакер...Кто ты ?
IK>> (2:4623/55.90)
AB> А кто ТЫ?
А ты еху отмотай немного назад , там есть програма(уже я написал,хоть подсказали
как зделать) и вроде проще. Если нет то :
ТИПА ПРОГРАМ;
label l1;
var a:array[1..10] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to 10 do
a[i]:=0;
for i:=1 to 10 do begin
l1:
k:=random(10)+1;
if (a[k]=0) then a[k]:=i else goto l1;
end;
for i:=1 to 10 do
write(a[i]:3);
ТИПА ЕД ТОЧКА
С наилучшими пожеланиями
- Игорь Касянчук
* Origin: Юзер, чайник, програмист, хакер...Кто ты ? (2:4623/55.90)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
