OPEN "QB22.DAT" FOR OUTPUT AS #1
DIM t AS LONG
参考答案程序
OPEN "QB22.DAT" FOR OUTPUT AS #1
DIM t AS LONG
CLS
t = 1
FOR i = 5 TO 30 STEP 5
t = t * i
PRINT i
NEXT
PRINT t
PRINT #1, t
CLOSE #1
END
第3题
编制程序PROG1.BAS其功能是:求自然对数的底e 的近似值。其前十项的计算公式为:
e(10)=1+1+1/(1*2)+1/(1*2*3)+...+1/(1*2*3*...*10)
请在程序的【1】、【2】和【3】处填写适当的内容。
Prog1.bas
e = 【1】
t= 1
FOR j = 1 TO 10
t = t/【2】
e = e + t
NEXT j
PRINT 【3】
END
参考程序答案
e = 1
t= 1
FOR j = 1 TO 10
t = t/j
e = e + t
NEXT j
PRINT e
END
第4题
编制程序PROG1.BAS其功能是:求下式和s=a+aa+aaa+…+a…a,
其中a表示0至9间一个数字。计算a=8时4项和,写到文件"QB42.DAT"