Паскаль!!!
Здравствуйте вот у меня такая проблема!Нам задали найти площадь четверти окружности методом монте-карло, если обвести эту фигуру в квадрат у него все стороны 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 ; <br> BEGIN
S:=A/N;
S4:=4*S;
D:=S4-P
END;
WRITELN('S = ',S, ' 4S = ',S4,' (4S-П) = ',D); //Получение результата
IF NPEND.
Если у кого то есть какие либо идеи пожалуйста напишите на почту [email protected] или сюда