dodiv.prg

用VFP计算平方根(例如sqtr(2))到6万5千位小数的程序.

* dodiv
clear
? time()
a=replicate("000081",2)
b=replicate("000023",2)
c=longdiv(a,b)
? time()
wait
? a
? b
? c
return