Найти способом Монте-Карло площадь треугольника, вершины которого имеют координаты (-1,0)

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

Задать свой вопрос
Таня Бурейченко
1. Прямоугольник здесь ни к чему особо. 2. Хамско - пренебрежительное "училка" оставьте для общения в среде сходственных Для вас по воспитанию.
Galvaks Nikita
Извините, просто спеша так написала...
Маккар Нина
Поможете сделать?
Hasiev Maksim
Во сейчас, не спеша, приведите все в порядок.
Пентисов Владислав
Теснее все исправила)
1 ответ
Условие попадания точки M(x,y) в треугольник с обозначенными координатами вершин можно обрисовать системой неравенств:
\displaystyle \left\\beginmatrix y\geqslant 0 \\ y\leqslant x+1 \\ y\leqslant 1-x \endmatrix\right

Если положить в методе Монте-Карло 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-gt;Rec(2*Random()-1,Random())).
    Where(e-gt;(e.Item2gt;=0) and (e.Item2lt;=e.Item1+1) and
    (e.Item2lt;=1-e.Item1)).Count;
  Writeln(2*k/n:0:3)
end.

Тестовое решение:
1.001
Хвастова Камилла
Если кому-то необходимо с Абс, можно так написать определение k:var k:=Range(1,n).Select(e->Rec(2*Random()-1,Random())). Where(e->(e.Item2>=0) and (e.Item2<=1-абс(e.Item1))).Count;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт