Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Чет про программирование / практика / 3) Генерация перестановок в лексикографическом порядке

.docx
Скачиваний:
20
Добавлен:
25.04.2015
Размер:
13.42 Кб
Скачать

Генерация перестановок в лексикографическом порядке

const

maxn = 10;

var

n: integer;

a: array[1..maxn] of integer;

used: array[1..maxn] of Boolean;

procedure gen(pos: integer);

var

i: integer;

begin

if pos > n then begin

for i := 1 to n do

Write(a[i], ' ');

Writeln;

Exit;

end;

for i := 1 to n do begin

if used[i] then continue;

used[i] := True;

a[pos] := i;

gen(pos+1);

used[i] := False;

end;

end;

begin

n := 3;

gen(1);

readln;

end.