USES crt;
VAR soPi, saiso, dochinhxac: REAL;
n, i, dau: INTEGER;
BEGIN
clrscr;
write('Hay cho sai so de tinh gan dung so Pi =');
readln(saiso);
soPi:=0; dochinhxac:=3; i:=0; dau:=-1;
WHILE dochinhxac>saiso DO
BEGIN dau:= -dau; soPi:=soPi + dau*1/(2*i + 1);
dochinhxac:= abs(4*soPi-Pi); i:=i+1 END;
{Pi la ham chuan}
writeln('So Pi gan bang ', soPi*4);
readln
END.
Download: http://www.mediafire.com/?v6d5121b1tzdfqq
VAR soPi, saiso, dochinhxac: REAL;
n, i, dau: INTEGER;
BEGIN
clrscr;
write('Hay cho sai so de tinh gan dung so Pi =');
readln(saiso);
soPi:=0; dochinhxac:=3; i:=0; dau:=-1;
WHILE dochinhxac>saiso DO
BEGIN dau:= -dau; soPi:=soPi + dau*1/(2*i + 1);
dochinhxac:= abs(4*soPi-Pi); i:=i+1 END;
{Pi la ham chuan}
writeln('So Pi gan bang ', soPi*4);
readln
END.
Download: http://www.mediafire.com/?v6d5121b1tzdfqq