Вычисление pi методом Монте-Карло

const n=10000;
 var x,y,pi:real;
 a:integer;i,
 ch1,//счетчик для x,y которые попадают в круг диам 1 с центром в начале координат
 ch2:longint;счетчик для x,y которые попадают только в квадрат 2*2
begin randomize;
 a:=2;//сторона квадрата
  for i:=1 to n do begin
 x:=4*random-2;y:=4*random-2;
 if sqrt(x*x+y*y)<=1 then
  inc(ch1)else inc(ch2);end;
end;
 pi:=(ch1/ch2)*a*a;
end.

const n=10000;
 var x,y,pi:real;
 a:integer;i,
 ch1,//счетчик для x,y которые попадают в круг диам 1 с центром в начале координат
 ch2:longint;счетчик для x,y которые попадают только в квадрат 2*2
begin randomize;
 a:=2;//сторона квадрата
  for i:=1 to n do begin
 x:=4*random-2;y:=4*random-2;
 if sqrt(x*x+y*y)<=1 then
  inc(ch1)else inc(ch2);end;
 pi:=(ch1/ch2)*a*a;
end.

const n=10000;
 var x,y,pi:real;
 a:integer;i,
 ch1,//счетчик для x,y которые попадают в круг диам 1 с центром в начале координат
 ch2:longint;счетчик для x,y которые попадают только в квадрат 2*2
begin randomize;
 a:=2;//сторона квадрата
  for i:=1 to n do begin
 x:=4*random-2;y:=4*random-2;
 if sqrt(x*x+y*y)<=1 then
  inc(ch1)else inc(ch2);end;
 pi:=(ch1/ch2)*a*a;
end.

uses Crt;
const
 n=10000000;
 r=46340;
 r2=46340*46340;
var
 i,pass : LongInt;
 x,y : real;
{$F+}
begin
 WriteLn('Поехали!');
 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('Число ПИ получилось равным: ',(pass/i*4):0:5);
 ReadLn;
end.

program pipi;uses crt;
var x,y:real;i,p:longint;
function pii:real;
begin randomize;
 for i:=1 to 1000000 do begin
  x:=random;//случайные вещественные числа от 0 до 1
  y:=random;
  if(x*x+y*y)<1 then inc(p);
 end;
  pii:=p/i*4;//умножаем на 4 так как мы якобы "стреляли" в 1-ю четверть координатной сетки
end;
begin clrscr;randomize;
writeln(pii);
end.