🚀 go-pugleaf

Hiroshi OGAWA wrote in message ...

>1. p$B$H$$$&G[Ns$O$A$c$s$H=i4|2=$5$l$F$$$^$9$+!)(B
>2. p$B$H$$$&G[Ns$O$$$D=i4|2=$9$Y$-$G$9$+!)(B
>3. p$B$H$$$&G[Ns$O:F5"E*$K8F=P$9<jB3$-$K$I$N$h$&$KEO$5$l$k$Y$-$G$9$+!)(B
>
>$B=q$-D>$7$F<B9T$7$F$_$?$H$3$m!"JB$Y$+$($NItJ,$O@5$7$$$h$&$G$9$N$G!"(B
>$B$=$3$r$$$8$kI,MW$O$J$$$H;W$$$^$9!#(B


$B0J>e$N$h$&$J%R%s%H$r85$K?7$7$/:n$jD>$7$^$7$?$,!"(B
$B#3HV$N%R%s%H$K$D$$$F<ALd$G$9!#(B
$BG[Ns$r:F5"E*<jB3$-$KEO$9J}K!$,$h$/$o$+$C$F$$$^$;$s!#(B
$B%F%-%9%H$r$_$F$_$k$HM-8zHO0O5,B'$NCf$K(B
$B!VFbB&$N<jB3$-$d4X?t$GF1$8L>A0$rDj5A!&@k8@$7$F$$$k>l9g$O!"(B
$BFbB&$NF1$8L>A0$NNN0h$r$N$>$/!W(B
$B!J!V(Bpascal$B%W%m%0%i%_%s%0$N4pAC!W%5%$%(%s%9<R$+$iH4?h!K(B
$B$H=q$$$F$"$j$^$7$?$N$G0J2<$N$h$&$J%W%m%0%i%_%s%0$r=q$$$?$N$G$9$,(B
$B!J2H$K(Bpascal$B$,$J$$$b$N$G$9$+$i$9$0$K<B9T$7$F;n$9$3$H$,$G$-$:(B
$B$o$6$o$6%K%e!<%9$KEj9F$5$;$F$$$?$@$-$^$7$?!#!K(B
program parmutation(input,output);
{1$B$+$i(Bn$B$^$G$N=gNs$r$9$Y$FI=<($9$k%W%m%0%i%`(B}
const Max=10;
var
   n : integer;
   p : array [1..Max] of integer;
procedure shokika(tail:integer);
var i : integer;
begin
$B!!(Bfor i:=1 to tail do
$B!!!!(Bp[i]:=i
end;
procedure perm(head,tail : integer);
var i,h,l : integer;
begin
   if head=tail then
   begin
      for i:=1 to tail do
  $B!!!!!!(Bwrite(p[i]);
      writeln;
   end
   else
   begin
      for l:=head to tail do
      begin
  $B!!!!!!(Bh:=p[l];
  $B!!!!!!(Bp[l]:=p[head];
  $B!!!!!!(Bp[head]:=h;
  $B!!!!!!(Bperm(head+1,tail)
      end;
    shokika(tail)
    end
end; { perm }
   
begin
   writeln('1$B$+$i(B',Max);
   readln(n);
   shokika(n);
   perm(1,n)
end.

$B0JA0$KG[Ns$r<jB3$-$K(B
$BEO$=$&$H$7$F(B
procedure perm(a : array [1..n] of integer
$B$N$h$&$K$d$C$?$i%(%i!<$,$G$^$7$?!#(B

$B>e$N%W%m%0%i%`$,@5$7$/F0$/$+$OJL$H$7$F(B
$BG[NsA4BN$r<jB3$-$d4X?t$KEO$9J}K!$O$"$k$N$G$7$g$&$+!#(B
$B%F%-%9%H$r$_$F$b$O$C$-$j:\$C$F$$$^$;$s!#(B

$B$h$m$7$/$*4j$$$7$^$9!#(B

$BEl5~9)6HBg3X9)3XIt>pJs9)3X2J#2G/(B
$B:4F#!!5.(B
E-mail address aem29351@biglobe.ne.jp
Home Page http://www2s.biglobe.ne.jp/~sattak/index.html