标题: QB程序问题 [打印本页]

---

作者: jo     时间: 2002-11-22 00:00    标题: QB程序问题

可以问有关QB的问题吗？

[此贴子已经被Wengier于2002-11-23 0:55:11编辑过]

---

作者: MYS     时间: 2002-11-22 00:00
可以，是QBASIC吧。

---

作者: jo     时间: 2002-11-22 00:00
请问一个问题：“2/1,3/2,5/3,5/8,13/8,21/13....求出这个数列前20项之和”应该如何编？
cls
a=1:b=1:m=0
for i= 1 to 20
a=a+b
m=m+a/b
b=a
next i
print m
输出的是40也，错在哪里呢？

---

作者: MYS     时间: 2002-11-22 00:00
你的程序错了，我算了一下，当i=1时，式子是正确的，
  a=a+b=2 ;m=m+2/1
但当i=2时就不对了。因前面b=a，所以b=2,这时该项的a+b=4，
  m=m+4/2了。
你算算看

---

作者: MYS     时间: 2002-11-22 00:00
试试这样编：
cls
a=2:b=1:m=0
for i= 1 to 20
m=m+a/b
t=a+b
b=a
a=t
next i
print m

---

作者: jo     时间: 2002-11-22 00:00
可以麻烦呢写出正确的吗？我已想呢很久了～呜呜呜

---

作者: MYS     时间: 2002-11-23 00:00
我给出的程序不就是正确的吗？

---

作者: jo     时间: 2002-11-23 00:00
实在是太感谢了～