中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS开发编程 & 发展交流（开发室） » QB程序问题

jo
初级用户

积分 172
发帖 22
注册 2002-11-4
状态离线

『楼主』: QB程序问题

可以问有关QB的问题吗？

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

2002-11-22 00:00

MYS
元老会员

积分 5170
发帖 1637
注册 2002-10-16
来自广东佛山
状态离线

『第 2 楼』:

可以，是QBASIC吧。

我的网志
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos

2002-11-22 00:00

(2664429)

jo
初级用户

积分 172
发帖 22
注册 2002-11-4
状态离线

『第 3 楼』:

请问一个问题：“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也，错在哪里呢？

2002-11-22 00:00

MYS
元老会员

积分 5170
发帖 1637
注册 2002-10-16
来自广东佛山
状态离线

『第 4 楼』:

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

我的网志
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos

2002-11-22 00:00

(2664429)

MYS
元老会员

积分 5170
发帖 1637
注册 2002-10-16
来自广东佛山
状态离线

『第 5 楼』:

试试这样编：
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

我的网志
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos

2002-11-22 00:00

(2664429)

jo
初级用户

积分 172
发帖 22
注册 2002-11-4
状态离线

『第 6 楼』:

可以麻烦呢写出正确的吗？我已想呢很久了～呜呜呜

2002-11-22 00:00

MYS
元老会员

积分 5170
发帖 1637
注册 2002-10-16
来自广东佛山
状态离线

『第 7 楼』:

我给出的程序不就是正确的吗？

我的网志
http://hzmys.blog.163.com/
我的网盘
firststep.qjwm.com
fsmys.ys168.com
ssmys.ys168.com
www.brsbox.com/fsmys
www.brsbox.com/ssmys
www.brsbox.com/ccdos

2002-11-23 00:00

(2664429)

jo
初级用户

积分 172
发帖 22
注册 2002-11-4
状态离线

『第 8 楼』:

实在是太感谢了～

2002-11-23 00:00

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: