🚀 go-pugleaf

<338E7BF1.2153@rmom.rme.sony.co.jp>$B$N5-;v$K$*$$$F(B
chiba@rmom.rme.sony.co.jp$B$5$s$O=q$-$^$7$?!#(B

>> $B@iMU$H?=$7$^$9!#(B
>> 
>> $B:G6a(BDelphi2.0$B$G(BPascal$B$r;H$$$O$8$a$^$7$?!#(B
>> $B#C!?#C!\!\$G$O4JC1$K!JCN$C$F$$$k$+$i$G$9$,!K$G$-$k$3$H$,!"(BPascal$B$G;29M=q(B
>> $B$r8+$J$,$i;n9T:x8m$7$^$,$i:n$C$F$$$^$9!#(B
>> 
>> $B$=$3$G7?%-%c%9%H$K$D$$$F$N<ALd$G$9$,!$#C!?#C!\!\$G$O!"(B
>> 
>> 	double a;
>> 	int    b;
>> 
>> 	a = log10(250);
>> 	b = 100 + (int)a;
>> 
>> $B$H$7$F$d$k$H$3$m$r!"(BPascal$B$G(B
>> 
>> 	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(B
>> $B!<$K$J$C$F$7$^$$$^$9!#(B
>> 
>> $B=iJbE*$J<ALd$G?=$7Lu$4$6$$$^$;$s$,!"59$7$/$*4j$$$7$^$9!#(B
>> 
>> 
>> 
>> 
>> 
>> -- 
>> Yoshihisa Chiba        e-mail  : chiba@rmom.rme.sony.co.jp

$B<+J,$O!"(BDelphi$B$O$d$C$?$3$H$O$"$j$^$;$s$,!"(BPascal$B$J$i(B
$BCN$C$F$$$k$N$G!"$=$NCN<1$G2sEz$9$k$H!"(B

Integer(a)

$B$H$$$&!"7?%-%c%9%H$O!"JQ?t(B a $B$,7?L5$7JQ?t$N$H$-$N(B
$B<jCJ$G$9!#(B
$B$G$9$+$i!"%a%b%j!<>e$N3d$jEv$F$@$1$rJQ99$9$k$h$&$J(B
C$B8@8lE*!";HMQ$O$G$-$^$;$s!#(B

$B5U$K!"$?$@@0?t7?$K$7$?$$$N$J$i(B

Round
Trunc

$B$J$I$N!"(BFunction $B$rMxMQ$9$Y$-$G$9!#(B

Delphi $B$N%^%K%e%"%k$O$7$j$^$;$s$,!"(BTurbo Pascal $B$N(B
$B%^%K%e%"%k!J;29M=q$K$b!K$K$O!"=q$$$F$"$k$3$H$G$9!#(B

Pascal $B$N7?$O!"87$7$/<h$j07$o$l$F$$$k$N$G!"(B
$B$=$3$N$H$3$mCm0U$9$Y$-$@$H;W$$$^$9!#(B


*****
     $B#p#r#o#j#e#c#t(B  $B#K!wF1;V<RBg(B
     th2063@mail4.doshisha.ac.jp
*****