您所在位置：主题：手动开M方
幽灵密码
[专家分：3510] 发布于 2010-12-27 16:55:00
手动开平方
CLS
INPUT n
i = 1
WHILE i * i < n
i = i + 1
WEND
i = i - 1
x1 = i
x2 = x1 + (n / x1 - x1) / 2
WHILE x1 <> x2
x1 = x2
x2 = x1 + (n / x1 - x1) / 2
WEND
PRINT x2
END
CLS
INPUT n
i = 1
WHILE i * i < n
i = i + 1
WEND
i = i - 1
x1 = i
x2 = x1 + (n / x1 - x1) / 2
WHILE x1 <> x2
x1 = x2
x2 = x1 + (n / x1 - x1) / 2
WEND
PRINT x2
END
