|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 求助 素数的简单问题
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
876
人关注过本帖
标题:
求助 素数的简单问题
只看楼主
加入收藏
werty_sy
等 级:
新手上路
帖 子:5
专家分:0
注 册:2008-6-22
楼主
收藏
问题点数:0 回复次数:7
求助 素数的简单问题
判断一个数是否为素数的过程中
For b = 2 To a - 1
Next b
If a Mod b = 0 Then
Text2.Text = "这不是素数"
Else
Text2.Text = "这是素数"
为什么b=2 to a -1得到错误的结果,要用b = sqr(a)才能使程序正确?
谢谢
搜索更多相关主题的帖子:
素数
简单问题
2008-09-05 09:54
举报帖子
使用道具
赠送鲜花
multiple1902
等 级:
贵宾
威 望:
42
帖 子:4881
专家分:671
注 册:2007-2-9
第
2
楼
收藏
得分:0
你for之后直接就next啊?结果不错就怪了。你用sqr结果能正确就怪了。因为照你这意思,居然是一个O(1)的判断素数算法。史上还没有这么强大的算法。费尔马小定理也是要多试几个数的。
再说了,sqr是平方吧?sqrt是平方根吧?
2008-09-05 10:46
举报帖子
使用道具
赠送鲜花
punisher106
等 级:
新手上路
帖 子:22
专家分:0
注 册:2008-8-13
第
3
楼
收藏
得分:0
素数也就是除了一和他本身之外,没有别的除数了的数。比如13 。判断方法一般是从二循环到该数的一半,先不管他是否能整除二。到底为什么要循到一半就不用说了吧,3×5和5×3都能证明他不是素数。
2008-09-05 11:08
举报帖子
使用道具
赠送鲜花
werty_sy
等 级:
新手上路
帖 子:5
专家分:0
注 册:2008-6-22
第
4
楼
收藏
得分:0
for之后直接next可以的啊,然后用sqr(x)能算出正确结果的
punisher讲的明白了,原来要循环一半就可以了
谢谢你们
2008-09-05 12:34
举报帖子
使用道具
赠送鲜花
punisher106
等 级:
新手上路
帖 子:22
专家分:0
注 册:2008-8-13
第
5
楼
收藏
得分:0
举个例子,比如判断24是否是素数。那我们开始循环。假设循环因子是i ,那开始的时候,i=2 ,满足条件。2×12=24.当i=3,满足条件。3×8=24 。再向下继续循环,可以得到 2*12,3*8,4*6,6*4,8*3,12*2这些的组合,从中不难发现原理了吧,他们都是对称的,有2×12,必然会有12×2。所以 ,我们只要是循环到了一半,就完全可以推断出另外的一半的组合。不知道这么说,是否把问题说明白了。其实我也是新手,相互帮助。
2008-09-05 18:58
举报帖子
使用道具
赠送鲜花
multiple1902
等 级:
贵宾
威 望:
42
帖 子:4881
专家分:671
注 册:2007-2-9
第
6
楼
收藏
得分:0
嗯,楼上说得好。
也没必要循环到一半,循环到算数平方根(向下取整)即可。数学上能证明的。
2008-09-05 21:45
举报帖子
使用道具
赠送鲜花
werty_sy
等 级:
新手上路
帖 子:5
专家分:0
注 册:2008-6-22
第
7
楼
收藏
得分:0
谢谢你们,现在彻底懂了
2008-09-06 09:11
举报帖子
使用道具
赠送鲜花
punisher106
等 级:
新手上路
帖 子:22
专家分:0
注 册:2008-8-13
第
8
楼
收藏
得分:0
对哦,不不好意思,我弄措了,到平方根就可以了。
2008-09-07 15:45
举报帖子
使用道具
赠送鲜花
8
1/1页
1
快速回复:
求助 素数的简单问题
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.019293 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved