Модераторы: Sibson, fat, Till Ulenspiegel, Yuri Prime, VAD, Deeman., Troshkin, Vospi, spend, SD, =DRiNK=, djnova
uses Crt;
const
n=10000000;
r=46340;
r2=46340*46340;
var
i,pass : LongInt;
x,y : real;
{$F+}
begin
WriteLn('Start);
Randomize;
pass:=0;
for i:=1 to n do
begin
x:=Random(r+1);
y:=Random(r+1);
if ( x*x+y*y < r2 ) then INC(pass);
end;
TextColor(GREEN);
WriteLn('Pi: ',(pass/i*4):0:5);
ReadLn;
end.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 14