标题高精度除法运算的实现

　　笔者设计了一种算法，可以实现除法的高精度运算，理论上可精确到小数点后无限位。该算法突破了计算机中除法运算的一般概念，不是向计算机直接输入运算式，由计算机运算后得到结果，而是利用了计算机运算速度快的特点，用计算机模仿除法运算的实际步骤，先用被除数除以除数，得到一个整数商和一个余数，将整数商记录下来作为结果，将余数乘以10后作为下一步运算的被除数，继续运算，并往复循环。
　　将每一步运算得到的整数商转换成字符串存储在字符串变量中，当运算到用户给定的精度时，输出字符串变量的内容即为运算结果。
　　本文所附程序用高级BASIC语言写成，在Super PC/286微机上运行通过。
　　
　　5 CLS
　　10 PRINT "A/B=？"
　　20 INPUT "input A="; a
　　30 INPUT "input B="; b
　　35 INPUT "stop at :"; n
　　40 IF b = 0 THEN PRINT "error: divided by zero！": BEEP: GOTO 10
　　50 aa = a
　　55 s = INT(aa / b)
　　60 first$ = STR$(s)
　　70 FOR i = 1 TO n
　　80 aa = (aa - b * s) * 10
　　90 s = INT(aa / b)
　　100 rst$ = rst$ + STR$(s)
　　110 NEXT i
　　120 PRINT STR$(a); "/"; STR$(b); "="; first$; "."; rst$
　　130 END