[原创]请教vfbpgyfk先生一个编程问题

白新岭 · 发表于 2022-1-4 10:36

SELECT 1
USE d:\k生素数串\三生串11.DBF ALIAS 三生串11
SELECT 2
USE d:\k生素数串\三生串13.DBF ALIAS 三生串13

kssj=SECONDS()
FOR i=1 TO 13
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  88
               A=三串11
            && jl1=recno()
               s=A+(i-1)*2310
               IF MOD(s,13)=1 OR MOD(s,13)=3 OR MOD(s,13)=10
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 三串13 WITH s
               ENDIF

               SELECT 1
               skip
               ENDFOR
   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
三生素数串制作程序。

白新岭 · 发表于 2022-1-4 10:43

SELECT 1
USE d:\k生素数串\三生串13.DBF ALIAS 三生串13
SELECT 2
USE d:\k生素数串\三生串17.DBF ALIAS 三生串17

kssj=SECONDS()
FOR i=1 TO 17
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  880
               A=三串13
            && jl1=recno()
               s=A+(i-1)*30030
               IF MOD(s,17)=1 OR MOD(s,17)=3 OR MOD(s,17)=14
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 三串17 WITH s
               ENDIF

               SELECT 1
               skip
               ENDFOR
   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2022-1-4 10:47

SELECT 1
USE d:\k生素数串\三生串17.DBF ALIAS 三生串17
SELECT 2
USE d:\k生素数串\三生串19.DBF ALIAS 三生串19

kssj=SECONDS()
FOR i=1 TO 19
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  12320
               A=三串17
            && jl1=recno()
               s=A+(i-1)*510510
               IF MOD(s,19)=1 OR MOD(s,19)=3 OR MOD(s,19)=16
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 三串19 WITH s
               ENDIF

               SELECT 1
               skip
               ENDFOR
   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2022-1-4 10:53

SELECT 1
USE d:\k生素数串\三生串19.DBF ALIAS 三生串19
SELECT 2
USE d:\k生素数串\三生串23.DBF ALIAS 三生串23

kssj=SECONDS()
FOR i=1 TO 23
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  197120
               A=三串19
            && jl1=recno()
               s=A+(i-1)*9699690
               IF MOD(s,23)=1 OR MOD(s,23)=3 OR MOD(s,23)=20
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 三串23 WITH s
               ENDIF

               SELECT 1
               skip
               ENDFOR
   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独舟星海 · 发表于 2022-1-4 13:46

SELECT 1
USE g:\一加m问题\素数表10亿.DBF ALIAS 素数表
SELECT 2
USE g:\一加m问题\二生素数d16.DBF ALIAS 二素表
kssj=SECONDS()
For i=1 to 9592
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
COUNT NEXT 8 FOR 素数-A=16 TO tj
IF tj=1
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素16 WITH A+8    &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
在素数表中寻找符合条件的二生素数(0,2m)的中项。

独舟星海 · 发表于 2022-1-4 13:47

SELECT 1
USE g:\一加m问题\素数表10亿.DBF ALIAS 素数表
SELECT 2
USE g:\一加m问题\二生素数d18.DBF ALIAS 二素表
kssj=SECONDS()
For i=1 to 9592
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
COUNT NEXT 9 FOR 素数-A=18 TO tj
IF tj=1
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素18 WITH A+9    &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独舟星海 · 发表于 2022-1-4 13:49

SELECT 1
USE g:\一加m问题\素数表10亿.DBF ALIAS 素数表
SELECT 2
USE g:\一加m问题\二生素数d20.DBF ALIAS 二素表
kssj=SECONDS()
For i=1 to 9592
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
COUNT NEXT 10 FOR 素数-A=20 TO tj
IF tj=1
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素20 WITH A+10    &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独舟星海 · 发表于 2022-1-4 13:50

SELECT 1
USE g:\一加m问题\素数表10亿.DBF ALIAS 素数表
SELECT 2
USE g:\一加m问题\二生素数d22.DBF ALIAS 二素表
kssj=SECONDS()
For i=1 to 9592
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
COUNT NEXT 11 FOR 素数-A=22 TO tj
IF tj=1
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素22 WITH A+11    &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独舟星海 · 发表于 2022-1-4 13:51

SELECT 1
USE g:\一加m问题\素数表10亿.DBF ALIAS 素数表
SELECT 2
USE g:\一加m问题\二生素数d24.DBF ALIAS 二素表
kssj=SECONDS()
For i=1 to 9592
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
COUNT NEXT 12 FOR 素数-A=24 TO tj
IF tj=1
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素24 WITH A+12 &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独舟星海 · 发表于 2022-1-4 13:52

SELECT 1
USE g:\一加m问题\素数表10亿.DBF ALIAS 素数表
SELECT 2
USE g:\一加m问题\二生素数d26.DBF ALIAS 二素表
kssj=SECONDS()
For i=1 to 9592
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
COUNT NEXT 13 FOR 素数-A=26 TO tj
IF tj=1
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素26 WITH A+13 &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

		自动登录	找回密码
密码			注册