🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #51

型キャスト

#51
From: Yoshihisa Chiba
Date: Fri, 30 May 1997 00:00
36 lines
1106 bytes
$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
Technical Details
Message-ID: <338E7BF1.2153@rmom.rme.sony.co.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,b4382b39e8971d44,start
X-Google-Attributes: gidff90a,public
From: Yoshihisa Chiba <chiba@rmom.rme.sony.co.jp>
Subject: 型キャスト
Date: 1997/05/30
Message-ID: <338E7BF1.2153@rmom.rme.sony.co.jp>
X-Deja-AN: 245707172
Organization: Sony Corp.
Newsgroups: fj.lang.pascal