🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #244

Re: Pascal/Delphi

#244
From: okahisa
Date: Wed, 08 Jan 1997 00:00
78 lines
3118 bytes
$B2,5W!w0&I2Bg3X$G$9!#(B

  $B2?$+8m2r$5$l$F$$$k$h$&$J$N$G(B...


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

>> $B!d(B  $B$3$N;~!"(BF1, F2 $B$OJQ?tL>$G$"$j%U%!%$%kL>$H$b$J$C$F$$$k(B
>> $B!d$N$G$7$g$&$+!)(B $B$@$H$7$?$i!"$d$O$j;d$OLLE]$@$H;W$$$^$9!#(B
>> 
>> $B!!I8=`0J30$N$b$N$r;H$&$H$-$K$O!"$=$l$KBP$7$F2?$i$+$N<1JL;R$,(B
>> $BI,MW$J$N$OEvA3$G$9$M!#(B


  $B$$$d!"I8=`$N(B PASCAL $B$N>l9g!"$3$N(B F1, F2 $B$K(B OS $B%l%Y%k(B
$B$N%U%!%$%kL>$r3d$jEv$F$kJ}K!$O5,Dj$5$l$F$$$J$$$N$G$O$J(B
$B$$$+$H$$$&$3$H$G$9!#$9$J$o$A!"(BPASCAL $B$K$H$C$F(B F1, F2
$B$O<1JL;R$G$"$k$HF1;~$K0l0U$J%U%!%$%kL>$H2r<a$9$k$7$+$J(B
$B$$$N$G$O$H$$$&$3$H$J$N$G$9$,!)(B $B:G6a!"JL$NI8=`$,7h$^$C(B
$B$?$N$G$7$g$&$+!)(B $B;d$O(B PASCAL $B$rN%$l$F5W$7$$$N$G!#(B

    reset(F1, 'file1.dat');
    assign(F1, 'file1.dat');

$B$J$I$O!"=hM}7AFH<+$N3HD%$G$9$h$M!#(B


>> $B!d(Bprogram $B@k8@$NItJ,$O$I$&$d$i>JN,$G$-$k$_$?$$$G$9$,!#(B
>> 
>> $B!!(BFACOM$B$N(BPASCAL$B$G$O!"%W%m%0%i%`F,It$O>JN,$G$-$^$;$s!#(B
>> Turbo Pascal$B$G$O%W%m%0%i%`%X%C%@!<$OITMW$G$7$?$,!#(B


  $B$3$l$O!"(B

    program prog(input,output,F1,F2);

  $B$r(B

    program prog;

$B$H>JN,$7$F$bNI$$$h$&$G$9$M$H$$$&0UL#$G$9!#(B


>> $B!!(BC$B$K%*%V%8%'%/%H;X8~;Y1g5!G=$,IU$$$?$b$N$O(BC++$B$G$9!#(B
>> Pascal$B$K%*%V%8%'%/%H;X8~;Y1g5!G=$,IU$$$?$b$N$O(BObject Pascal$B$J$I$G$9!#(B


  $B$3$3$b!"8m2r$J$5$l$?$+$J$H46$8$?$N$G!"$H$j$"$($:@bL@(B
$B$7$F$*$-$^$9$H!"(BC $B$K%*%V%8%'%/%H;X8~;Y1g5!G=$,$"$k$H8@$C(B
$B$F$$$k$o$1$G$O$"$j$^$;$s!#(BPASCAL $B$K%*%V%8%'%/%H;X8~;Y1g(B
$B5!G=$,IU$$$F$$$k$N$J$i!"(BC $B$h$j(B PASCAL $B$,650iMQ$KNI$$$+$b(B
$B$7$l$J$$$1$l$I!"(BPASCAL $B<+BN5l@$Be$N8@8l$J$N$G!"$H$j$?$F(B
$B$F(B C $B$rH]Dj$9$k8uJd$K$O@.$jF@$J$$$H$$$&0UL#$G$9!#(B

  $B0lJ}(B C $B$O!"5l@$Be$N8@8l$H$$$($I!"K\20$NE9F,$G$?$/$5$s(B
$B$N=q@R$rJ*?'$9$k$3$H$,2DG=$G$"$j!"=i3X<T$K$H$C$F!"$3$l(B
$B$O<+NO$G%9%F%C%W%"%C%W$r$O$+$k$?$a$K7g$+$;$J$$>r7o$G$9!#(B

$B!t(B $B%W%m$J$i$H$b$+$/(B... $B$o$6$o$6<h$j4s$;$J$$$H%@%a$J$h$&(B
$B!t(B $B$G$OOC$K$J$i$J$$$G$9!#$^$"!"?^=q4[$,$"$j$^$9$+!#(B


>> $B!d!t(B $B7+$jJV$7$^$9$,!"(BWindows $B4D6-$,@0$C$F$$$k$J$i!"(BDelphi
>> $B!d!t(B $B$OHs>o$KNI$$A*Br$@$H;W$$$^$9!#(B
>> 
>> $B!!(BDelphi$B$G:NMQ$5$l$F$$$k8@8l$O(BObject Pascal$B$G$9$h!#(B


  $B$3$N$"$?$j$K!"8m2r$N856'$,$"$k$h$&$G$9!#$=$&$G$9!"(BDelphi
$B$O(B Object Pascal $B$G$9!#$,!"(BObject Pascal $B$O(B Object Pascal
$B$G$9!#$*$o$+$j$G$9$+!)(B $B$=$7$F!";d$O(B Delphi $B$O$*5$$KF~$j(B
$B$J$N$G$9!#2?$+8fITK~$G$b!)(B

--
Email: okahisa@cs.ehime-u.ac.jp
Technical Details
Message-ID: <5avt25$fnl@doc.dpc.ehime-u.ac.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <E3oLo9.4yE@info.sinet.ad.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,21131d4a7ebf3b27
X-Google-Attributes: gidff90a,public
From: okahisa@cs.ehime-u.ac.jp
Subject: Re: Pascal/Delphi
Date: 1997/01/08
Message-ID: <5avt25$fnl@doc.dpc.ehime-u.ac.jp>
X-Deja-AN: 208518268
references: <E3oLo9.4yE@info.sinet.ad.jp>
organization: Ehime University, Japan
newsgroups: fj.lang.pascal