Newsgroups: fj.lang.misc
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!spool.mu.edu!sgiblab!nec-gw!nec-tyo!wnoc-tyo-news!virgil!uecgw!suzuki
From: suzuki@alp0.cs.uec.ac.jp (Suzuki Takuzi)
Subject: Re: [Pascal] Pascal for education (Re: Pointer)
In-Reply-To: wd@kurims.kyoto-u.ac.jp's message of Tue, 15 Dec 1992 10:33:06 GMT
Message-ID: <SUZUKI.92Dec16140658@alp0.cs.uec.ac.jp>
Followup-To: fj.lang.misc
Sender: usenet@uecgw.cs.uec.ac.jp
Nntp-Posting-Host: kmlab-gw.cs.uec.ac.jp
Organization: Dept. of Comput. Sci. and Info. Math., University of
	Electro-Communications.
References: <TOYODA.92Dec7160918@KMK017.usetu1.uchu.komukai.toshiba.co.jp>
	<ZIC.92Dec8192933@tcin0.tci.toshiba.CO.JP>
	<WD.92Dec15193306@hakobe.kurims.kyoto-u.ac.jp>
Distribution: fj
Date: Wed, 16 Dec 1992 05:06:58 GMT
Lines: 74
Xref: galaxy.trc.rwcp.or.jp fj.lang.misc:588
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.misc&nb=588&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

  $BNkLZ!w#U#E#C$H?=$7$^$9!%(BPascal$B$G%W%m%0%i%`$r=q$/$N$O9%$-$G$9!%(B
