🚀 go-pugleaf

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

<E3MrJJ.66z@info.sinet.ad.jp>$B$N5-;v$K$*$$$F(B
C00279@sinet.ad.jp$B$5$s$O=q$-$^$7$?!#(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$$$d!"I8=`F~=PNO$@$1;H$($l$PNI$$$H$$$&>l9g$P$+$j(B
$B$G$O$J$$$G$9$h$M!#F1;~$KJ#?t$NF~NO$d=PNO$,I,MW$K$J(B
$B$k>l9g$b$"$j$^$9!#$G!"3HD%$GNI$$$N$G$7$?$i!";d$O(B
Delphi $B$OH]Dj$7$F$^$;$s$+$i!"(BWindows $B4D6-$,<gN.$K(B
$B$J$l$P(B Delphi $B$GNI$$$G$9$h!#(B

$B!t(B $B$-$C$H!"AGKQ$J(B PASCAL $B$J$N$+<BMQ3HD%$5$l$?(B PASCAL
$B!t(B $B$J$N$+$GOC$,?)$$0c$C$F$$$k$N$G$7$g$&!#(B


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


  $B$4$b$C$H$b!"$7$+$7!"(BC++ $B$K$*$$$F4X?t%F%s%W%l!<%H(B
$B$,@.$jN)$DGX7J$K$OB?BV@-$,1#$5$l$F$$$^$9!#$G$9$+$i!"(B
$BF1;~$KAm>N7?$N35G0$b;H$C$F$$$k$H=q$-$^$7$?!#(B

    int max(int, int);
    double max(double, double);

$B$H=q$1$PNI$+$C$?$h$&$G$9$M!#$A$g$C$HM_D%$j$9$.$^$7(B
$B$?!#(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$&!<$s!"$3$A$i$O7Q>5$N35G0$G$O$J$$$N$G$9$+!)(B $B4p(B
$BDl%/%i%9(B($B%9!<%Q!<%/%i%9(B)$B$r%3%s%F%J$H$7$F;H$($k$H$$(B
$B$&$d$D$G$9$h$M!#$b$A$m$s!"2>A[4X?t(B($B%a%=%C%I$H%a%C(B
$B%;!<%8$NF0E*7k9g(B)$B$,Mm$s$G$/$l$P!"B?BV@-$K$b$J$j$^(B
$B$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$9$$$^$;$s!#87L)$K=q$+$J$+$C$?$N$G8m2r$J$5$l$?$h$&(B
$B$G$9$M!#7Q>5$dB?BV@-$r;H$&$N$O:#F|E*2r7h:v$J$N$G$"$C(B
$B$F!VBeMQ!W$G$O$"$j$^$;$s!#(BC++ $B$K$*$$$F$O%/%i%9$N(B
private $B%a%=%C%I$r;H$&$3$H$b$G$-$^$9$7!"F~$l;R$N%/%i(B
$B%9$r;H$&$3$H$b$G$-$^$9!#BeMQ$O$3$l$G=<J,$G$9!#:G6a$N(B
C++ $B$J$i(B namespace $B$J$k35G0$G$bBeMQ$G$-$k$G$7$g$&!#(B

  $B5!G=Cf?4$G$=$l$r=y!9$KJ,3d$7$F$$$/%H%C%W%@%&%s@_7W(B
$B$K$*$$$F8=$l$,$A$J4X?tFb4X?t$N$h$&$J9=B$$h$j$b!#!V$b(B
$B$N!W$N$h$jHFMQE*@-<A$KL\$r$`$1$k!"7Q>5!?B?BV@-!?Am>N(B
$B7?$J$I$N35G0$rMQ$$$?J}$,!":FMxMQ@-$N9b$$%W%m%0%i%`$,(B
$B:n$l$k$H$$$&<gD%$G$9!#(B

$B!t(B $B%m!<%+%k$KM-8z$H$O$9$J$o$A;H$$$^$o$;$J$$$H$$$&$3$H(B
$B!t(B $B$G$9$M!#$b$A$m$s!":FMxMQ@-$,9b$1$l$P$=$l$G$h$7$H$$(B
$B!t(B $B$&>l9g$P$+$j$G$O$J$$$3$H$OH]Dj$7$^$;$s!#(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


  FORTRAN $B$r!V65$($k!W8uJd$K$"$2$F$J$$$N$,IT;W5D$H$$(B
$B$&$3$H$J$N$G$9$M!#$d$C$HJ,$+$j$^$7$?!#;d$N0U8+$O!"(B

    $B65$($k8@8l$,#1$D$@$1$H8@$o$l$l$P!"(BC/C++ $B$"$k$$$O(B
    FORTRAN 77 ($BBP>]$H$J$k3X2J$d3X@8$GH=CG$9$k(B)

    $BJ#?t$N8@8l$r65$($k$Y$-$H$$$&$N$J$i(B C/C++,
    FORTRAN 77, LISP, Prolog

$B$H$$$&$b$N$G$9!#$=$l$G$^$@B-$j$J$$$H$$$&$3$H$J$i(B
PASCAL $B$G$9!#(B (Delphi, Visual BASIC $B$ONc30$G$9$+$i8m(B
$B2rL5$-$h$&!#(BTurbo PASCAL $B$O(B Delphi $B$K4^$^$l$k$H$7$^(B
$B$9(B)

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