作业帮 > 综合 > 作业

求下述表达式的值,直到最后一项的绝对值小于10-6为止.

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/15 06:00:04
求下述表达式的值,直到最后一项的绝对值小于10-6为止.
w=1/(1x2)+1/(2x3)+1/(3x4)+…+1/(nx(n+1))
求下述表达式的值,直到最后一项的绝对值小于10-6为止.
Dim n As Long, w As Single
w = 0
n= 1
Do While n * (n + 1) < 1000000
w = w + 1 / (n* (n + 1))
n=n + 1
Loop

Print w,n