计算π的近似值,精确到小数点后6位 设计vb程序 需要代码 VB里面的 π/2=2^2/1*3 ×4^4/3*5 ×.×
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/04 23:30:32
计算π的近似值,精确到小数点后6位 设计vb程序 需要代码 VB里面的 π/2=2^2/1*3 ×4^4/3*5 ×.×(
你给的公式不对!应该是π/2=2^2/1*3 ×4^2/3*5 ×.×(
这个公式求的精度不高!代码如下:
Dim PI1 As Double
Dim PI2 As Double
Dim Temp As Double
Dim n As Double
PI1 = 0:PI2 = 2:n = 2
While PI2 - PI1 > 0.000001
PI1 = PI2
Temp = (n * n) / ((n - 1) * (n + 1))
PI2 = PI2 * Temp
n = n + 2
Wend
Me.Text1.Text = PI2
这个公式求的精度不高!代码如下:
Dim PI1 As Double
Dim PI2 As Double
Dim Temp As Double
Dim n As Double
PI1 = 0:PI2 = 2:n = 2
While PI2 - PI1 > 0.000001
PI1 = PI2
Temp = (n * n) / ((n - 1) * (n + 1))
PI2 = PI2 * Temp
n = n + 2
Wend
Me.Text1.Text = PI2
计算π的近似值,精确到小数点后6位 设计vb程序 需要代码 VB里面的 π/2=2^2/1*3 ×4^4/3*5 ×.×
vb计算1!+3!+*****+(2n+1)!的代码
怎样用c++计算 π的近似值:利用下列公式计算 的近似值,要求精确到小数点后,π/2=1+1/3+1*2/3*5+1*2
VB,计算S=1!+2!+3!+4!+5!的程序.
VB计算圆周率近似值 π/4=1-1/3+1/5+.+1/i一直到i
vb编一个计算1+2+3+4+...+100=的程序
利用VB设计一个程序:输入一个大于10的正整数n,计算sum=1+3+5+…(2n+1),编写程序输出计算结果sum
VB编写程序,计算1+( 1+3)+(1+3+5 )+...前200项的和 需要编程代码和计算结果,
根号2精确到小数点后一位的过剩近似值和不足近似值各是多少?
用VB计算S=1+2^2+2^3+…+2^10的代码
VB中求1/2+2/3+3/4+4/5+……前50项之和(保留两位小数)的代码
编程e=1+1/1i+1/2i+...,求求e的近似值,精确小数点后6位,..