vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止
题目
vb 编程 用pi /4 =1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止
Dim pi As Double, i As Integer, x As Long
x = 1
i = 1
While 1 / x > 10 ^ -6
pi = pi + i * (1 / x)
i = -1
x = x + 2
Wend
Print pi * 4
我是菜鸟 求指教 请问哪儿错了?
答案
1、循环前面加一条:pi=0
2、i=-1改为i=-1*i
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 煤气的主要成分是什么,书上写的煤气中有氢气,甲烷,一氧化碳 煤气是混合物吗?
- 如何准备考研英语?lz 单词量少并且对语法一窍不通
- 深海鱼油中,含有一种不饱和程度很高的高级脂肪酸DHA,.则DHA分子中含有碳碳双键的个数是:
- 一根2米的圆柱形木桩,截成3短后,表面积比原来增加5.6平方分米,这根木桩原来的体积是多少
- 上午8时,一条船从A处出发以16海里/小时的速度向正北航行,10时到达B处,从A处测得灯塔C在北偏西26°,从B处测得灯塔C在北偏西52°,则B处到灯塔C的距离为_______.
- 分针走一分时针走多少度?
- 初中解释句子
- 岩石圈的组成
- 等物质的量的盐酸和醋酸,那水的电离程度哪个大呢,
- 小明做作业,有一道很难的数学题,可是他为什么不问?