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

白新岭 · 发表于 2025-3-14 22:20

截止2025年03月13日周四23:04分浏览量605859，回复3423，热度263
截止2025年03月14日周五22:20分浏览量607317，回复3430，热度263

白新岭 · 发表于 2025-3-15 08:46

截止2025年03月14日周五22:20分浏览量607317，回复3430，热度263
截止2025年03月15日周六08:46分浏览量608139，回复3431，热度263

白新岭 · 发表于 2025-3-15 08:53

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg14.DBF ALIAS 二生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 1
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=14
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ers14 WITH A+7 &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-15 11:43

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\三生素数jg14.DBF ALIAS 三生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 2
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=14
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE sss14 WITH A+7    &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-15 15:47

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\四生素数jg14.DBF ALIAS 四生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 3
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=14
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ssss14 WITH A+7 &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-15 18:57

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\五生素数jg14.DBF ALIAS 五生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 4
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=14
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE wss14 WITH A+7 &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-3-15 23:29

截止2025年03月14日周五22:20分浏览量607317，回复3430，热度263
截止2025年03月15日周六23:30分浏览量608864，回复3436，热度263

白新岭 · 发表于 2025-3-16 07:20

SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg16.DBF ALIAS 二生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 1
PUBLIC B
B=素数
cj1=B-A  &&求前后两个素数的差值
IF cj1=16
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE ers16 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,"运行时间提示")

独舟星海 · 发表于 2025-3-16 07:29

截止2025年03月15日周六23:30分浏览量608864，回复3436，热度263
截止2025年03月16日周日07:3分浏览量609348，回复3438，热度264

独木星空谁 · 发表于 2025-3-16 07:40

截止2025年03月15日周六23:30分浏览量608864，回复3436，热度263
截止2025年03月16日周日07:3分浏览量609349，回复349，热度265

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