编程题：用π/4≈1-1/3+1/5-1/7+……公式求π的近似值，直到最后一项绝对值小于10^-6为止 do_while 循环

如题所述

推荐答案 2016-11-07

Private Sub Command1_Click()
Dim sign As Integer, a As Long, pi As Double
Dim i As Integer
sign = -1
i = 1
Do
    a = 2 * i - 1
    sign = -1 * sign
    pi = pi + (1 / a) * sign
    i = i + 1
Loop While Abs((1 / a) * sign) > 0.0001
pi = pi * 4
Print pi
End Sub

追问

C语言

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/GINpGN8qGN8IYWG3qvv.html

相似回答

.../4≈1-1/3+1/5-1/7+。。。公式求π的近似值,直到某一项的绝对值小于...答：用For语句没有问题。但应该把 pi=pi+t 放到后面，应为执行完for下面的大括号才执行这句 n=n+2 严格按照你列出来的等式，每执行一次for循环体进行一次算术运算，改成下面这样就可以了 include <stdio.h> include <math.h> int main(){ int s;double t,n,pi;s=-1,t=1,n=1.0,pi=0;...

C语言 编程用π/4=1-1/3+1/5-1/7+...的公式求π的近似值答：include "stdio.h"int main(int argc,char *argv[]){int n;double s,t;for(s=0,n=1;(t=1.0/(n+n-1))>1.0E-7;s += (n+n++)%4 ? t : -t);printf("π≈%g\n",s*4);return 0;}

...公式“π/4≈1-1/3+1/5-1/7+...”, 求π的近似值”?答：} cout<<"PI="<<PI*4<<endl;system("pause");}

...4≈1-1/3+1/5-1/7+…求圆周率π的近似值,直到最后一项绝对值小于10...答：如何用公式π/4≈1-1/3+1/5-1/7+…求圆周率π的近似值，直到最后一项绝对值小于10^-6。用matlab的for循环语句可以实现。1、首先将1-1/3+1/5-1/7+…，用求和符号来简化，即Σ（-1）^(n-1)*1/(2*n-1)2、令s=0，这样便于累加，即s=s+（-1）^(n-1)*1/(2*n-1)3、当s(...

...公式“π/4≈1-1/3+1/5-1/7+...”, 求π的近似值”?答：include<iostream> include<cmath> using namespace std;int main(){ int i=1;double tmp=1,sum=0;//迭代项本身的绝对值小于1E-5 while(tmp>=0.00001){ sum+=pow(-1.0,(i+3)/2)*tmp;i+=2;tmp=1.0/i;} cout<<sum*4<<endl;sum=1;i=3;//相邻两次迭代项的差的绝对值小于1...

用C++语言编程求 π 的近似值, 利用公式∶ π /4=1-1/3+1/5-1/7+...答：include <iostream> include <cmath> using namespace std;void main(){ double pi=0,t;int i=1,f=1;while((t=fabs(1.0/i))>=1.0e-6){ pi+=f*t;i+=2;f=-f;} cout <<"PI=" <<pi*4 <<endl;}

...公式“π/4≈1-1/3+1/5-1/7+...”, 求π的近似值。要求迭代误差ε小...答：int main(){ double n=1,sn=1,pi,tn,t;while(fabs(sn-3.1415926)>10e-5){tn=n*(n+2);t=1+1/tn;sn=sn*(1+t);n=n+2;} pi=sn*4;cout<<pi;return 0;} sn=sn*(1+t);其中sn就是求的π/4的值，当whlie语句执行到sn的绝对值小于1E-5，即达到迭代误差，就执行pi=sn*...

大家正在搜

c语言编程题库100题 python编程题题库大一python基础编程题 c语言编程100题及答案 c语言常考的编程题 c++编程题库 python经典编程题 python编程题库和答案 c++用什么软件编程