$BL5KE$+$b$7$l$^$;$s$,!$(BPascal$B$rMJ8n$7$F$_$^$7$g$&(B :-)

In article <WD.92Dec15193306@hakobe.kurims.kyoto-u.ac.jp> wd@kurims.kyoto-u.ac.jp (Kamo Hiroyasu) writes:

 | >$BHuED(B> $B!!(BPascal$B$O:GE,$G$"$k$H9M$($F$$$^$9!#4pK\E*$J;EMM$O=hM}7O$K0MB8$7$J$$(B
 |      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 | >$BHuED(B> $B!!$D$/$j$K$J$C$F$$$^$9$+$i!#(B
 |    ^^^^^^^^^^^^^^^^^^^^^^^^^
 |
 |  $B$=$l$O13$G$9$h!#:,5r$N$J$$?@OC$G$9$h!#(B

  $B$3$l$O(B Pascal $B$r:G=i$K:\$;$?7W;;5!$N(B I/O $B$K0MB8$7$F$$$k$=$&$G$9!%(B
$BF~=PNO$NLdBj$O(B Wirth $B<+?H$,(B Pascal $B$G2r7h$9$k$3$H$rEj$2$F$7$^$C$?(B
$BItJ,$J$N$G!$!H$H$j$"$($:J8;z$d?t$N%G!<%?$r=P$7F~$l$G$-$k!I$H$$$&(B
$B%l%Y%k$G2fK}$9$k$J$i$P!$BE6($G$-$k$N$G$O$J$$$G$7$g$&$+!%(B
  $B$D$$$G$K$$$&$H!$(Bwrite $BJ8$N=q<0;XDj$O(B FORTRAN $B$X$N(B translate $B$r(B
$BL@$i$+$K0U<1$7$F$$$^$9$M!%(B

 |  $B$=$l$J$i!"$$$C$=$N$3$H!J(BC $B$N$h$&$K!KF~=PNO$O%W%j%_%F%#%V$G$O$J$/%i%$(B
 |$B%V%i%j$KDI$$$d$C$?$[$&$,$h$C$]$IJXMx$J$N$K!"(BPascal $B$N8@8l;EMM$G$OF~=P(B
 |$BNO$O$7$C$+$j$H%W%j%_%F%#%V$K$J$C$F$$$^$9!#$G!"$b$C$H:$$C$?$3$H$K!"%W%j(B
 |$B%_%F%#%V$J$N$K%i%$%V%i%j$N$h$&$J3J9%$r$7$F$$$F!"8@8l;EMM$K$b%i%$%V%i%j(B
 |$B$G$"$k$+$N$h$&$K=q$$$F$"$k!#$^$C$?$/:$$C$?$b$s$@!#(B

  $BF~=PNO$r8@8l;EMM$K4^$a$J$$$d$j$+$?$C$F!$(BC $B0JA0$K$d$i$l$F$$$?$s$G$7$g(B
$B$&$+!%$=$l$K!V$H$j$"$($:$9$0$K=hM}7O$,:n$l$k!W$3$H$rL\E*$H$7$F:n$i$l$?(B
$B8@8l$G$9$+$i!$$d$C$Q$j%W%j%_%F%#%V$K$9$k$N$G$O$J$$$G$7$g$&$+!%8@8l;EMM$K(B
$B%i%$%V%i%j$N$h$&$K=q$$$F$"$k$N$O!$$`$7$m:G6a$N$b$N$N8+J}$K1F6A$5$l$F(B
$B$N$3$H$G$O$J$$$+$H!%(B

 |  Pascal $B$N8@8l;EMM>e$N35G0$,Cx$7$/L$@0M}$G$"$k$3$H$O!"%3%s%Q%$%i5;=Q(B
 |$B$+%W%m%0%i%`0UL#O@$N>/$J$/$H$b0lJ}$rM}2r$7$F$$$k?M4V$K$O!"$h$/CN$i$l$F(B
 |$B$$$k$3$H$G$9!#LdBjE@$O$?$/$5$s$"$j$^$9$,!":GBg$NLdBjE@$O%W%j%_%F%#%V$H(B
 |$B%i%$%V%i%j$N6hJL$,ITL@3N$G$"$k$3$H$G$9!#>e5-$NF~=PNO$,$=$N0lNc$G$9!#$b(B
 |$B$&$R$H$D!"F0E*5-214IM}$^$o$j$bF1$8>u67$K$J$C$F$$$^$9!#$=$NB>!"%l%3!<%I(B
 |$B$NDj?t$,=q$1$J$1$l$P%l%3!<%I$N=i4|2=$b$G$-$J$$$H$+!"Bg0hC&=P$,(B goto $B$G(B
 |$B9T$J$&$7$+$J$$$H$+!"<jB3$-0z?t$N7?IU$1$,%0%A%c%0%A%c$@$H$+!"<jB3$-!?4X(B
 |$B?t8F$S=P$7$GL50z?t$N;~!"<jB3$-!?4X?t$=$N$b$N$H6hJL$,$D$+$J$$9=J8$G$"$k(B
 |$B$H$+!"LdBjE@$O;3$N$h$&$K$"$j$^$9!#(B

  Pascal$B$,:G=i$KDs<($5$l$?;~E@$G$3$l$i$NLdBj$KBP$7$FL@2r$J;kE@$r;}$A9g(B
$B$o$;$F$$$??M$,$I$N$/$i$$$$$?$N$+5?Ld$G$9!%(B
  $B>/$J$/$H$b!$(BHoare $B$,=R$Y$?=j$N!V%G!<%?$N9=B$$r5-=R$9$k$?$a$N<jCJ!W(B
$B$rM?$($?8@8l$N$J$+$G!$:G=i$K;H$($k$h$&$K$J$C$?8@8l$G$"$k!$$H$$$&(B
$BE@$OI>2A$7$F$$$$$N$G$O!)(B

 | $B$3$l$@$18@8l$NDs6!$9$k35G0$,%0%A%c%0%A%c$KL$@0M}$J8@8l$OB>$K$J$$$G(B
$B$9(B
 |$B$M!#$7$+$b!"$3$l$@$1%0%A%c%0%A%c$J$N$K!"!V$-$l$$!W$@$H$+!VM}O@E*!W$@$H(B
 |$B$+?.$8$F$$$k86M}<g5A<T$,$?$/$5$s$$$k$N$b$9$4$$$G$9$h$M!#(B

 |  Pascal $B$,650i$K;H$($k8@8l$@$H$$$&$3$H$OH]Dj$7$^$;$s!#(B

  $B!V%W%m%0%i%`$r=q$/!W>e$GI,MW$J4pACCN<1$,>/$J$/$F:Q$`8@8l$N0l$D$@$H(B
$B;W$&$N$G$9!%$G!$(BBasic $B$h$j$OBg5,LO$J%W%m%0%i%_%s%0$b$d$j$d$9$$$7!$(B
$B!t$9$/$J$/$H$b(B C $B$G650i$r$O$8$a$k$h$j$O$d$5$7$$$H;W$&$N$G$9$,!$(B
$B!t$3$l$OCg4VFb$G$b0U8+$,$o$+$l$^$9!%;d$O>/?tGI!%(B

 |$B$?$/$5$s(B
 |$B$"$k8@8l$N$R$H$D$K$9$.$J$$$H$$$&$3$H$5$($-$A$s$H2!$($F$*$1$P!"(BPascal 
 |$B$4$H$-!"$=$s$J$K32$O$J$$$H9M$($F$$$k$H$$$&$N$,!"K\2;$+$b$7$l$^$;$s$,!#(B

  $B!V<jB3$-;X8~!W$G!VJQ?t$N=q49$($K$h$C$F7W;;$r?J$a$k!W%?%$%W$N8@8l$N(B
$B:G$bC1=c$J$b$N$KB0$9$k!$$H$$$&$N$,;d$N8+J}$G$9!%(B

$B!t(BISO Pascal$B$+$i(B $B@k8@=g=x$N@)Ls$r$O$:$9$H$1$C$3$&;H$($^$9!%$^$"(B
$B!tJ,3d%3%s%Q%$%k$H$+$G$-$J$$$1$I!%$$$^$N7W;;5!$J$i(B 10000 $B9TL$K~$G$O(B
$B!t2fK}$G$-$k$H;W$&!%$=$&!$(BSun Pascal $B$0$i$$$,$$$$$G$9$M!%(B
$B!t(BPascal $B$+$i(B Xlib $B$,8F$Y$k$h$&$K$7$?$j$7$F;H$C$F$^$9!%IaDL$N(B
$B!t463P$N%W%m%0%i%^$,$_$?$iB4E]$9$k$0$i$$8zN($O0-$$$G$9$1$I!%(B

--
$BNkLZBn<#(B@$B>pJs9)3X(BD3.$BEEDLBg1!(B (suzuki@alp0.cs.uec.ac.jp)
