Thread View: fj.lang.pascal
2 messages
2 total messages
Started by C00279
Tue, 07 Jan 1997 00:00
Re: Pascal/Delphi
Author: C00279
Date: Tue, 07 Jan 1997 00:00
Date: Tue, 07 Jan 1997 00:00
79 lines
3210 bytes
3210 bytes
$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
Re: Pascal/Delphi
Author: okahisa
Date: Tue, 07 Jan 1997 00:00
Date: Tue, 07 Jan 1997 00:00
103 lines
3968 bytes
3968 bytes
$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
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads