Архимед считал как пи=22/7,
китайцы как пи=355/113
вот совсем маленькая программка:
const
n=10000000;
r=46340;
r2=46340*46340;
var
i,pi : longInt;
x,y : real;
begin
Randomize;
pi:=0;
for i:=1 to n do
begin
x:=Random(r+1);
y:=Random(r+1);
if ( x*x+y*y < r2 ) then Inc(pi);
end;
WriteLn('pi=',(pi/i*4):0:5);
end.
Повернутися до відповідей
Мочалкин Блюз
15:12, 01.12.2012
Архимед считал как пи=22/7,
китайцы как пи=355/113
вот совсем маленькая программка:
const
n=10000000;
r=46340;
r2=46340*46340;
var
i,pi : longInt;
x,y : real;
begin
Randomize;
pi:=0;
for i:=1 to n do
begin
x:=Random(r+1);
y:=Random(r+1);
if ( x*x+y*y < r2 ) then Inc(pi);
end;
WriteLn('pi=',(pi/i*4):0:5);
end.