Паскаль!!!
 Здравствуйте вот у меня такая проблема!Нам задали найти площадь четверти окружности методом монте-карло, если обвести эту фигуру в квадрат у него все стороны 1 см!Вот мой алгоритм но он ошибочный мне так сказали !помогите пожалуйста реализовать программу в правильное русло!Вроде бы формулы все правильны в чем заключается ошибка?
Метод монте карло заключаеться в том что если случайным образом стрелять в плоскость и получиться отношения между попавшими и всего отстреленными точками таким образом можно найти площадь искомой фигуры! 








 PROGRAM NAHOGDENIE_S_METODOM_MONTE_KARLO_S_RADIOSOM_1; 
 USES CRT;
  Label m1;
  VAR NP,N,S,L,A,X,Y,S4,D,F:REAL;
  const P=3.14159265359;//число пи
BEGIN 
      A:=0; 
     N:=1;   
   NP:=1; 
     F:=10001; 
      CLRSCR;   
    WRITELN('Нахождение площади фигуры методом монте-карла с учетом, что площадь внешнего квадрата равна 1.В связи с этим мы его опускаем'); 
      WRITELN('                                                             ');   
    WRITELN('S это площадь искомой фигуры'); 
      WRITELN('4S это произведение площади искомой фигуры и четырёх');   
    WRITELN('(4S-П) это разность произведения площади искомой фигуры и числа Пи');   
    m1: 
      NP:=NP*10; 
     WHILE N=NP   DO X:=RANDOM(2)-1; 
     Y:=RANDOM(2)-1;   
    L:=SQRT((X*X)+(Y*Y)); 
      IF L<=1 THEN A:=A+1 ; 
  BEGIN 
   S:=A/N; 
  S4:=4*S; 
  D:=S4-P 
  END;   
      WRITELN('S = ',S, '  4S = ',S4,'  (4S-П) = ',D); //Получение результата 
     IF NP<F THEN GOTO M1;
END.
Если у кого то есть какие либо идеи пожалуйста напишите на почту diskoraizorstar@mail.ru или сюда