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

Паскаль!!!  Здравствуйте вот у меня такая проблема!Нам задали найти площадь четверти окружности методом монте-карло, если обвести эту фигуру в квадрат у него все стороны 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

Гость