div2.prg

来自「用VFP计算平方根(例如sqtr(2))到6万5千位小数的程序.」· PRG 代码 · 共 24 行

* div2.prg
* 长数除以2
parameters a
private except eachlen,alllen
*eachlen=10
*alllen=len(a)
n=alllen/eachlen
c=""
yushu=0
for i=1 to n step 1
   point1=eachlen*(i-1)+1
   sub_a=substr(a,point1,eachlen)
   num_c1=val(sub_a)+yushu*10**eachlen
   num_c2=int(num_c1/2)
   yushu=mod(num_c1,2)
   num_c2=num_c2+iif(yushu>0.and.i=n,1,0)
   sub_c=str(num_c2,10)
   if left(sub_c,1)=" "
      sub_c="0"+right(sub_c,eachlen-1)
   endif
   c=c+sub_c
next i
return c