作者: TM
日時: 2005/10/8(14:16)
初めまして、最近良くPerlを使っていますが、数値計算結果をＩＮＴ関数で
少数点以下を切り捨てると、マイナス１となる問題が起きています。

どの様な計算が行われているか、確認するプログラムで調べたところ、
浮動小数点らしい計算が行われ、結果端数が出ているためでした。

$a 	= 	200;
$b 	= 	1053.5900;

$c 	= 	$a * $b;

$d	=	int($c);

$e	=	$c	-	$d;

print " $c 　　:	$d      :	    $e	            \n";

 　　　210718  :	210717  :	    0.999999999970896
　　　　　
金額計算なのでマイナス１でも、許されない状況です。
このような端数が出ない方法は、どの様な書き方をすれば、
よろしいでしょうか。何方かお教え下さい。

ＴＭ