Определить методом Монте-Карло площадь треугольника, вершины которого имеют координаты...

Question

Определить методом Монте-Карло площадь треугольника, вершины которого имеют координаты (-1,0) ; (0,1) ; (1,0)
Подсказка : треугольник заключен в прямоугольник со сторонами а=1 и b=2
Нужно в Паскале это сделать!!!
Помогите, пожалуйста...
И еще , учительница сказала , что вроде как надо модуль использовать...

---

Comments

1. Прямоугольник тут ни к чему особо. 2. Хамско - пренебрежительное "училка" оставьте для общения в среде подобных Вам по воспитанию.

---

Извините, просто спеша так написала...

---

Поможете сделать?

---

Во теперь, не спеша, приведите все в порядок.

---

Уже все исправила)

Answer 1

Условие попадания точки M(x,y) в треугольник с указанными координатами вершин можно описать системой неравенств:


Если положить в методе Монте-Карло x∈(-1,1), y∉(0,1) для вещественных х,y,
то площадь треугольника можно найти, как площадь прямоугольника, представленного в задании (она равна 2), умноженную на отношение количества точек, попавших в контур треугольника, к общему количеству точек.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var n:=100000;
  var k:=Range(1,n).Select(e->Rec(2*Random()-1,Random())).
    Where(e->(e.Item2>=0) and (e.Item2<=e.Item1+1) and<br>    (e.Item2<=1-e.Item1)).Count;<br>  Writeln(2*k/n:0:3)
end.

Тестовое решение:
1.001

Comments

Если кому-то нужно с ABS, можно так написать определение k:
var k:=Range(1,n).Select(e->Rec(2*Random()-1,Random())).
Where(e->(e.Item2>=0) and (e.Item2<=1-abs(e.Item1))).Count;