Re: $BCV49%Q%i%a!<%?$N<B8=(J

Article View: fj.lang.pascal

Article #159

#159

From: 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

Technical Details

Message-ID: <5ut0rg$jd@ns1.hiroshima-cdas.or.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <5umobn$1h4@ns1.hiroshima-cdas.or.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,d3920be3f07febd7
X-Google-Attributes: gidff90a,public
From: "Masahiro Hamada" <hamada@hiroshima-cdas.or.jp>
Subject: Re: $BCV49%Q%i%a!<%?$N<B8=(J
Date: 1997/09/07
Message-ID: <5ut0rg$jd@ns1.hiroshima-cdas.or.jp>
X-Deja-AN: 270382659
References: <5umobn$1h4@ns1.hiroshima-cdas.or.jp>
Organization: hiroshima-cdas
Newsgroups: fj.lang.pascal

Reply to Parent Message

Article View: fj.lang.pascal

Re: $BCV49%Q%i%a!<%?$N<B8=(J

Re: $BCV49%Q%i%a!<%?$N<B8=(J