银行卡密码破解教程:求助高一QBASIC的问题!!急!!
来源:百度文库 编辑:神马品牌网 时间:2024/09/21 09:28:21
关于循环结构的问题!
根据题意编写程序!
求 1-(1/2)+(1/3)-(1/4)+……+(1/99)-(1/100)的值.
根据题意编写程序!
求 1-(1/2)+(1/3)-(1/4)+……+(1/99)-(1/100)的值.
CLS
FOR i = 1 TO 100
TMP = 1 / i
SUM = TMP * (-1) ^ (i + 1) + SUM
NEXT i
PRINT "SUM=", SUM
QBASIC编译通过。
已编译通过
-----------
Dim N As Integer
Dim Sum As Double
Sum = 0
For N = 1 To 100
Sum = Sum + (-1) ^ (N - 1) * (1 / N)
Next
Print "Sum=" & Sum
End
cls
for i=1 to 100
if i mod 2=1 then s=s+1/i else s=s-1/i
next i
print s
end