未懂的算术题（无聊发现的）

lm959680

发现个公式
（1/2-1/3）+（1/3-1/4）+.....+(1/9-1/10)

自己算了下 是0.28  
本人数学没学`~~不知道 没有一个一个的算  是写了大概程序算的，不知道对不对`~

Local $var, $a, $b
Local $c = 1
for $a = 2 to 10
        $b = $a +1
        $var =  (Round($c / $a, 2) - Round($c / $b, 2)) +$var
        $a += 1
Next
MsgBox(0, "", $var)

别人算的 0.45
原式=（1/2-1/3）+（1/3-1/4）+.....+(1/9-1/10)
=1/2-1/10
=9/20


大家看看 是否对了

大绯狼

1/2-1/10等于多少？等于0.45？楼主的数学真有问题

nicen2

Local $var, $a, $b
Local $c = 1
for $a = 2 to 9
        $b = $a +1
        $var =  (Round($c / $a, 2) - Round($c / $b, 2)) +$var
        ;$a += 1
Next
MsgBox(0, "", $var)

lm959680

1/2-1/10等于多少？等于0.45？楼主的数学真有问题
大绯狼 发表于 2009-5-20 13:03

是别人不是我
（1/2-1/3）+（1/3-1/4）+.....+(1/9-1/10)
=1/2-1/10
=9/20

我也不明白为什么是这样写`~

那0.45 我是算9/20 的！  OK

javarike

哈哈.怎么有两个结果?

sensel

人脑算是这样：
$iResult = 1/2 + 0 - 1/10 ; 中间都是减去再加上相同数字，作0处理

电脑算是这样：

Local $iResult = 0
For $i = 2 To 9 ; 一步步来
        $iResult += 1 / $i - 1 / ($i + 1)
Next
MsgBox(0, "Result: ", '[' & $iResult & ']')

人脑胜在逻辑思维，电脑胜在处理速度

lm959680

人脑算是这样：
$iResult = 1/2 + 0 - 1/10 ; 中间都是减去再加上相同数字，作0处理

电脑算是这样：Local $iResult = 0
For $i = 2 To 9 ; 一步步来
        $iResult += 1 / $i - 1 / ($i + 1)
Next
MsgBox(0, "Re ...
sensel 发表于 2009-5-20 16:56

哈哈 你的是正确的 并且代码最简洁 我的 多加了一句 $a += 1 就错了 嘿嘿`~~

顽固不化

1/2-1/10
=5/10-1/10
=4/10
=0.4