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

白新岭 · 发表于 2022-1-27 13:26

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

kssj=SECONDS()
FOR i=1 TO 29
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  700245
               A=四串23
            && jl1=recno()
               s=A+(i-1)*223092870
               IF MOD(s,29)=0 OR MOD(s,29)=2 OR MOD(s,29)=6  OR MOD(s,29)=8
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 四串29 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-27 17:48

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  96
               A=五串13
            && jl1=recno()
               s=A+(i-1)*30030
               IF MOD(s,17)=0 OR MOD(s,17)=2 OR MOD(s,17)=6  OR MOD(s,17)=8  OR MOD(s,17)=12
                  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-27 18:08

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  1152
               A=五串17
            && jl1=recno()
               s=A+(i-1)*510510
               IF MOD(s,19)=0 OR MOD(s,19)=2 OR MOD(s,19)=6  OR MOD(s,19)=8  OR MOD(s,19)=12
                  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-27 18:10

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  16128
               A=五串19
            && jl1=recno()
               s=A+(i-1)*9699690
               IF MOD(s,23)=0 OR MOD(s,23)=2 OR MOD(s,23)=6  OR MOD(s,23)=8  OR MOD(s,23)=12
                  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-27 18:16

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

kssj=SECONDS()
FOR i=1 TO 29
@ 15,22 say i
            SELECT 1
               GO 1
               FOR j=1  TO  290304
               A=五串23
            && jl1=recno()
               s=A+(i-1)*223092870
               IF MOD(s,29)=0 OR MOD(s,29)=2 OR MOD(s,29)=6  OR MOD(s,29)=8  OR MOD(s,29)=12
                  else
               SELECT 2
               APPEND BLANK
               REPLACE 五串29 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-28 10:30

SELECT 1
USE d:\k生素数串\五生串29.DBF ALIAS 五生串29
SELECT 2
USE d:\k生素数串\五生串最短距离.DBF ALIAS 五生串最短距离

kssj=SECONDS()
k=6
  SELECT 1
   GO 1
   A=五串29
   SKIP k
   B=五串29
   C=B-A
            GO 2
               FOR j=1  TO  6967200
               @ 15,22 say j
               D=五串29
               jlh=recno()
            && jl1=recno()
               SKIP k
               E=五串29
               F=E-D

               IF C<F
                  C=C
                  ELSE
                  C=F
               ENDIF

               SELECT 1
               GO jlh+1
               ENDFOR
      SELECT 2
      APPEND BLANK
      REPLACE 五生串k WITH k+1
      REPLACE 跨度 WITH C

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

白新岭 · 发表于 2022-1-28 13:40

SELECT 1
USE d:\k生素数串\五生串29.DBF ALIAS 五生串29
SELECT 2
USE d:\k生素数串\五生串最短距离.DBF ALIAS 五生串最短距离

kssj=SECONDS()
FOR i=1  TO  5
  @ 5,12 say i
  SELECT 1
   GO 1
   A=五串29
   SKIP i
   B=五串29
   C=B-A
            GO 2
               FOR j=1  TO  6967200
               @ 15,22 say j
               D=五串29
               jlh=recno()
            && jl1=recno()
               SKIP i
               E=五串29
               F=E-D

               IF C<F
                  C=C
                  ELSE
                  C=F
               ENDIF

               SELECT 1
               GO jlh+1
               ENDFOR
      SELECT 2
      APPEND BLANK
      REPLACE 五生串k WITH i+1
      REPLACE 跨度 WITH C
   ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2022-1-31 21:55

截止2022年1月31日21:57分周一，农历腊月廿九，热度65，回复1293，浏览量45643.

白新岭 · 发表于 2022-2-7 21:27

SELECT 1
USE g:\一加m问题\素数表10亿.DBF ALIAS 素数表
SELECT 2
USE g:\一加m问题\二生素数d52.DBF ALIAS 二素表
kssj=SECONDS()
For i=1 to 9592
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
COUNT NEXT 26 FOR 素数-A=52 TO tj
IF tj=1
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素52 WITH A+26  &&将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-2-7 21:28

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

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