知识库

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

相关内容
  • 2ip+1型素数及其原根

    2ip+1型素数及其原根

    2ip+1型素数及其原根...

  • 质数合数1

    质数合数1

    质数合数1...

  • 找质数(1)

    找质数(1)

    找质数(1)...

  • 质数和合数 (1)

    质数和合数 (1)

    质数和合数 (1)...

  • 质数和合数1

    质数和合数1

    质数和合数1...

  • 2.3.1《质数与合数》

    2.3.1《质数与合数》

    2.3.1《质数与合数》...

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

    [新版]浙教版四年级数学下册《素数与合数[1]》教案[精品]

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

  • 5 找质数 教学设计1

    5 找质数 教学设计1

    5 找质数 教学设计1...

  • 6、找质数1导学案

    6、找质数1导学案

    6、找质数1导学案...

  • 质数和合数(第1课时)

    质数和合数(第1课时)

    质数和合数(第1课时)...

  • 网友在搜
  • 1是素数吗
  • 1是不是素数
  • 素数
  • 素数是什么
  • 判断素数
  • 素数是什么意思
  • 梅森素数
  • 最小的素数
  • 什么叫素数
  • 孪生素数
  • 芳新洗衣液怎么样 rgss3a二次加密 eterna 手表怎么样 openwrt打印服务器 心脏体外循环风险大吗 咬人猫的素颜怎么样 animals people 皮尔卡丹女拉绒裤 minecraft1.9更新 exo灿白粉红图片 光波分复用技术 python gpu 计算 中国国家公祭日 mora 舞蹈名片 新奔奔钥匙换电池 阿格归文圆桌骑士 贵州省兴义高管处 公元1644 崇祯王宁 2016年完结玄幻小说 000858千股千评 腻子粉搅拌机图片 姬风奇迹s6ep3 二人台挂红灯简谱 墨兰花语 漫画经过 mu ran o 是什么意思 欢乐颂同人关关女主 梅里达半圆形剧场 无线鼠标怎么拆开图解 杭州龙井村有骗局 自然风景视频 lol射手英雄有哪些 zbrush 4r8 百度云 小辣椒有哪些型号 成都华育培训骗局 啥牌子卸妆水好用 铅蓄电池表示符号 毕业生钢琴谱子 look good on sth 昏睡和嗜睡的区别 can总线硬件结构图 长安铃木奥拓新款 java 注释 嵌套 weixin share link

    All Right Reserved 知识库

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

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