Программа на турбо Паскале:Вычислить площадь (метод Монте-Карло)

[SunLine]

Доброго времени суток! У меня сейчас мало времени и много задач. Вообще, я обожаю программирование, но сейчас просто не успеваю, ибо нужно написать 6 программ. Прошу Вашей помощи, форумчане! Напишите, плиз, программку на Turbo Pascal. Задача такая: Вычислить площадь по методу Монте-Карло. Алгоритм такой:

1. Вписываем сложную фигуру в другую фигуру, для которой легко вычислить площадь (прямоугольник, круг и.т.д).
2. Равномерно N точек со случайными координатами внутри прямоугольника.
3. Подсчитываем количество точек, попавших на фигуру: M.
4. Вычисляем площадь по формуле
http://i020.radikal.ru/1012/55/29bf4959b8e9.jpg (http://www.radikal.ru)

[lxa85]

SunLine, а как определить, попала точка на фигуру или нет?

[SunLine]

Можно взять круг, у меня такой набросок получился:
Случайные координаты
x := R*random;
y := R*random;
Когда точка внутри круга
x*x + y*y <= R*R then M := M+1
Как-то так...

[SunLine]

Напишите пожалуйста! Очень надо! Мне пересылать сегодня все эти 6 задач, а мне еще 2 с ЭТОЙ осталось набрать! Очень Вас прошу!

[lxa85]

SunLine, ну у тебя же все написано! Если принадлежность точки к окружности с условной приемлемой степенью относится к фигуре, то M=M+1
Выяснить процент попаданий при от общего числа испытаний - не проблема. Задать достаточно большое число испытаний - то же. Найти из этого всего площадь, задача в одно действие.
В чем просьба?