🚀 go-pugleaf

$B$J$+$J$+LLGr$=$&$@!#(B
$B8e$G9M$($F$_$h$&!#(B

In article <65om3n$k3m$1@meshsv230.tk.mesh.ad.jp> "Takashi Sato" <aem29351@biglobe.ne.jp> writes:
>>
>>   $B3X9;$N%W%m%0%i%_%s%0$N2]Bj$K(B
>>
$B$H$$$&$3$H$J$N$G!"650i>e$NG[N8$+$i@52r$=$N$b$N$r<($9$N$O95$($F(B
$B%R%s%H$@$1$K$7$F$*$-$^$9!#(B

>>
>>   $B$[$\40@.$K6a$$$H;W$&$s$G$9$,!"(B
>>   $B<B9T$5$;$k$H(Bp[i]$B$K$J$<$+Hs>o$KBg$-$J?t$,I=<($5$l$F$7$^$$$^$9!#(B
>>   $B$I$3$,4V0c$C$F$$$k$N$+65$($F$$$?$@$1$J$$$G$7$g$&$+!#(B
>>

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

--
OGAWA, Hiroshi(santa@kangaku-u.ac.jp)
Associate Professor(Labour Economics)
Department of Economics, Kanto-Gakuen Univ. Gunnma, Japan

In article <65satj$sfl$1@meshsv230.tk.mesh.ad.jp> "Takashi Sato" <aem29351@biglobe.ne.jp> writes:
>>
>>   $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$3$l$O!"FC$K<jB3$-$d4X?t$GF1$8L>A0$r@k8@$7$J$$8B$j$O(B
$B30$G@k8@$7$?L>A0$r$=$N$^$^<jB3$-$d4X?t$NCf$G$b;H$($k!#(B
$B$H$$$&$@$1$G$9!#2~DjHG$N%W%m%0%i%`$rNc$K$H$k$H!"(Bperm$B$G$b(Bshokika$B$G$b(B
global$BJQ?t$N(B p$B$r;H$$B3$1$k!#$H$$$&$3$H$G$9!#$b$A$m$s!"$3$l$G$O(B
$B$&$^$/F0$-$^$;$s!#<B9T$7$F$_$^$7$?$,(B n >= 4$B$@$HGKC>$9$k$h$&$G$9!#(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
>>
$B0l1~?7$7$$(B ISO-pascal$B$G$O(B array[1..Max] of integer$B$_$?$$$J(B
$B0z?t$b;H$($k$h$&$G$9$,!"<B:]$K$O$3$3$i$X$s$O%3%s%Q%$%i0MB8$N$h$&$G$9!#(B

$B3N<B$J$N$O(B type$B$G?7$7$$7?$H$7$F;H$$$?$$G[Ns$rDj5A$7$F$+$i(B
$B0z?t$K;H$&$3$H$@$m$&$H;W$$$^$9!#(B
--
OGAWA, Hiroshi(santa@kangaku-u.ac.jp)
Associate Professor(Labour Economics)
Department of Economics, Kanto-Gakuen Univ. Gunnma, Japan

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

$B:F$S:4F#!wEl9)Bg$G$9!#(B

$B$d$C$H%W%m%0%i%`$,40@.$$$?$7$^$7$?!#(B
$B3'MM$N$46(NO46<U$$$?$7$^$9!#(B

$B$3$&$$$&JXMx$J$b$N$,$"$k$H$O!&!&!&!#(B
$B$^$?2?$+$"$j$^$7$?$iEj9F$5$;$F$$$?$@$-$^$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

In article <65satj$sfl$1@meshsv230.tk.mesh.ad.jp>, 
"Takashi Sato" <aem29351@biglobe.ne.jp> wrote:

$B%P%0$,$I$3$K$"$k$+$OJL$NJ}$,Ej9F$5$l$F$$$k$h$&$J$N$G!"(B

> $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!!$3$l$G$O%3%s%Q%$%i$bDL$i$J$$$N$G$O!)2>0z?t$N7?$O7?L>$G;XDj$9$k$h$&$K(B
$B5-21$7$^$9$,!#(B
$B!t:G6a%W%m%0%i%`=q$$$F$J$$$N!#(B

const
   MaxIndex = $B$[$K$c$i$i(B;
type Index = 1..MaxIndex;
     MyArray = array[Index] of integer;
$B$H$d$C$F$*$$$F(B

procedure perm(a : MyArray);
begin
$B!!$I$&$?$i$3$&$?$i(B
end

$B$H=q$$$?$i$I$&$G$7$g$&!#(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!!$3$l$K$O#2$DJ}K!$,$"$j!"0l$D$O>e5-$N$h$&$JCM0z?t!"$b$&0l$D$OJQ?t0z?t(B
 
procedure perm(var a : MyArray);
begin
$B!!$I$&$?$i$3$&$?$i(B
end

$B$G$9!#2?$,0c$&$+!"$I$&;H$&$+$O!"N.@P$KJY6/$7$FD:$$$?$[$&$,$h$$$G$7$g$&!#(B

$B!tJL$K!VG[Ns$@$+$i!WFC<l$JJ}K!$,$"$k$o$1$G$O$J$$$s$G$9$h!#(BPascal$B$O$=$s(B
$B$J8@8l$8$c$"$j$^$;$s!#(B

$B!!$b$72H$K(BPC$B$,$"$l$P!"(BPC-UNIX, OS/2, DOS, Windows$B$J$s$A$c$i$N$I$N(B
$B%W%i%C%H%U%)!<%`$G$b!"$=$l$J$j$N%U%j!<$N(BPascal$B=hM}7O$,$"$j$^$9!#@'Hs(B
$B2H$G$bAv$i$;$F$_$k$3$H$r$*A&$a$7$^$9!#(B

-- 
Haruo Toda, Niigata Univ.

$B:4F#!wEl9)Bg$G$9!#(B

Haruo Toda wrote in message ...

>$B!!$b$72H$K(BPC$B$,$"$l$P!"(BPC-UNIX, OS/2, DOS, Windows$B$J$s$A$c$i$N$I$N(B
>$B%W%i%C%H%U%)!<%`$G$b!"$=$l$J$j$N%U%j!<$N(BPascal$B=hM}7O$,$"$j$^$9!#@'Hs(B
>$B2H$G$bAv$i$;$F$_$k$3$H$r$*A&$a$7$^$9!#(B


yahoo japan$B$J$I$N8!:w%(%s%8%s$GC5$7$F$_$?$N$G$9$,(B
$B$=$l$i$7$-%Z!<%8$,8+$D$+$j$^$;$s!#(B
$B$*<j?t$G$9$,!"$I$J$?$+$=$N$h$&$J%Z!<%8$r$4B8$8$JJ}$,(B
$B$$$i$C$7$c$$$^$7$?$i65$($F$$$?$@$1$J$$$G$7$g$&$+!#(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

In <663ev8$9i0$1@meshsv230.tk.mesh.ad.jp>, "Takashi Sato" <aem29351@biglobe.ne.jp> writes:
>$B:4F#!wEl9)Bg$G$9!#(J
>
>Haruo Toda wrote in message ...
>
>>$B!!$b$72H$K(JPC$B$,$"$l$P!"(JPC-UNIX, OS/2, DOS, Windows$B$J$s$A$c$i$N$I$N(J
>>$B%W%i%C%H%U%)!<%`$G$b!"$=$l$J$j$N%U%j!<$N(JPascal$B=hM}7O$,$"$j$^$9!#@'Hs(J
>>$B2H$G$bAv$i$;$F$_$k$3$H$r$*A&$a$7$^$9!#(J
>
>
>yahoo japan$B$J$I$N8!:w%(%s%8%s$GC5$7$F$_$?$N$G$9$,(J
>$B$=$l$i$7$-%Z!<%8$,8+$D$+$j$^$;$s!#(J
>$B$*<j?t$G$9$,!"$I$J$?$+$=$N$h$&$J%Z!<%8$r$4B8$8$JJ}$,(J
>$B$$$i$C$7$c$$$^$7$?$i65$($F$$$?$@$1$J$$$G$7$g$&$+!#(J
>$B$h$m$7$/$*4j$$$7$^$9!#(J
>

$B!!(JYahoo! Japan$B$G$O8+$D$+$i$J$$$+$bCN$l$^$;$s!#2?$;!"$b$O$d(J
$B%^%$%J!<8@8l$i$7$$$G$9$7!"$=$b$=$b(JYahoo! Japan$B$F%R%C%HN($,(J
$BDc$/$F!#(J

$B!!(JGNU Pascal Compiler (GPC)$B$rC5$7$F$_$F2<$5$$!#?=$7Lu$J$$$N(J
$B$G$9$,!"<j5v$K%V%C%/%^!<%/$,$"$j$^$;$s!#(JAltavista$B$G8!:w$9$k(J
$B$H8+$D$+$k$H;W$$$^$9!#$3$l$G(JPC-UNIX, OS/2, Windows$B$J$s$A$c(J
$B$i$O%/%j%"$7$^$7$?$M!#(J

$B!!(JDOS$BMQ$G$O(Jhttp://www.tmt.com/$B$G(JTMT Pascal Lite for DOS$B$N$*;n$7(J
$BHG$,8+$D$+$k$H;W$$$^$9!#(JOS/2$BMQ$b$"$k$O$:$G$9!#$?$@$7(JTurbo
Pascal$B8_49$r$&$?$C$F$$$k$G!"$A$g$$JJ$,$"$j$^$9!#(J

$B!!9q;:$G$O(JCABEZON$B$H$$$&$3$l$^$?(JDOS$B$N$,$"$j$^$7$?!#(JNifty
$B$N%W%m%0%i%_%s%08@8l%U%)!<%i%`$G:n<T$N3Z$7$$OCBj$rFI$s$@$N$r(J
$B;W$$=P$7$^$9!#:#$G$b$"$k$G$7$g$&$+!#(J

--
Haruo Toda, Niigata Univ. Already WARPed!

"Takashi Sato" <aem29351@biglobe.ne.jp> writes:

> $B:4F#!wEl9)Bg$G$9!#(B
> 
> Haruo Toda wrote in message ...
> 
> >$B!!$b$72H$K(BPC$B$,$"$l$P!"(BPC-UNIX, OS/2, DOS, Windows$B$J$s$A$c$i$N$I$N(B
> >$B%W%i%C%H%U%)!<%`$G$b!"$=$l$J$j$N%U%j!<$N(BPascal$B=hM}7O$,$"$j$^$9!#@'Hs(B
> >$B2H$G$bAv$i$;$F$_$k$3$H$r$*A&$a$7$^$9!#(B
> 
> 
> yahoo japan$B$J$I$N8!:w%(%s%8%s$GC5$7$F$_$?$N$G$9$,(B
> $B$=$l$i$7$-%Z!<%8$,8+$D$+$j$^$;$s!#(B
> $B$*<j?t$G$9$,!"$I$J$?$+$=$N$h$&$J%Z!<%8$r$4B8$8$JJ}$,(B
> $B$$$i$C$7$c$$$^$7$?$i65$($F$$$?$@$1$J$$$G$7$g$&$+!#(B
> $B$h$m$7$/$*4j$$$7$^$9!#(B

GNU Pascal $B$,$=$3$=$3;H$($k$h$&$K$J$C$F$$$k$h$&$G$9!#(BWWW $B$N%[!<%`%5%$(B
$B%H$N(B URL $B$O!"(B

	http://home.pages.de/~GNU-Pascal/

$B$G$9!#8=:_!"@5<0HG$O(B version 2.0 $B$G$9$,!"%3%s%Q%$%i$NF0:n$,2x$7$$$H;W(B
$B$o$l$k$H$-$O!"(B

	ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/beta/

$B$K$"$k%Y!<%?$r;H$C$F$_$k$HD>$C$F$$$k$3$H$b$"$j$^$9!#$?$@$7!"%Y!<%?$O$9(B
$B$Y$F$N%W%i%C%H%[!<%`$N%P%$%J%j$,B7$C$F$$$k$o$1$G$O$J$$$N$G!"%3%s%Q%$%k(B
$B$,I,MW$K$J$k$+$b$7$l$^$;$s!#:G?7$N%Y!<%?$O(B 971001 $BIU$NJ*$G$9!#(B

----------------------------------------------------------------------
$B$=$,$7(B($BA>2f(B $B;MO:(B)        E-Mail:             sogashi@msd.biglobe.ne.jp
                         URL:     http://www2k.biglobe.ne.jp/~sogashi/