利用公式 求 的近似值,直到最后一项的绝对值小于 为止.

公式:π/4=1-1/3+1/5-1/7+...求值n=0sn=0an=1dountilABS(an)

应该是Pi/4=1-1/3+1/5-1/7+…+（-1）^(n-1)/(2*n-1)吧,PrivateSubForm_Load()DimPiAsSingle,iAsLongForm1.AutoRedr

DimsAsInteger,nAsintegerDimtAssingle,piAssingles=1:t=1:n=1:pi=0DoWhileAbs(t)>0.0001pi=pi+tn=n+2s=-st

#include#includevoidmain(){floats=0;inti;floatt=1;for(i=1;;i=i+2){if(fabs(t/i)

//你应该还少乘了一个4#include "stdio.h"#include "math.h"int main(){ &

程序没有问题吧,你想问什么?再问：结果是1-=再答：#include<stdio.h>void main(){ int i,n,sign; doub

你的问题主要是类型的问题.因为a是int型的,你在计算的时候不转型成浮点型是不对的（1/a=0）因此你要写成：pi=pi+1.0/(2*a-1);pi=pi-1.0/(2*a-1);还有判断条件：wh

你把doublej=1;改成doublej=-1;就对了.你看公式里,1/3这一项是负的,所以你i=3的时候j应该是-1,不是1.

#include#includevoidmain(){intn,p=-1;doubleq=1.0,s=0.0;//q初始化要大于1e-6for(n=1;fabs(q)>=1e-6;n=n+2){p=-

#include#include#includeintmain(){doublepi,t,n,s;s=t=1;pi=0;n=1;while((fabs(t))>=1.0E-6){pi=pi+t;n=n

#include<stdio.h>#include<math.h>void main(){double s=0,pi,t,d,c;double i

修改如下：在vc6.0下运行正常,结果,PI=3.141595#include#includevoidmain(){doubles,a,i;i=0.0;s=1.0;do{i=i+1;s=s+1.0/(

刚写的,测试过了pi=3.1415927

#include#includevoidmain(){ints;floatn,t,pi;s=1,pi=0,n=t=1.0;do{pi+=t;n+=2;s=-s;t=s/n;}while(fabs(t)

PrivateSubCommand1_Click()a=1Don=n+1m=2*n-1s=s+a*1/ma=-aLoopUntilAbs(1/m)pi=4*sPrint"pi="&piEndSu

PrivateSubCommand1_Click()x=InputBox("请输入x：")s=1fact=1Doi=i+1fact=fact*it=x^i/facts=s+tLoopUntilt

⑴1.04×1.01=1.0*1.0=1.00⑵1.03×1.01=1.0*1.0=1.00⑶1.03×0.98=1.0*1.0=1.00⑷1.04×0.98=1.0*1.0=1.00⑸7÷1.02=

放到后面,应为执行完for下面的大括号才执行这句n=n+2严格按照你列出来的等式,每执行一次for循环体进行一次算术运算,改成下面这样就可以了#include<stdio.h>#inclu

DimaAsLong,sAsLong,DAsString,eAsLong,bAsLongD=1:a=1:s=1DoUntile>6D=((2*a)/(2*a+1))*((2*a)/(2*a-1))s=

PrivateSubForm_Click()DimpiAsDoubleDimnAsLongn=1Dopi=pi+4*((-1)^(n-1)*(1/(2*n-1)))n=n+1LoopUntil1/(2