🚀 go-pugleaf

$B2,5W!w0&I2Bg3X$G$9!#(B

$B!t(B $B2,K\!w6bBtBg3X$5$s$bJR;3!w#P#F#U$5$s$b(B fj.lang.pascal $B$N(B
$B!t(B $B$_$GE,Ev$HH=CG$5$l$?$h$&$J$N$G!";d$b$=$&$7$^$9!#(B


<E32Dws.5nr@info.sinet.ad.jp>$B$N5-;v$K$*$$$F(B
C00279@sinet.ad.jp$B$5$s$O=q$-$^$7$?!#(B

>>   FACOM$BMQ$N(BPASCAL$B$G$bJ,3d%3%s%Q%$%k$,%5%]!<%H$5$l$F$$$^$9!#$b$C$H$b!";d$O(B
($BCfN,(B)
>> $B$G$7$g$&$+!#(BFACOM$B$G(BFORTRAN$B$+$i(BPASCAL$B$K0\$C$?$H$-!"%U%!%$%k$N<h07$$$,LLE]$K(B
>> $B$J$C$?$H$O;W$$$^$;$s$G$7$?$,!#(B


  $B;d$NCN$C$F$$$k(B PASCAL $B$,8E$9$.$k$N$G$7$g$&$+!":G6a$NI8=`(B
$B$OCN$i$J$$$N$GF\DA4A$J$3$H$r8@$C$F$k$+$b$7$l$^$;$s$,!"(B

    program fileoperation(input, output, f1, f2);
    var f1, f2: file of integer;
    begin
        reset(f1); rewrite(f2);
        { ... }
    end.

$B$H$$$&46$8$K(B program $B@k8@$NItJ,$G;H$&%U%!%$%kL>(B f1,f2 $B$r;X(B
$BDj$7$F!"$=$N%U%!%$%kL>$HF1$8%U%!%$%k7?JQ?t$r;H$o$J$$$H$$$1(B
$B$J$$$H$$$&J8K!$G$O$J$+$C$?$G$9$+!)(B $B$3$l$,LLE]$H46$8$?M}M3(B
$B$G$9!#FH<+3HD%$O$3$s$J$3$H$O$J$$$G$9$M!#(BTurbo PASCAL $B$J$i(B
assign(f1,'f1.dat') $B$G!"<B:]$N%U%!%$%kL>$H7k$S$D$1$k$N$G$7(B
$B$?$h$M!#(B


>>   $B7Q>5$HB?BV@-$O%*%V%8%'%/%H$K$D$$$F$N35G0$G$9$,!"4X?tFb4X?t$N$I$N$h$&$J(B
>> $B5!G=$r%*%V%8%'%/%H$N7Q>5$HB?BV@-$GCV$-49$($k$N$G$7$g$&$+!#(B


  $B$?$H$($P!"%=!<%H$N%W%m%0%i%`$r9M$($F$_$F$/$@$5$$!#$J$i$S(B
$B49$($kMWAG$N7?$K$h$j!"(B

    type
        IntegerArray = array[1..100] of integer;
        RealArray = array[1..100] of real;
    procedure SortInteger(var data: IntegerArray);
        function max(a, b: integer): integer;
        { ... }
    procedure SortReal(var data: RealArray);
        function max(a, b: real): real;
        { ... }

  $B$H$$$&$h$&$J<jB3$-Fb4X?t(B(max)$B$r;H$C$?$j$9$k$H$7$^$9!#$3$N(B
max $B$O(B C++ $B$G$O!"B?BV@-$r;H$C$F(B

    template <class T> T max(T a, T b) { /* ... */ }

$B$N$h$&$K=q$/$3$H$,$G$-$^$9!#(B($B<B$OAm>N7?$N35G0$bF1;~$K;H$C$F(B
$B$^$9$,(B) $B$3$l$O%0%m!<%P%k$J$b$N$K$G$-!"(BSortInteger $B$d(B SortReal
$B0J30$+$i$b;H$&$3$H$,$G$-$^$9!#7Q>5$NNc$O@bL@$,D9$/$J$C$F$7$^(B
$B$$$^$9$N$G!"%*%V%8%'%/%H;X8~$K$D$$$F2r@b$5$l$?=q@R$r$"$?$C$F(B
$B$_$F$/$@$5$$!#$I$A$i$K$7$F$b;H$$$^$o$7$,$G$-$k$H$$$&LL$,!"4X(B
$B?tFb(B($B<jB3$-Fb(B)$B4X?t$H$O0c$&$H$3$m$G$9!#(B

$B!t(B SortInteger $B$d(B SortReal $B$bB?BV@-$r;H$($P(B Sort $B$K$G$-$^$9!#(B


>> $B!d(B  $B$?$@!"8=>u$G$O!">/$J$/$H$b;d$N<~$j$G$O(B UNIX $B$N4D6-$,B?$$$N(B
>> $B!d$G!"(BPASCAL $B$H(B C $B$H$$$&;w$?$h$&$J8@8l$rFs=E$K65$($kL5BL$r$9$k(B
>> $B!d$h$j$O!"$O$8$a$+$i(B C $B$r65$($?J}$,!"6541$K$b3X@8$K$bIiC4$,>/$J(B
>> $B!d$$$H;W$$$^$9!#B>$NJ}$N=j$G$O$I$&$J$N$G$7$g$&!)(B
>> 
>>   FORTRAN$B$,8uJd$N#1$D$K$"$2$i$l$F$$$^$;$s$,!"M}M3$O2?$J$N$G$7$g$&$+!#(B


  $B$I$&$b!"(BFORTRAN $B$K4X$9$k<ALd$N0UL#$,$O$C$-$j$HJ,$+$i$J$$$N(B
$B$G$9$,!"$I$N$h$&$J8f<ALd$G$9$+!)(B

--
Email: okahisa@cs.ehime-u.ac.jp