按下面的公式求s的近似值,直到最后一项的项值-搜答案-百度作业网

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

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

1、循环前面加一条：pi=02、i=-1改为i=-1*i

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

#include <iostream>#include <math.h>using namespace std;int mai

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

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

#includemain(){doublepi;intn;for(n=1;n

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

手打的,最好自己再上机敲下,#include<stdio.h>#include<math.h>int fun(int n){ &nbs

这个链接你看下,应该是你需要的.再问：看不懂哇，求解释

修改如下：在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

sum=0n=1while1/(2*n-1)>1e-6\x09sum=sum+1/(2*n-1)*((-1)^(n-1));\x09n=n+1;endnsum*4

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

放到后面,应为执行完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

首先j=(-1)/i.由于-1与i都为整数,整数与整数作除法结果仍是整数（舍去小数部分）,再强制转化到浮点.应改为j=(-1.0)/i.其次j=1+j含义不明,应改为sum=sum+j（新定义一个su

#includeintmain(){inti,j,n;floats=0;scanf("%d",&n);for(i=1;i