Question

Viết chương trình tính số pi với độ chính xác episilon biết:

pi/4= 1-1/3+1/5-1/7+...

Answer 1

duong nguyenvan vào làm câu này vs...

Answer 2

Uses Crt;
Const Epsilon=1E-4;
Var Pi,t:real;
i,s:Integer;
Begin
Pi:=4; i:=1; s:=-1;
t:=4/(2*i+1);
While t>Epsilon Do
Begin
Pi:=Pi+s*t;
s:=-s; i:=i+1;
t:=4/(2*i+1);
End;
Writeln('So Pi = ',Pi:0:4);
Readln;
End.

xong rồi đó