Cod sursa(job #574480)
Utilizator | Data | 7 aprilie 2011 11:07:24 | |
---|---|---|---|
Problema | Generare de permutari | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.48 kb |
var x:array[0..8] of byte;
n,i:byte;
use:array[0..8] of boolean;
procedure afisare;
var i:byte;
begin
for i:=1 to n do write(x[i],' ');
writeln;
end;
procedure back(k:byte);
var i:byte;
begin
for i:=1 to n do
if not use[i] then
begin
x[k]:=i;
use[i]:=true;
if k=n then afisare
else back(k+1);
use[i]:=false;
end;
end;
begin
assign(input,'permutari.in');
reset(input);
assign(output,'permutari.out');
rewrite(output);
readln(n);
back(1);
end.