🚀 go-pugleaf

In article <338E7BF1.2153@rmom.rme.sony.co.jp>, chiba@rmom.rme.sony.co.jp >
>$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

$B$($C$H!"(BPascal $B$K$b7?%-%c%9%H$O$"$j$^$9$,!"(B
$BC1$K(B Real$B!J$d(B Single$B!K$r(B Integer $B$KD>$9$@$1$J$i!"(B

b:=100+Round(a);

$B$H$+$K$7$?J}$,3Z$@$H;W$$$^$9!#;M<N8^F~$8$c$J$/$F@Z$j<N$F$r$7$?$$(B
$B>l9g$O!"(BTrunc() $B$r;H$$$^$9!#(B

$B$3$3$G#B#A#S#I#CIw$K(B

b:=100+Int(a);

$B$H!"$d$C$F$b(B Int $B4X?t$O>/?tE@0J2<$r@Z$j<N$F$?(B Real $BCM$rJV$9$@$1$J$N$G(B
$B%(%i!<$,=P$k$N$G!"%@%a$G$9!#(B

$BB>$KJ8;zNs$+$i@0?t!&<B?t$KD>$9$K$O!J$?$V$s(B Delphi $B$N>l9g$@$1!K(B

StrToInt(), StrToFloat()

$B$H$$$&4X?t$,$"$k$N$G$3$l$r;H$C$F2<$5$$!#$3$N5U$N(B FloatToStr() 
$B$J$s$F$$$&$N$b$"$j$^$9!#(B

$BB>!"%*%s%i%$%s%X%k%W$*8+$l$P$3$3$i$X$s$N;v$O:\$C$F$^$9!#(B

================================================================
Yoshihiro SATO
Hokkaido Univ. E.E.S.
ysato@ees.hokudai.ac.jp