20Б!!!! СРОЧНО! нужно найти площадь этой фигуры. В паскале методом Монтекарло R=5 r=3

Question

20Б!!!! СРОЧНО!
нужно найти площадь этой фигуры. В паскале методом Монтекарло
R=5 r=3

---

Comments

Внутренний контур - это окружность r=3 с центром в начале пересечения осей координат. Но вот внешний контур, который у Вас описан радиусом R-5 на рисунке мало напоминает окружность: скорее всего, это эллипс. Или это все же окружность, имеющая тот же центр, что и внутренний контур?

---

это окружность

---

Тогда зачем метод Монтекарло?

---

Вы у меня спрашиваете? Разве это задание я Вам дал?

---

Вам это не относится, думаю что автор читает

Answer 1

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Число точек:');
  var k:=0;
  for var i:=1 to n do begin
    var x:=10*Random-5; var y:=10*Random-5;
    var p:=sqr(x)+sqr(y);
    if (p>=9) and (p<=25) then Inc(k)<br>    end;
  Writeln('s=',100*k/n);
  Writeln('Точное значение: ',16*pi)
end.

Результаты нескольких запусков программы:
Число точек: 1000
s=50.5
Точное значение: 50.2654824574367

Число точек: 10000
s=50.81
Точное значение: 50.2654824574367

Число точек: 100000
s=50.103
Точное значение: 50.2654824574367

Число точек: 1000000
s=50.2551
Точное значение: 50.2654824574367

Число точек: 10000000
s=50.26618
Точное значение: 50.2654824574367