四、商的计算程序
商的计算分两种情况：一是多位数与多位数相除；二是计算真分数的多位小数。多位数与多位数相除，和多位数与多位数相乘相同，这里就不再赘述了。我们只给出求真分数多位小数的计算程序。因为假分数皆可化为整数与真分数之和，故此处只讨论真分数。我们以计算3/113的多位小数为例，其程序清单与计算结果如下：
程序清单：
5：LPRINT “3/113=”；
10：P=113：Q=3：R=1E8
20：FOR I TO 14
30：T=INT（Q*R/P）
40：IF I=0 LET B=T/R：GOTO 60
50：B=T
60：S=Q*R-T*P
70：Q=S
80：LPRINT B
90：NEXT I
100：END
打印计算结果：
3/113=0.02654867
25663716
81415929
20353982
30088495
57522123
89380530
97345132
71336283
18584070
79646017
69911501
12477876
10619469|
02654867
“|”号表示循环节位数，共112位。
四、商的计算程序
商的计算分两种情况：一是多位数与多位数相除；二是计算真分数的多位小数。多位数与多位数相除，和多位数与多位数相乘相同，这里就不再赘述了。我们只给出求真分数多位小数的计算程序。因为假分数皆可化为整数与真分数之和，故此处只讨论真分数。我们以计算3/113的多位小数为例，其程序清单与计算结果如下：
程序清单：
5：LPRINT “3/113=”；
10：P=113：Q=3：R=1E8
20：FOR I TO 14
30：T=INT（Q*R/P）
40：IF I=0 LET B=T/R：GOTO 60
50：B=T
60：S=Q*R-T*P
70：Q=S
80：LPRINT B
90：NEXT I
100：END
打印计算结果：
3/113=0.02654867
25663716
81415929
20353982
30088495
57522123
89380530
97345132
71336283
18584070
79646017
69911501
12477876
10619469|
02654867
“|”号表示循环节位数，共112位。