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

lЕвгешкаl    3   28.05.2019 08:00    0