delphi语言编程:π/4=1-1/3+1/5-1/7+…,请计算π的近似值 直到精确度10e-6位置
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/09/21 06:22:16
delphi语言编程:π/4=1-1/3+1/5-1/7+…,请计算π的近似值 直到精确度10e-6位置
用迭代的方式不断逼近,直到前后两次计算值差满足要求
procedure TForm1.Button1Click(Sender:TObject);
const
e=1.0E-6;//精度
maxn=10000000;//计算次数上限
var
n,k:longint;
ans1,ans2:extended;
begin
ans1:=0;ans2:=0;n:=-1;k:=-1;
repeat
k:=-k;n:=n+2;
ans1:=ans2;
ans2:=ans2+4*k/n;
until (abs(ans2-ans1)=maxn);
Edit1.Text:=copy(floattostr(ans2),1,trunc(-ln(e)/ln(10))+2);
end;
procedure TForm1.Button1Click(Sender:TObject);
const
e=1.0E-6;//精度
maxn=10000000;//计算次数上限
var
n,k:longint;
ans1,ans2:extended;
begin
ans1:=0;ans2:=0;n:=-1;k:=-1;
repeat
k:=-k;n:=n+2;
ans1:=ans2;
ans2:=ans2+4*k/n;
until (abs(ans2-ans1)=maxn);
Edit1.Text:=copy(floattostr(ans2),1,trunc(-ln(e)/ln(10))+2);
end;
Delphi编程,计算e的近似值(e=1+1/1!+1/2!+1/3!+...+1/n!+...)
c语言编程:pi/4=1-1/3+1/5-1/7+…,请计算pi的近似值.
利用pi/4 = 1 - 1/3 + 1/5 - 1/7 + ...,编程计算pi的近似值,直到最后一项的绝对值小于10
c语言题:用π/4=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10e-6为止.
计算π的近似值.公式如下:π/4=1-1/3+1/5-1/7+……,直到最后一项的绝对值小于10-6为止.
C语言 编程用π/4=1-1/3+1/5-1/7+.的公式求π的近似值
求C语言编程,e=1+1/1!+1/2!+1/3!+...+1/n!,精确度1e-6
c语言用π=1-1/3+1/5-1/7+.公式求π的近似值,直到最后一项的绝对值小于10^-6为止
C语言编程根据公式π/4=1-1/3+1/5-1/7+1/9-1/11+……,计算π的近似值,当某一项的值小于0.000
用π=1-1/3+1/5-1/7+……公式求π的近似值,直到最后一项的绝对值小于1e-6为止
C语言小白求助:用π/4≈1-1/3+1/5-1/7+.公式求π的近似值,直到某一项的绝对值小于1e-6为止
C语言解答:利用公式:π/4=1-1/3+1/5-1/7+……,求π的近似值,直到最后一项的绝对值小于10-6为止