[Romer]

Люди, если не сложно помогите с написанием исходника следующей задачи...

Задаваемое количество точек К (3…30) генерируется случайным образом на координатной плоскости 5*N x 5*M. Найти три точки: самую высшую, самую левую и правую точки. Построить треугольники и подсчитать количество точек, находящихся внутри треугольника и снаружи.
Заранее всех благодарю

[Rosenkrantz]

Проверить, находится ли точка внутри треугольника, заданного своими вершинами, можно используя следующую формулу:
r = (y - y0) (x1 - x0) - (x - x0) (y1 - y0) , где x, y - координаты заданой точки, а x0, y0, x1, y1 - координаты двух соседних вершин треугольника (например, A(x1,y1) и B (x2,y2) в Вашем примере). Если точка лежит внутри треугольника, r < 0 для всех сторон. Если хоть для одной стороны r < 0, точка лежит вне треугольника. Если r=0, точка лежит на стороне. В случае треугольника это довольно просто, но можно использовать и для любого полигона.

Отсюда: http://subscribe.ru/archive/comp.sof.../07103447.html

[Rosenkrantz]

В общем, этот способ - фуфло. Дает ошибки примерно в 30-40% случаев.

Вот исходники программы для вашей задачи (D2007). Чтобы проверить, лежит ли точка внутри треугольника, я последовательно подсчитываю площади треугольников образуемых данной точкой и попарно взятыми вершинами треугольника. Если сумма этих площадей равна площади треугольника (с заданной погрешностью), то точка внутри треугольника, иначе - снаружи.

[Romer]

Сообщение от Rosenkrantz

В общем, этот способ - фуфло. Дает ошибки примерно в 30-40% случаев.

Вот исходники программы для вашей задачи (D2007). Чтобы проверить, лежит ли точка внутри треугольника, я последовательно подсчитываю площади треугольников образуемых данной точкой и попарно взятыми вершинами треугольника. Если сумма этих площадей равна площади треугольника (с заданной погрешностью), то точка внутри треугольника, иначе - снаружи.

Помогите составить блок схему к программе расположенной выше( Triangle)

[Aristarh Dark]

Rosenkrantz, зря Вы так, прекрасный алгоритм... Я ошибок не выявил. Возможно Вам не удалась реализация.
Во вложении пример реализации.

[mustdie]

не знаю я куда писать, столько тем...
подскажите ламаку, что надо сделать чтоб окно Form1 запускалась, но небыло никаких признаков того что запущена. разве что убить в диспетчере задач.
ставлю Visible false, а она висит перед глазами.

[Rosenkrantz]

Сообщение от Aristarh Dark

RosenkrantzВозможно Вам не удалась реализация

Вполне возможно, конечно. Реализацию заберу в копилочку.

[Rosenkrantz]

Сообщение от mustdie

не знаю я куда писать, столько тем...
подскажите ламаку, что надо сделать чтоб окно Form1 запускалась, но небыло никаких признаков того что запущена. разве что убить в диспетчере задач.
ставлю Visible false, а она висит перед глазами.

Код:

  Application.Minimize;
  Application.MainForm.Visible := False;

Только учтите, что:

• В диспетчере задач процесс будет виден все равно
• Если не предусмотреть способа восстановление задачи из невидимого состояния, то выйти вы из нее сможете только убив процесс в диспетчере задач.

[Rosenkrantz]

Сообщение от Romer

Помогите составить блок схему к программе расположенной выше( Triangle)

Я, честно говоря, слабо представляю себе как можно составить блок-схему программы с объектами и событийным управлением. Разве что отдельных функций.

[Romer]

Сообщение от Rosenkrantz

Я, честно говоря, слабо представляю себе как можно составить блок-схему программы с объектами и событийным управлением. Разве что отдельных функций.

Да, именно отдельных функций)))

[Rosenkrantz]

Ну давайте попробуем. А как чисто технически вы планируете это сделать? В смысле - каким инструментом пользоваться?

[Romer]

Сообщение от Rosenkrantz

Ну давайте попробуем. А как чисто технически вы планируете это сделать? В смысле - каким инструментом пользоваться?

Ну обычно я блок схемы делал графически в Visio)))

[Romer]

Сообщение от Rosenkrantz

Ну давайте попробуем. А как чисто технически вы планируете это сделать? В смысле - каким инструментом пользоваться?

Ну я обычно делаю графически в программе Visio))

[Rosenkrantz]

Вы вот что, постучитесь ко мне в аську 12742382. А то мы так до морковкиного заговения будем тут переписываться. Да и тема, думаю, перестала быть интересной для широкой форумской общественности.

[mustdie]

с помощью memo1 можно вставлять .txt файлы.
а я вставил .html а появился html код.
а как сделать чтоб вставлять именно страницы?