| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 932 人关注过本帖
标题:[求助]PB新手的一个简单问题
只看楼主 加入收藏
网菜
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-3-25
收藏
 问题点数:0 回复次数:3 
[求助]PB新手的一个简单问题
怎么样用PowerScript编程判断一个数M是否为素数?
我用下面的程序为什么不可以啊?
int m
int i=2
int f=0
m=integer(sle_1.text)
int n=integer(m/2)
if m=0 or m=1 then
messagebox("验证素数",string(m)+"不是素数!")
else
for i=2 to n step 1
if m/i=integer(m/i) then
f=1
exit
else
f=0
end if
next
end if
if f=0 then
messagebox("验证素数",string(m)+"是素数!")
else
messagebox("验证素数",string(m)+"不是素数!")
end if

高手请指点一下。先谢过了!!
搜索更多相关主题的帖子: 素数 简单问题 int 
2006-03-26 09:22
ヤ順祺冄繎ヤ
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:3032
专家分:0
注 册:2005-11-9
收藏
得分:0 
以下是引用网菜在2006-3-26 9:22:00的发言:
怎么样用PowerScript编程判断一个数M是否为素数?
我用下面的程序为什么不可以啊?
int m
int i=2
int f=0
m=integer(sle_1.text)
int n=integer(m/2)
if m=0 or m=1 then
messagebox("验证素数",string(m)+"不是素数!")
else
for i=2 to n step 1
if m/i=integer(m/i) then
f=1
exit
else
f=0
end if
next
end if
if f=0 then
messagebox("验证素数",string(m)+"是素数!")
else
messagebox("验证素数",string(m)+"不是素数!")
end if

高手请指点一下。先谢过了!!

算法好像有错!!!

2006-03-27 09:45
wsl000
Rank: 2
等 级:新手上路
威 望:4
帖 子:248
专家分:0
注 册:2006-3-8
收藏
得分:0 
你看一下C语言书上面有判断一个数是否为素数?的算法

2006-03-27 13:28
fairy1331
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2006-3-15
收藏
得分:0 
我试了一下是可以的,若还不行请用以以语句测示:

int li_ss_source,n,li_div

int i=2

int li_bz_ss = 0

li_ss_source = integer(sle_1.text)



n = integer(li_ss_source/2)



if li_ss_source = 0 or li_ss_source = 1 then

messagebox("验证素数",string(li_ss_source)+"不是素数!")

else

for i = 2 to n

if li_ss_source / i = integer(li_ss_source / i) then

li_bz_ss = 1

li_div = li_ss_source / i

exit

end if

next

end if

if li_bz_ss = 0 then

messagebox("验证素数",string(li_ss_source)+"是素数!")

else

messagebox("验证素数",string(li_ss_source)+"不是素数!可被以数整除:" + string(li_div))

end if

http://develop./ IT同盟必看!
2006-04-17 15:34
快速回复:[求助]PB新手的一个简单问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026012 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved