Рекурсия.

[p@ul]

Здравствуйте. Недавно стал изучать программирвоание, и дошёл до изучения рекурсии. Сразу же возникла проблема в задаче. Чё-то никак не вдуплю. Ребят, покажите как работать с рекурсией. А задача такая:
Дана последовательность чисел от 1 до n. Написать рекурсивную функции (или процедуру), которая генерирует всевозможное количество перестановок чисел от 1 до n. Помогите кто может. Хочу посмотреть как это вообще делается, ну в смысле работа с рекурсией на примере данной задачи, ну а потом разберусь. Чё-то в тупик меня эта рекурсия завела.

[Tayfun]

program perestanovki;
uses crt;
const n=5;
var
main,posl:array[1..n] of integer;
incl:array[1..n] of boolean;
kolvo,i:integer;
procedure perest(p:integer);
var c:integer;
begin
if p=n+1 then begin
for i:=1 to n do write(posl[i],' ');
write('      ');
kolvo:=kolvo+1;
end;
for c:=1 to n do begin
if not incl[c] then begin
posl[p]:=main[c];
incl[c]:=true;
perest(p+1);
posl[p]:=0;
incl[c]:=false;
end;
end;
end;
begin
clrscr;
for i:=1 to n do main[i]:=i;
perest(1);
writeln;
writeln(kolvo);
readkey;
end.

Что-то примерно так будет...

[p@ul]

Спасиб))) Ща попробуем))

[lnker]

Сообщение от Tayfun

program perestanovki;
uses crt;
const n=5;
var
main,posl:array[1..n] of integer;
incl:array[1..n] of boolean;
kolvo,i:integer;
procedure perest(p:integer);
var c:integer;
begin
if p=n+1 then begin
for i:=1 to n do write(posl[i],' ');
write('      ');
kolvo:=kolvo+1;
end;
for c:=1 to n do begin
if not incl[c] then begin
posl[p]:=main[c];
incl[c]:=true;
perest(p+1);
posl[p]:=0;
incl[c]:=false;
end;
end;
end;
begin
clrscr;
for i:=1 to n do main[i]:=i;
perest(1);
writeln;
writeln(kolvo);
readkey;
end.

Что-то примерно так будет...

Искал алгоритм даный давно.. очень давно...
Спасибо огромное, но как сделать чтобы:
1) Значение n считывало с фала swap.cfg, и при этом значение n может быть больше 10..
2) записывало перестановки в файл out.lst, и разделяло элементы перестановок символом "."
3) перезаписывалоswap.cfg так чтобы в первою строку внеслось n!, а во вторую строку (во время записи out.lst) пследовательный номер перебора (какая по-щету перестановка в даный момент обработалась );


(как известно количество перестановок равно n!)

function fact(n: integer): longint;
begin
if n <= 1 then
fact := 1
else
fact := n * fact(n - 1)
end;



Заранее спасибо

[Alex_FF]

program RP;

const
  Source = 'swap.cfg';
  Target = 'out.lst';
  Len = 20;

type
  TArray = Array[1..Len] of Byte;

var
  S: TArray;
  F: Text;
  C: Integer;

procedure Print(const N: Integer; const X: TArray);
var
  I: Integer;
begin
  Write(F, C, ' ');
  for I := 1 to N do
    if I <> N then Write(X[I], '.') else Write(X[I]);
  WriteLn;
end;

procedure RecursivePermutations(const N, K: Integer; X: TArray);
var
  I: Integer;
begin
  if K = N then
  begin
    Inc(C);
    Print(N, X);
    Exit;
  end;
  for I := 1 to N do
  begin
    if S[I] = 0 then
    begin
      S[I] := 1;
      X[K + 1] := I;
      RecursivePermutations(N, K + 1, X);
      S[I] := 0;
    end;
  end;
end;

procedure Permutations(const N: Integer);
var
  X: TArray;
  I: Integer;
begin
  for I := 1 to N do
    S[I] := 0;
  RecursivePermutations(N, 0, X);
end;

function Factorial(const N: Integer): Integer;
begin
  if (N = 0) or (N = 1) then
  begin
    Factorial := 1;
    Exit;
  end;
  Factorial := N * Factorial(N - 1);
end;

var
  N: Integer;
begin
  Assign(F, Source);
  Reset(F);
  ReadLn(F, N);
  Close(F);
  Assign(F, Source);
  Rewrite(F);
  WriteLn(F, Factorial(N));
  Assign(Output, Target);
  Rewrite(Output);
  C := 0;
  Permutations(N);
  Close(F);
end.