知识库

1.素数

网站:知识库   来源:网络收集

一、 素数类问题(求素数的几种算法):待补充。

1.求1-100之间的所有素数,五个一行输出:分析:我们可对100-200之间的每一整数进行判断,判断它是否为素数,是则输出。

而对于任意整数i,根据素数定义,我们从2开始到trunc(sqrt(i),找i的第一个约数。

若找到第一个约数,则i必然不是素数。

否则i为素数。

trunc(sqrt(i)为了提升效率.(费马小定理) for循环 VAR i,j,count:integer; flag:boolean; BEGIN count:=0;//便于5个一行输出 FOR i:=2 TO 100 DO BEGIN {用2到sqrt(i)去除i,看能否除尽} flag:=true; FOR j:=2 to round(sqrt(i)) DO IF i MOD j=0 THEN flag:=false; IF flag THEN BEGIN write(i:4); count:=count+1; IF count MOD 5=0 THEN writeln END END END. 素数while VAR i,num:integer; flagnum:boolean; BEGIN {判断2到100中的数那些是质数} FOR num:=2 TO 100 DO BEGIN flagnum:=true; {置初值} i:=2; {用num除以i到round(sqrt(num)),如果除不尽flagnum保持为真} WHILE flagnum AND (i<=round(sqrt(num))) DO BEGIN IF num MOD i=0 THEN flagnum:=false; i:=i+1 END;{WHILE} IF flagnum {如果flagnum保持为真(即为素数)则输出这个数} THEN writeln(num:2,' is a prime number ...') END{FOR} END. 素数repeat VAR i,num:integer; flagnum:boolean; {flagnum用来标示当前数是否为质数} BEGIN writeln(' 2 is a prime number ...'); {输出2为质数,下面将不再考虑2} {下面开始判断3到100中的数那些是质数} FOR num:=3 TO 100 DO BEGIN flagnum:=true; {置初值} i:=2; REPEAT {用当前数num去除i,如果可以被整除则标记其为非质数} IF num MOD i=0 THEN flagnum:=false; i:=i+1 UNTIL NOT flagnum OR (i>round(sqrt(num))); {如果当前数num是质数则输出它} IF flagnum=true THEN writeln(num:2,' is a prime number ...') END{FOR} END.. var i,x: integer;s:integer;//mum统计个数 begin s:=0; for i:=2 to 100 do begin x:=2; while (x<=trunc(sqrt(i)))and(i mod x<>0)do inc(x);//不断搜索 if x>trunc(sqrt(i)) then //找不到约数就输出 begin inc(s);write(i:8); if s mod 5=0 then writeln; end;//控制五个一行输出 end; end. 判断是否为素数,若是素数则返回true,若不是素数则返回false:(素数函数) var i:integer; function prime(x:longint):boolean; var j,y:longint; begin prime:=true; if x<2 then prime:=false; y:=trunc(sqrt(x)); for j:=2 to y do if (x mod j = 0) then begin prime:=false; exit; end; end; begin for i:=2 to 100 do if prime(i) then writel

相关内容
  • 1.4(1)素数、合数与分解素因数

    1.4(1)素数、合数与分解素因数

    1.4(1)素数、合数与分解素因数...

  • 合数、质数 (1)

    合数、质数 (1)

    合数、质数 (1)...

  • 1.4(3)素数、合数与分解素因数

    1.4(3)素数、合数与分解素因数

    1.4(3)素数、合数与分解素因数...

  • 四年级下数学课件-素数和合数-苏教版 (1)

    四年级下数学课件-素数和合数-苏教版 (1)

    四年级下数学课件-素数和合数-苏教版 (1)...

  • 新浙教版四年级数学下册《素数与合数[1]》教学课件

    新浙教版四年级数学下册《素数与合数[1]》教学课件

    新浙教版四年级数学下册《素数与合数[1]》教学课件...

  • 新浙教版四年级数学下册《素数与合数[1]》教学设计

    新浙教版四年级数学下册《素数与合数[1]》教学设计

    新浙教版四年级数学下册《素数与合数[1]》教学设计...

  • 质数与合数1-

    质数与合数1-

    质数与合数1-...

  • 1.4(2)素数-合数与分解素因数

    1.4(2)素数-合数与分解素因数

    1.4(2)素数-合数与分解素因数...

  • 找质数1

    找质数1

    找质数1...

  • -质数和合数ppt[1]

    -质数和合数ppt[1]

    -质数和合数ppt[1]...

  • 网友在搜
  • 1是素数吗
  • 1是不是素数
  • 素数
  • 素数是什么
  • 判断素数
  • 素数是什么意思
  • 梅森素数
  • 最小的素数
  • 什么叫素数
  • 孪生素数
  • 最搞笑的打招呼方式 愚人节搞笑短信大全 新的一天搞笑短信 女友生日搞笑祝福语 国外搞笑视频集锦 cf笑死人的搞笑图片 穿越火线搞笑图片 校园搞笑短篇小说 微信搞笑语音 高中生搞笑小品剧本 三人搞笑小品剧本 好的搞笑电影 段子手搞笑段子 nba搞笑qq表情 超搞笑诗句 qq最搞笑头像 非主流搞笑熊猫qq表情图 flash搞笑小图 童声搞笑彩铃 终极三国搞笑语录 新疆搞笑视频 儿童搞笑电影 中国搞笑排名 十大搞笑视频 唐僧泡妞搞笑视频 关于睡觉搞笑短信 国产搞笑爱情电影 端午节搞笑短信粽子间谍 超级来电搞笑铃声 新闻联播搞笑铃声 五一劳动节搞笑 粤语搞笑 地震qq搞笑消息 日本超搞笑整人节目 新婚祝福语搞笑 最近搞笑新电影 幼儿园六一搞笑节目 青海方言搞笑mp3 日本搞笑网名 黄色搞笑找片 2008搞笑语录 查搞笑图片 周星驰搞笑gif图片 同志搞笑图片

    All Right Reserved 知识库

    声明:本站内容源于网络,出于传递更多信息之目的,并不意味着赞同其观点或证实其描述。文章内容仅供参考,请咨询相关专业人士。

    如果无意之中侵犯了您的版权,或有意见、反馈或投诉等情况 网站地图 网站栏目