🚀 go-pugleaf

$B2,K\!w6bBtBg3X$G$9!#(B

<5asgt4$ijm@doc.dpc.ehime-u.ac.jp>$B$K$*$$$F(B

$B!d(B  $B;d$NCN$C$F$$$k(B PASCAL $B$,8E$9$.$k$N$G$7$g$&$+!":G6a$NI8=`(B
$B!d$OCN$i$J$$$N$GF\DA4A$J$3$H$r8@$C$F$k$+$b$7$l$^$;$s$,!"(B
$B!d(B
$B!d(B    program fileoperation(input, output, f1, f2);
$B!d(B    var f1, f2: file of integer;
$B!d(B    begin
$B!d(B        reset(f1); rewrite(f2);
$B!d(B        { ... }
$B!d(B    end.
$B!d(B
$B!d$H$$$&46$8$K(B program $B@k8@$NItJ,$G;H$&%U%!%$%kL>(B f1,f2 $B$r;X(B
$B!dDj$7$F!"$=$N%U%!%$%kL>$HF1$8%U%!%$%k7?JQ?t$r;H$o$J$$$H$$$1(B
$B!d$J$$$H$$$&J8K!$G$O$J$+$C$?$G$9$+!)(B $B$3$l$,LLE]$H46$8$?M}M3(B
$B!d$G$9!#FH<+3HD%$O$3$s$J$3$H$O$J$$$G$9$M!#(BTurbo PASCAL $B$J$i(B
$B!d(Bassign(f1,'f1.dat') $B$G!"<B:]$N%U%!%$%kL>$H7k$S$D$1$k$N$G$7(B
$B!d$?$h$M!#(B

$B!!(BFACOM$B$N(BPASCAL$B$G$b<!$N$h$&$K4JC1$G$9!#(B

//$B!!#J#O#BJ8(B
//   EXEC  PASCG
//PAS.SYSIN  DD  *
PROGRAM  DEMO;
BEGIN
      WRITELN('SAMPLE PROGRAM');
END.
/*
//

$B!!>e$N%8%g%V$O6bBtBg3XAm9g>pJs=hM}%;%s%?!<$G%P%C%A=hM}$G$-$^$9!#(B
$B!!$?$7$+!"0&I2Bg3X$N7W;;5!$b(BFOCOM$B$@$C$?$H5-21$7$F$$$^$9!#(B
$B$*;n$72<$5$$!#(B


$B!d(B  $B$H$$$&$h$&$J<jB3$-Fb4X?t(B(max)$B$r;H$C$?$j$9$k$H$7$^$9!#$3$N(B
$B!d(Bmax $B$O(B C++ $B$G$O!"B?BV@-$r;H$C$F(B
$B!d(B
$B!d(B    template <class T> T max(T a, T b) { /* ... */ }
$B!d(B
$B!d$N$h$&$K=q$/$3$H$,$G$-$^$9!#(B($B<B$OAm>N7?$N35G0$bF1;~$K;H$C$F(B
$B!d$^$9$,(B) $B$3$l$O%0%m!<%P%k$J$b$N$K$G$-!"(BSortInteger $B$d(B SortReal

$B!!$3$l$O4X?t%F%s%W%l!<%H!"$"$k$$$OHFMQ4X?t$N5!G=$G$9$M!#(B

$B!!B?BV@-$O!"(BTurbo Pascal 5.5$B$J$$$7(BObject Pascal/Delphi$B$K$*$$$F$O(B
$B%/%i%97?!J(BTP$B$G$O%*%V%8%'%/%H7?!K$NBeF~8_49@-$K4X$9$k35G0$G$9!#(B

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

$B!!(BObject Pascal$B$K$*$$$F$b!"7Q>5$,JXMx$J5!G=$G$"$k$3$H$O<B:]$K(B
$B7P83$7$F$*$j$^$9$,!"4X?tFb4X?t$NBeMQ$H9M$($k$N$OL5Cc$G$9$M!#(B
$B!!;d$O!"4X?tFb4X?t$,%m!<%+%k$KM-8z$G$"$k$H$$$&$H$3$m$KD9=j$r(B
$B8+$F$$$^$9!#(B


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

$B!!2,5W$5$s$O:G=i$N5-;v$G<!$N$h$&$K=q$$$F$*$i$l$^$9!#(B

$B!d(B  $BBg3X$GNI$/<*$K$9$k$N$O!"8&5f<<$KG[B0$5$l$F$b!"(B
$B!d(BPASCAL $B$7$+CN$i$J$$$N$G;H$$$b$N$K$J$i$J$$$H$$$&6l(B
$B!d>p$G$9!#(BFORTRAN $B$O$^$@I,MW$H$9$k8&5f<<$OB?$$$H;W(B
$B!d$$$^$9$,!#(B

$B!!>e$N$3$H$rG0F,$K$*$-$^$9$H!"(BFORTRAN$B$,8uJd$N#1$D$K$"$2$i$l$F$$$J$$$N$,(B
$BIT;W5D$J$N$G$9!#(B

$B2,K\0B@2(B
C00279@sinet.ad.jp