qbasic编程

来源：百度知道 编辑：UC知道 时间：2024/05/12 14:02:32
相传古代印度有个国王很贪玩，重金悬赏发明奇妙游戏的术士。有一个聪明的术士把他发明的一种棋数献给了国王。国王玩儿废寝，要重赏这位术士，术士只提了个小小的要求：请在棋盘上的第一个格里放进一粒米，在第二个格里放进两粒米，在第三个格里放进一粒米，.......，第一个格斗放进比前一个格多一粒米，把棋盘上的64个格都放满，这就是我要的奖赏。这些米可以盖住地球的表面。全世界要几百年才能种出来。聪明的术士用书上的几何级数，愚弄了贪玩的国王。放满64个格共需要多少粒米？请用qbasic编写程序！！！请用高精度做，详细一些

高精度计算
方法：
1.定义数组
2.进行高精度计算
1）高精度乘法
2）高精度加法
3.输出
---------------------------------------------------
1.CLS
y = 100
DIM a(y), c(y + 1)
a(1) = 1
c(1) = 1
2.FOR i = 2 TO 64
c = 0
FOR j = 1 TO y
1） x = a(j) * 2 + c
c = x \ 10
a(j) = x MOD 10
2） c(j) = c(j) + a(j)
c(j + 1) = c(j + 1) + c(j) \ 10
c(j) = c(j) MOD 10
NEXT j
NEXT i
3.k = y
DO WHILE c(k) = 0
k = k - 1
LOOP
FOR i = k TO 1 STEP -1
PRINT USING "#"; c(i);
NEXT i
---------------------------------------------------
归纳总结后程序清单
CLS
y = 100
DIM a(y), c(y + 1)
a(1) = 1
c(1) = 1
FOR i = 2 TO 64
c = 0
FOR j = 1 TO y
x = a(j) * 2 + c
c = x \ 10
a(j) = x MOD 10
c(j) = c(j) + a(j)
c(j + 1) = c(j + 1) + c(j) \ 10
c(j)