longadd.prg

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

* longadd.prg
* 长加法
parameters a,b
private except eachlen,alllen
*eachlen=10
*alllen=len(a)
n=alllen/eachlen
c=""
jinwei=0
for i=1 to n step 1
   *@ 10,10 say "longadd"+str(i)
   point1=alllen-i*eachlen+1
   sub_a=substr(a,point1,eachlen)
   sub_b=substr(b,point1,eachlen)
   num_c=val(sub_a)+val(sub_b)+jinwei
   sub_c=str(num_c,eachlen+1)
   jinwei=iif(left(sub_c,1)>" ",1,0)
   sub_c=right(sub_c,eachlen)
   c=sub_c+c
next i
c=iif(jinwei>0,"1","")+c
return c