查看: 2598|回复: 14

最近学BASIC遇到了一个小问题

  [复制链接]
头像被屏蔽
梦石
0
星屑
50
在线时间
0 小时
注册时间
2008-1-17
回帖
77
发表于 2008-6-19 04:42:59 | 显示全部楼层 |阅读模式
提示: 作者被禁止或删除 内容自动屏蔽
签名被屏蔽

傻♂逼

梦石
0
星屑
374
在线时间
1606 小时
注册时间
2007-3-13
回帖
6005

烫烫烫开拓者

发表于 2008-6-19 04:59:35 | 显示全部楼层
vb里是这样:
randomize
a = int(rnd*10) '保证输出整数
print (a)
哎呀,蛋疼什么的最有爱了
回复

使用道具 举报

头像被屏蔽
梦石
0
星屑
50
在线时间
0 小时
注册时间
2008-1-17
回帖
77
 楼主| 发表于 2008-6-27 06:02:29 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
签名被屏蔽
回复

使用道具 举报

头像被屏蔽
梦石
0
星屑
50
在线时间
0 小时
注册时间
2008-1-17
回帖
77
 楼主| 发表于 2008-6-27 06:05:58 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
签名被屏蔽
回复

使用道具 举报

精灵族の天使<

梦石
0
星屑
1712
在线时间
3039 小时
注册时间
2007-3-16
回帖
33092

开拓者贵宾

发表于 2008-6-27 07:53:14 | 显示全部楼层
这样啊。
你这样里面默认为0,当然只能输出一个数值了。
rnd应该里面有参数的吧。建议你好好的看看rnd
应该这样。
10 x=RND(1)*10
20 PRINT X
30 END
参考此帖:http://tieba.baidu.com/f?kz=106450682
回复

使用道具 举报

头像被屏蔽
梦石
0
星屑
50
在线时间
0 小时
注册时间
2008-1-17
回帖
77
 楼主| 发表于 2008-6-27 15:10:34 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
签名被屏蔽
回复

使用道具 举报

精灵族の天使<

梦石
0
星屑
1712
在线时间
3039 小时
注册时间
2007-3-16
回帖
33092

开拓者贵宾

发表于 2008-6-27 18:02:24 | 显示全部楼层
我以前看过一篇文章。你需要在每次初始化的时候设置种子,例如系统时间之类的。
所有的程序的随机都是这样,要不无法对其进行测试。
回复

使用道具 举报

傻♂逼

梦石
0
星屑
374
在线时间
1606 小时
注册时间
2007-3-13
回帖
6005

烫烫烫开拓者

发表于 2008-6-27 19:07:26 | 显示全部楼层
以下引用reg_214于2008-6-27 7:10:34的发言:

这有个例子
10 A=INT(RND*26)+65  
20 PRINT CHR$(A);  
30 KZ$=INKEY$  
40 GOTO 10     '我试了一下能用(可惜停不下来)

但是当我把 第 10 行改成 10 A=INT(RND*26)+65:n=n+1
          第 30 行改成 30 KZ$=INKEY$:if n=10 or n>10 then end  

每次运行都出现相同的结果
D
Q
W
S
U
B
M
L
C
Y
如果GWBASIC的随机仅是这样的,那还有什么意义呢?

要reset随即种子

这年头了还学GWBASIC

vb还差不多

如果是为了参赛建议学小学(中学)——pascal(小学参加中学组…………)大学(高中?)c++
哎呀,蛋疼什么的最有爱了
回复

使用道具 举报

头像被屏蔽
梦石
0
星屑
50
在线时间
0 小时
注册时间
2008-1-17
回帖
77
 楼主| 发表于 2008-6-28 05:17:38 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
签名被屏蔽
回复

使用道具 举报

风之塞尔达

梦石
0
星屑
50
在线时间
57 小时
注册时间
2005-10-22
回帖
2437

贵宾

发表于 2008-6-28 05:19:22 | 显示全部楼层
你们是学什么的  为什么高考有考这个  = =?
在程序里延续塞尔达的传说, 在画板上勾勒塞尔达的轮廓!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖返回顶部