🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Thread View: fj.lang.pascal
3 messages
[T] Back to Threads [V] Tree View [G] Group Articles
3 total messages Started by Masahiro Hamada Thu, 04 Sep 1997 00:00
$BCV49%Q%i%a!<%?$N<B8=(J
#157
Author: Masahiro Hamada
Date: Thu, 04 Sep 1997 00:00
33 lines
1244 bytes 

 Pascal$B$N<jB3$-$d4X?t$N%Q%i%a!<%?$K!VCV49%Q%i%a!<%?!W(J
$B$H$$$&$b$N$r;HMQ$7$?$$$H;W$C$F$$$^$9!#$3$l$O!"%Q%i%a!<(J
$B%?$H$7$FJQ?t$NL>A0$rEO$7!"<jB3$-$NCf$G7A<0>e$N%Q%i(J
$B%a!<%?$,$=$NJQ?t$NL>A0$KCV$-49$($i$l$F$U$k$^$&$H$$$&(J
$B$b$N$G$9!#(J

procedure Ex(subst k, m: Integer; subst x, y: Real);
begin
  for k := 1 to m do x := y;
end;

$B$KBP$7$F!"(J

Ex(i, 1, p, 1) 
$B$O!"(J
p := 1 

Ex(i, 2, a[i], a[i] + b[i])
$B$O!"(J
for i := 1 to 2 do a[i] := a[i] + b[i]

 $B!V(Jsubst$B!W$H$$$&$N$r2>Dj$7$F$$$k$N$G$9$,!"<B:]$K$O$G$-(J
$B$^$;$s!#2?$H$+9)IW$7$F(JPascal$B$G<B8=$9$kJ}K!$O$"$k$N(J
$B$G$7$g$&$+!#$=$l$H$bL5M}$G$7$g$&$+!#(J

 ALGOL$B$O$h$/CN$i$J$$$N$G$9$,!"L>A08F$S=P$7%Q%i%a!<(J
$B%?$H$$$&$N$,$"$k$=$&$G$9!#$J$<(JPascal$B$K$O$J$$$N$G$7$g$&(J
$B$+!#(J

-- 
$BIMED(J $B>;9((J   hamada@hiroshima-cdas.or.jp
Re: $BCV49%Q%i%a!<%?$N<B8=(B
#158
Author: Junn Ohta
Date: Fri, 05 Sep 1997 00:00
22 lines
1324 bytes 
fj.lang.pascal$B$N5-;v(B<5umobn$1h4@ns1.hiroshima-cdas.or.jp>$B$G(B
	hamada@hiroshima-cdas.or.jp$B$5$s$O=q$-$^$7$?!#(B
>  $B!V(Bsubst$B!W$H$$$&$N$r2>Dj$7$F$$$k$N$G$9$,!"<B:]$K$O$G$-(B
> $B$^$;$s!#2?$H$+9)IW$7$F(BPascal$B$G<B8=$9$kJ}K!$O$"$k$N(B
> $B$G$7$g$&$+!#$=$l$H$bL5M}$G$7$g$&$+!#(B

$BL5M}$G$9!#(B

>  ALGOL$B$O$h$/CN$i$J$$$N$G$9$,!"L>A08F$S=P$7%Q%i%a!<(B
> $B%?$H$$$&$N$,$"$k$=$&$G$9!#$J$<(BPascal$B$K$O$J$$$N$G$7$g$&(B
> $B$+!#(B

$B$3$N<j$N0z?tEO$75,Ls$G$O!"8F$P$l$?4X?t$NB&$G0z?t$r(B
$BI>2A$9$k$H$-$K%5%s%/$H$$$&$7$/$_$r;H$C$F8F$S=P$785(B
$B$N0z?t$K%"%/%;%9$9$k$N$,$U$D$&$@$H;W$$$^$9$,!"$3$l(B
$B$O<BAu$N%3%9%H$b<B9T;~$N%*!<%P!<%X%C%I$b$=$l$J$j$K(B
$B9b$$$b$N$G$9!#$=$l$K8+9g$&%a%j%C%H$,$J$$$?$a!"<BAu(B
$B$5$l$F$$$J$$$N$G$7$g$&!#(B
--
$BB@ED=c(B(Junn Ohta) ($B3t(B)$B%j%3!<(B MS$B;v6H?d?J<<(B
ohta@src.ricoh.co.jp/JCF00656@niftyserve.or.jp
Re: $BCV49%Q%i%a!<%?$N<B8=(J
#159
Author: Masahiro Hamada
Date: Sun, 07 Sep 1997 00:00
29 lines
1188 bytes 

 $B<ALd<T$NIMED$G$9!#3'$5$sAaB.$N%l%9$r$"$j$,$H$&(J
$B$4$6$$$^$7$?!#$d$O$j(JPascal$B$G>/!99)IW$9$kDxEY$G(J
$B$OL5M}$G$7$?$+(J... $B;DG0$G$9!#(J

 $B$A$J$_$K$J$<CV49%Q%i%a!<%?$r;H$$$?$$$+$H8@$$$^$9(J
$B$H!"(JKnuth$B$N(JGPS$B4X?t$H$$$&$b$N$r(JPascal$B$G<B83$7$F$_(J
$B$?$+$C$?$N$G$9!#(J

function GPS(subst k, m: Integer; subst x, y: Real): Integer;
begin
  k := 1;
  while k <= m do
  begin
    x := y;
    k := k + 1;
  end;
  GPS := 1;
end;

 $B7W;;2DG=$J4X?t$O!"$3$N(JGPS$B$N8F$S=P$7$GI=8=$G$-$k(J
$B$N$@$=$&$G$9!#(J

$B!V%W%m%0%i%^$N$?$a$N(JPascal$B$K$h$k:F5"K!%F%/%K%C%/!W(J
J.S.Rohl$BCx(J / $B9S(J $B<B!&8<(J $B8wCK(J $B6&Lu(J / $B7<3X=PHG(J

-- 
$BIMED(J $B>;9((J   hamada@hiroshima-cdas.or.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