🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #116

Re: $B7?%-%c%9%H(J

#116
From: GOA, Yasuhide
Date: Tue, 17 Jun 1997 00:00
76 lines
2633 bytes
Yoshihisa Chiba <chiba@rmom.rme.sony.co.jp> wrote in article
<338E7BF1.2153@rmom.rme.sony.co.jp>...
> $B@iMU$H?=$7$^$9!#(J
> 
> $B:G6a(JDelphi2.0$B$G(JPascal$B$r;H$$$O$8$a$^$7$?!#(J
> $B#C!?#C!\!\$G$O4JC1$K!JCN$C$F$$$k$+$i$G$9$,!K$G$-$k$3$H$,!"(JPascal$B$G;29M=q(J
> $B$r8+$J$,$i;n9T:x8m$7$^$,$i:n$C$F$$$^$9!#(J
> 
> $B$=$3$G7?%-%c%9%H$K$D$$$F$N<ALd$G$9$,!$#C!?#C!\!\$G$O!"(J
> 
> 	double a;
> 	int    b;
> 
> 	a = log10(250);
> 	b = 100 + (int)a;
> 
> $B$H$7$F$d$k$H$3$m$r!"(JPascal$B$G(J
> 
> 	var
> 		a:real;
> 		b:Integer;
> 
> 	begin
> 		a:=log10(250);
> 		b:=100+Integer(a);
> 	end;	
> $B$H$7$F$d$l$P$$$$$H;W$C$?$N$G$9$,!"!I@5$7$/$J$$%-%c%9%H!I$G%3%s%Q%$%k%(%i(J
> $B!<$K$J$C$F$7$^$$$^$9!#(J
> 
> $B=iJbE*$J<ALd$G?=$7Lu$4$6$$$^$;$s$,!"59$7$/$*4j$$$7$^$9!#(J
> 
> 
> 
> 
> 
> -- 
> Yoshihisa Chiba        e-mail  : chiba@rmom.rme.sony.co.jp

$B;d$OBg3X$G(JUnix$B$G(J Sparc Pascal$B$r3X$S$^$7$?$,!"(JDelphi$B$K$D$$$F$O$[$H$s$I(J
$B2?$bCN$j$^$;$s!#$7$+$7!"(JDelphi$B$,(JPascal$B$H$^$C$?$/F1$8$h$&$K=q$1$k$N$G$"$l$P(J
$B!"(J
$B$3$N%W%m%0%i%`$K$O(J2$B$D$[$I7g4Y$,$"$k$H9M$($i$l$^$9!#(J

$B$^$:!"(J
 	a:=log10(250);
Sparc Pascal$B$K$O!">oMQBP?t$r5a$a$k(J log10(x) $B$H$$$&4X?t$OB8:_$7$^$;$s!#(J
$B<+A3BP?t(J ln(x) $B$OB8:_$9$k$N$G!"(J
	a:=ln(250)/ln(10);
$B$H$7$F!"DlJQ49$7$F$d$l$P$G$-$k$G$7$g$&!#(J

$B<!$K!"(J
	b:=100+Integer(a);
$B$3$l$O!";M<N8^F~$7$F@0?tCM$rF@$h$&$H$7$F$$$k$N$G$7$g$&$+!)(J Sparc Pascal
$B$G!"(J
$B;M<N8^F~$r$9$kL?Na$O!"(Jround(x) $B$G$9!#(J
	b:=100+round(a);
$B$G$$$1$k$G$7$g$&!#(J
$B$A$J$_$K!"@Z$j<N$F!"@Z$j>e$2$J$i$P!"$=$l$>$l!"(J
	b:=100+trunc(a);
	b:=100+trunc(a)+1;
$B$G$9!#(J

$B$^$"!"(JSparc Pascal$B$NCN<1$,!"(JDelphi$B$G$bLr$KN)$F$P$NOC$G$9$,(J%%%$B!#(J

$B$G$O!#(J

-- 
============================================
    $BEl5~Bg3X9)3XIt1~MQ2=3X2J(J 3$BG/(J 
                       $B8e0B(J $B9/=((J (GOA, Yasuhide)
============================================
       E-mail : t70828@hongo.ecc.u-tokyo.ac.jp
                   f4496785@nv.aif.or.jp
 URL : http://www.hongo.ecc.u-tokyo.ac.jp/~t70828/
============================================
Technical Details
Message-ID: <01bc7b03$3b279760$922ad0ca@goa>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <338E7BF1.2153@rmom.rme.sony.co.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,b4382b39e8971d44
X-Google-Attributes: gidff90a,public
From: "GOA, Yasuhide" <f4496785@nv.aif.or.jp>
Subject: Re: $B7?%-%c%9%H(J
Date: 1997/06/17
Message-ID: <01bc7b03$3b279760$922ad0ca@goa>
X-Deja-AN: 249028546
References: <338E7BF1.2153@rmom.rme.sony.co.jp>
Organization: $B#F#M%f!<%6(J
Newsgroups: fj.lang.pascal