作者giacch (小a)
看板Perl
标题Re: [问题] 计算问题
时间Wed Sep 3 23:43:28 2008
※ 引述《mayalu (小君)》之铭言：
: 题目是:从1加到n，那麽在累加结果不超过100，n的最大值应该是多少？
: 以下是程式码:
: use strict;
: my ($sum, $n);
: while ($sum <= 100) {
: $sum+=$n;
: $n++;
: }
: print $n;
: 看起来觉得是对的, 可是答案错了
: 应该是13, 可是算出来是15,
: 可以请教要如何更改吗?
use strict;
my ($sum, $n);
while ($sum <= 100) {
# $sum+=$n;
# $n++;
$sum += ++ $n;
print "\$sum = $sum\t\$n = $n\n"; # 加上这行方便除错...
}
#print $n;
print $n - 1;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.232.236.185