Question

60 . ответ есть, нужно решение, информатика уровень 11 класса. методом монте-карло найти площадь круга (x-0,5)^2+(y-0,5)^2=0,25, используя датчики случайных чисел из интервала [ 0; 1 ] для чисел x и y. найти 200 точек, ответ сравните с пи/4.

Answer 1

Var x,y,s:real; i,k:integer;
begin
for i:=1 to 200 do
 begin
 x:=random;
 y:=random;
 if sqr(x-0.5)+sqr(y-0.5)<=0.25
  then k:=k+1;
 end;
writeln('Вычислено: ',k/200:6:4);
writeln('Пи/4 = ',pi/4:6:4);
end.

Пример:
Вычислено: 0.7750
Пи/4 = 0.7854