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