主页 / 问题 / 1242118
Accepted
Юрий
Asked:2022-02-10 04:27:57 +0800 CST2022-02-10 04:27:57 +0800 CST

PERL。除法后的小数位数

  • 772

您需要使用 Perl（或其他方式）对数字进行除法，并以小数点后 10 位的精度输出结果。例如，如果您在 Bash 中使用命令：

echo "scale=10;6518772587507843661 / 203"| bc

结果：32112180234028786.5073891625

如果通过 Perl：

$a=6518772587507843661/203;
printf ("%.10f\n",$a);

结果：32112180234028788.0000000000

如何在 Perl 中使结果与通过“bc”相同，以便答案是 - 32112180234028786.5073891625？

perl

1 个回答

  1. Best Answer

    您反对解释器中实数的精度。而 bc 可以做长算术。但是，一如既往，您可以使用库。

    use Math::BigFloat;
Math::BigFloat->precision(-10); # это точность

my $x = Math::BigFloat->new(6518772587507843661);
my $y = Math::BigFloat->new(203);

$a=$x/$y;
print("$a\n");

    或使用 bignum 库

    • 1

相关问题