SELECT 1
USE G:\三角递增法\相同记录数表总11.DBF ALIAS 相同记录表11
SELECT 2
USE G:\三角递增法\无偶最终结果表新总11.DBF ALIAS 无偶结果表新11
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 666615
@ 5,12 say i
SELECT 1 &&打开盛放素数式的表
&& jl=recno()
PUBLIC A
A=相同记录数
B=无偶
IF A=2
SELECT 2
APPEND BLANK &&增加一条空记录
REPLACE 无偶 WITH B &&将N值付给素数式
ENDIF
SELECT 1
skip
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是第四步,导出无解偶数表,记录条数是2的无解,是1的有解。
USE G:\三角递增法\相同记录数表总11.DBF ALIAS 相同记录表11
SELECT 2
USE G:\三角递增法\无偶最终结果表新总11.DBF ALIAS 无偶结果表新11
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 666615
@ 5,12 say i
SELECT 1 &&打开盛放素数式的表
&& jl=recno()
PUBLIC A
A=相同记录数
B=无偶
IF A=2
SELECT 2
APPEND BLANK &&增加一条空记录
REPLACE 无偶 WITH B &&将N值付给素数式
ENDIF
SELECT 1
skip
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是第四步,导出无解偶数表,记录条数是2的无解,是1的有解。
素数问题的解决是我学习编程永恒的动力。