Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted by registered user kolbiny ( 16 years ago )
const
N = 1000000000;
var
piValue, temp : extended;
i : longInt;
begin
piValue := 0;
for i := 0 to N do
begin
temp := 1 / (2 * i + 1);
if i mod 2 = 0 then
piValue += temp
else
piValue -= temp;
end;
piValue *= 4;
writeln(piValue);
end.
Revise this Paste
Children: 22345