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

[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;

[Гость]

изменить способ составления треугольников i,j,k

begin
   OpenFile(inF); {ЋвЄалвЁҐ д ©« }
   InputDots(inF);
   s:= 0;
   {Џ®бв஥­ЁҐ ¬­®¦Ґбвў  ўбҐе ваҐгЈ®«м­ЁЄ®ў}
      for i:= 1 to numP-2 do
	 for j:= i+1 to numP-1 do
            for k:= j+1 to numP do begin
               p1.x:= points[i].x;
               p1.y:= points[i].y;
               p2.x:= points[j].x;
               p2.y:= points[j].y;
               p3.x:= points[k].x;
               p3.y:= points[k].y;
. . .

и вообщето еще убедиться, что нет среди этих трех точек p1,p2,p3 точек содинаковыми координатами
например так

Код

             if not EqPoints(p1,p2) and not EqPoints(p2,p3) then

а также не лежат ли все три на одной прямой...

Код

            if not Includ(p1,p2,p3) and not Includ(p2,p1,p3) and not Includ(p3,p1,p2) then

а то и треугольника не будет...

[Pola]

гостем была я
войти забыла....