Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Чет про программирование / практика / 3) Генерация перестановок в лексикографическом порядке
.docxГенерация перестановок в лексикографическом порядке
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.
Соседние файлы в папке практика