| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 887 人关注过本帖
标题:pascal 编程: 求1~N的素数 N<=1000000,请教
只看楼主 加入收藏
zstommy
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2013-9-3
结帖率:0
收藏
已结贴  问题点数:20 回复次数:6 
pascal 编程: 求1~N的素数 N<=1000000,请教

老师们,我做题,求1~N的素数 N<=1000000,总是超时,要求2秒内完成, 我的程式是以下:
var i,n,x:longint;
begin
    readln(n);
    for i:=2 to n do
    begin
        x:=2;
        while (x<=trunc(sqrt(i)))and(i mod x<>0)do
            inc(x);
        if x>trunc(sqrt(i)) then write(i,' ');
    end;
end.
请教教我应用什么算法?
搜索更多相关主题的帖子: pascal 
2013-09-03 22:50
yuccn
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:何方
等 级:版主
威 望:167
帖 子:6815
专家分:42393
注 册:2010-12-16
收藏
得分:7 
你自己不是实现了吗?还问什么算法?

我行我乐
公众号:逻辑客栈
我的博客:
https://blog.yuccn. net
2013-09-04 11:59
linluoman
Rank: 1
等 级:新手上路
帖 子:2
专家分:7
注 册:2013-9-5
收藏
得分:7 
有谁知道破解钓鱼网站后台的请举手联系:QQ-850439731。
酬金QQ谈。
2013-09-05 11:48
邓士林
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:淮河河畔
等 级:贵宾
威 望:61
帖 子:2392
专家分:13384
注 册:2013-3-3
收藏
得分:7 
pascal 编程不懂

Maybe
2013-09-09 23:01
ip4368
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-11-18
收藏
得分:0 
你這樣看來是時間問題, 其實可以換個方法, 用排除的方法, 先假設所有的數字也是素数, 然後從2開始, 發下如果它是素数, 就把其倍數改成不是素数, 看見不是素数是跳過不做, 這樣快很多可以拿出整個表, 應該能達標的
2014-11-18 12:52
笨闹钟
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2015-2-22
收藏
得分:0 
这要用筛法才行
2015-02-22 20:05
笨闹钟
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2015-2-22
收藏
得分:0 
要用到数组
2015-02-22 20:06
快速回复:pascal 编程: 求1~N的素数 N<=1000000,请教
数据加载中...
 
   



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

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