CLEAR
SELECT 1
USE D:\vfp温习\素数式至17表.DBF ALIAS 素数式表
SELECT 2
USE D:\vfp温习\素数表万3.DBF ALIAS 素数表万3
SELECT 3
USE D:\vfp温习\素数表亿新.DBF ALIAS 素数表亿新 &&当时仅改变了别名,没有改原名,在素数表亿新后增加了198-200周期素数,改正,并去掉了后续素数
*INPUT "请输入预先值 K= " TO yxk
*INPUT "请输入步长值 bcz= " TO bcz
*INPUT "请输入初始值 csz= " TO csz
*INPUT "请输入外循环起始值 xks= " TO xks
*INPUT "请输入外循环终结值 zds= " TO zds
bcz=510510
&&从2乘到17,即素数17的素数阶乘
kssj=SECONDS()
&&取出开始时间
FOR i=198 TO 200
@12,10 SAY i
&&调了下顺序,原来在FOR j=1 TO 92160 的下边,执行第一个外循环,提示已经到了表尾
FOR j=1 TO 92160
SELECT 1
GO j
sss=素数式
bpz=sss+(i-1)*bcz
&&计算被判断值
Kf=INT(SQRT(bpz))
&&求出被判断值的开方根
SELECT 2
GO 1
COUNT ALL FOR 素数<=kf TO jlh
&&借用原来的记录号,实际上统计kf以前的素数个数
&& jlh=RECNO()
SELECT 2
GO 7
&&从第二条记录开始读取素数(3)
FOR k=1 TO jlh-6
&&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
qmz=MOD(bpz,素数)
&&以读取的素数为条件,对被判断值求模
IF qmz=0 && OR qmz=2 OR qmz=6 OR qmz=8
如果符合这四个约定条件之一,就进行相应工作.如果一个也没有符合条件的,直接使记录指针向下移动一个(SKIP)
EXIT
&&因为符合条件,则做完相应工作后跳出内循环
ENDIF
SKIP
&&素数表指针向下移动一个
ENDFOR
IF k>jlh-6
SELECT 3
&&打开保存求解结果的信息表
APPEND BLANK
&&增加一条空记录
REPLACE 素数 WITH bpz && 把bpz赋给素数
ENDIF
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是一个制作素数表程序,也用到数据源表(素数式至17表→即用素数2,3,5,7,11,13,17这7个素数处理过的数据,每一层外循环数值增加值是510510(2*3*5*7*11*13*17),中层循环为92160(2*4*6*10*12*16),最;里层循环次数不定,有被判断值的开方值前素数个数确定最大循环次数,合数循环次数都小于最大循环次数,只有质数才是满循环),只不过,这个程序是一个一个的判断,排除,筛选。
而本帖要求一次性调入92160个数据(即中循环次数),在主要循环体中,是每次都得全部未完成,并不退出循环(循环次数以最大次数为准(不考虑那一批次中最小值的循环次数))。
一个程序是一个一个的处理,一个程序是一批一批的处理,这是问题的关键。(再就是处理过程中进行速度会加快,因为每循环一次被判断的数量只减不增)。