标题高精度除法运算程序

　　首先输入被除数A，除数B以及小数点后保留的位数E，并检查除数是否为零。再根据被除数，除数确定商的正负号，然后开始运算，将剩余部向左移一位，所得商自动右移一位。
　　运行此程序可以得到你所要求的位数。(程序在苹果机上运行通过)
　　5 REM 高精度除法
　　20 INPUT “A，B，E=”；A，B，E
　　25 IF B=0 THEN 20
　　30 PRINT A；“/”；B；“=”；
　　32 IF A*B〈0
　　THEN PRINT “_”；
　　34 A=ABS(A);B=ABS(B)
　　36 K=INT(A/B)
　　40 PRINT K；“.”
　　50 A=10*(A-K*B)
　　60 K=INT(A/B)
　　70 PRINT K;
　　80 E=E-1
　　90 IF E>0
　　THEN 50
　　95 PRINT“……”
　　100 END
　　RUN
　　A，B，E=223，71，30
　　223/ 71 =3.
　　140845070422535211267605633802……
　　RUN
　　A，B，E=713，79，25
　　713/ 79 =9.
　　0253164556962025316455696……