Трегольник, стороны которого содержат максимальное... Опции

[art88]

Задача:
Среди треугольников с вершинами в заданном множестве точек на плоскости указать такой, стороны которого содержат максимальное число точек заданного множества (координаты тоек хранятся в файле).
-------------------------------------------------------------------------------------
Решение:
см. Triangle.pas
-------------------------------------------------------------------------------------
Проблема:
Не строится треугольник(проблемы в расчётах).
-------------------------------------------------------------------------------------
Просьба:
Помогите разобраться!!!
-------------------------------------------------------------------------------------

[volvo]

Какая-то странная задача...

Задача как задача. Если точки внутри треугольника - это решается элементарно, есть уже реализованные алгоритмы принадлежности точки многоугольнику. А ты попробуй вот эту задачу решить...

Только флейм не надо разводить. Отвечаем по теме...

[Pola]

Только флейм не надо разводить. Отвечаем по теме...

Не злись, volvo, студенты часто неправильно читают условие задачи...

Проверка принадлежности точки a отрезку bc

function Includ(a, b, c: tPoint): Boolean;
var                                            		
   x,y: real; 
begin
   if EqPoints(c, b) and not not EqPoints(a, b) then
   begin
       Includ:=false; exit;
   end;
   if (abs(b.x-c.x)<eps) and not (abs(b.x-a.x)<eps) then
   begin
       Includ:=false; exit;
   end;
   if (abs(b.y-c.y)<eps) and not (abs(b.y-a.y)<eps) then
   begin
       Includ:=false; exit;
   end;

   if EqPoints(a, b) or EqPoints(a, c) then
   begin
       Includ:=true; exit;
   end;
   
   y:=(b.y-a.y)*(a.y-c.y);
   x:=(b.x-a.x)*(a.x-c.x);
   if (abs(b.x-c.x)<eps) and (abs(b.x-a.x)<eps) then
   begin
       Includ:=y>0; exit;
   end;
   if (abs(b.y-c.y)<eps) and (abs(b.y-a.y)<eps) then
   begin
       Includ:=x>0; exit;
   end;
   Includ:= (y>0) and (x>0) and
            ((b.y-c.y)/(b.x-c.x)-(a.y-c.y)/(a.x-c.x) < eps);
end;

и строки

Код

        table[s].a:= p1;
                       table[s].b:= p2;
                       table[s].c:= p3;

лучше поставить между

Код

               s:= s + 1;
              triangles[s]:= c

[Гость]

добавить новый тип

Код

type
   . . .
   tmass= array[1..numT] of integer;

изменить тип переменной

Код

var
  . . .
  Triangles    : tmass;

изменить процедуру

procedure FindMaxTri(var mass: tmass);
var
	max: integer;
begin
   max:= 1;
   for i:= 1 to s do
    	if mass[i] > mass[max] then
      	max:= i;
   DrawTri(table[max].a, table[max].b, table[max].c);
end;