高精度除法运算程序

Author: 江苏省如东县马塘小学电脑组石磊辅导老师:程兴 Date: 1992-01-10

        首先输入被除数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……