手动求平方根：
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
我这是用Qbasic编的，你看要修改什么你自己改吧。Fb好像要之前定义，那我告诉你，i是INTEGER，x1、x2、n都是DOUBLE


手动求M方：

CLS
INPUT n
INPUT m
i = 1
WHILE i ^ m < n
  i = i + 1
WEND
x1 = i
x2 = x1 + (n / (x1 ^ (m - 1)) - x1) / m
WHILE x1 <> x2
  x1 = x2
  x2 = x1 + (n / (x1 ^ (m - 1)) - x1) / m
WEND
PRINT x1; "^"; m; "="; n
END
运行结果：
? 4
? 2
 2 ^ 2 = 4

? 16
? 4
 2 ^ 4 = 16