Cod sursa(job #196340)

Utilizator nod_softwareBudisteanu Ionut Alexandru nod_software Data 25 iunie 2008 18:55:29
Problema Generare de permutari Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 1.09 kb
program permutari;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var i,j,n,m,k,p:integer;
    fin,fout:text;
    sol:array [1..8] of integer;
    v:array [1..8] of byte;
{*-------------------------------*}
procedure tipar;
begin
        for i:=1 to n do write(fout,sol[i],' ');
        writeln(fout);
end;
{*-------------------------------*}
procedure back(k:integer);
var i:integer;
begin
        if k > n then
        begin
                tipar;
        end
        else
        begin
                for i:=1 to n do
                begin
                        sol[k]:=i;
                        if v[i] = 0 then
                        begin
                                v[i]:=1;
                                back(k+1);
                                v[i]:=0;
                        end;
                end;
        end;
end;
{*-------------------------------*}
begin
        assign(fin,'permutari.in'); reset(fin);
        assign(fout,'permutari.out'); rewrite(fout);

        readln(fin,n);
        back(1);

        close(fin);
        close(fout);
end.