请教筛选平方数
先生好,我编了筛选平方数的代码,对于数值较小时运行结果精确正确,对于数值较大时运行结果与笔算怎么会有误差的,请先生指导,代码如下,谢谢CLEAR
CLOSE all
SET SAFETY OFF
USE 记录表
PACK
ZAP
FOR n=10 TO 20
FOR i=1 TO 10
列1 = 2*n*n-i*i
IF INT(SQRT(列1))=SQRT(列1)
APPEND BLANK
REPLACE n的值 WITH n
REPLACE i的值 WITH i
REPLACE 平方数记录 WITH 2*n*n-i*i
ELSE
LOOP
ENDIF
ENDFOR
ENDFOR
*------------
DELETE FILE *.BAK
MESSAGEBOX('本 次 运 行 结 束 !!',64,'信息提示')
VFP筛选平方数.rar
(4.63 KB)
[此贴子已经被作者于2018-4-13 20:45编辑过]