home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / fj / lang / misc / 291 < prev    next >
Encoding:
Internet Message Format  |  1992-12-27  |  2.3 KB
  1. Path: sparky!uunet!ccut!s.u-tokyo!kekux!crimson!ume!gama!lab!utogw!kuno
  2. From: kuno@gssm.otsuka.tsukuba.ac.jp (Yasushi Kuno)
  3. Newsgroups: fj.lang.misc
  4. Subject: Re: [Pascal] Pascal for education (Re: Pointer)
  5. Message-ID: <1992Dec27.003641.24316@gssm.otsuka.tsukuba.ac.jp>
  6. Date: 27 Dec 92 00:36:41 GMT
  7. References: <TAKAGI.92Dec19073551@craps.elcom.nitech.ac.jp> <1352@axegw.axe-inc.co.jp> <TAKAGI.92Dec21155738@craps.elcom.nitech.ac.jp> <1363@axegw.axe-inc.co.jp>
  8. Sender: news@gssm.otsuka.tsukuba.ac.jp
  9. Distribution: fj
  10. Organization: GSSM Otsuka, Univ. of TSUKUBA, Tokyo, Japan
  11. Lines: 45
  12.  
  13. $B5WLn$G$9!#(J
  14.  
  15. $BC]2,$5$s(J:
  16. > $B$$$^$I$-$N%3%s%Q%$%i5;=Q$,$"$l$P5$$K$J$i$J$$$G$7$g$&!)(J
  17. > $B$^$H$b$J%3%s%Q%$%i$,!JI{:nMQ$N$J$$!KF1$8<0$r#2EY$b%(%P$k$O$:$,$J$$!#(J
  18. > $B!J%$%s%?%W%j%?$OFf(J :-)$B!K(J
  19.  
  20.   $B$"!<$N!<!"(Jcall by name$B$N(Jthunk$B$r:G=i$K(J1$B2s$@$1I>2A$7$F=*$o$j$K$7(J
  21. $B$F$$$$$b$s$J$s$G$7$g$&$+!#$$$$>l9g$,B?$$$N$OJ,$+$j$^$9$,!"$$$$$+(J
  22. $B$I$&$+$O8F$P$l$kB&$@$1$N>pJs$8$c$"J,$+$i$J$$$H;W$&$N$G$9!#Nc$($P!"(J
  23. $B8F$VB&$,(J
  24.  
  25.     v := func(i, 1, 10, a[i]);
  26.  
  27. $B$G!"8F$P$l$kB&$,(J
  28.  
  29.     function func(k, a, b, x);
  30.     begin
  31.        integer s := 0;
  32.        for k := a to b do s := s + x;
  33.        func := s
  34.     end;
  35.  
  36. ($B$"$"$"!"JQ$J8@8l$@(J!)$B$J$s$F$N$@$H(Jk$B$H(Ja$B$H(Jb$B$N(Jthunk$B$O(J1$B2s$@$18F$Y$P$$(J
  37. $B$$$1$I(Jx$B$N$OKh2s8F$P$J$$$H$$$1$^$;$s$h$M!#$=$s$J$3$H$,J,$+$i$J$$(J
  38. $B$H$^$H$b$J%3%s%Q%$%i$@$HG'$a$F$$$?$@$1$J$$$s$8$c!"%3%s%Q%$%i=q$/(J
  39. $B?M$bBgJQ$@!#(J
  40.     
  41. > $B@5$7$/Cj>]2=$7$F$"$l$P!"FbIt$N<B9T=g=x$O5$$K$J$i$J$$$N$G$O!)(J
  42.  
  43.   $B$3$l$O;?@.$G$9!#$@$+$i>e$N(Jfunc$B$N$h!<$J$b$N$O=q$+$J$$$N$,%9%?%$(J
  44. $B%k$H$7$F$h$$!#$=!<$J$k$H(Jcall by name$B$8$c$J$/$F$b$h$/$J$C$A$c$C$F!"(J
  45. $B$@$+$i%^%/%m$H$7$F0J30$K$O$"$s$^$j;H$o$l$J$/$J$C$?!#$^$F$h!<!"C](J
  46. $B2,$5$s$O%^%/%m$N>l9g$r8@$C$F$$$?$N$+!#<:Ni$7$^$7$?!#$G$b=q$$$F$7(J
  47. $B$^$C$?$+$i=P$7$^$9$M(J :-)
  48.  
  49. > Pascal $B$K$J$s$G!"(Jcall by name $B$,$J$$$N$+$r!"65$($FLc$$$?$$$b$N$G$9!#(J
  50.  
  51. > $B$"$"!"65$($FM_$7$+$C$?$N$K(J... :-P :-)
  52.  
  53.   $B$KBP$9$k2r<a$K$J$C$F$^$9$M!"$h$/9M$($?$i!#$G$9$+$i!<!"%^%/%m$J(J
  54. $B$s$F$d$a$F!"(Jcall by name$B$r@5<0%5%]!<%H$7$F!"$J$*$+$D(Jinline$B$r5v$;(J
  55. $B$P$$$$$s$8$c$J$$(J? $B$G$b;d$O<+J,$G$O;H$$$=$&$J5$$,$7$J$$$1$I!<!#(J
  56.  
  57.         $BK;$7$$$O$:$J$N$K$D$$=P$F$-$F$7$^$&(J        $B5WLn(J
  58.