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

[art88]

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

[volvo]

art88, проблема тривиальна: у тебя происходят ошибки индексации. Смотри:

var
   Points	    : array[1..numP] of tPoint; { индексация начинается с ЕДИНИЦЫ !!! }

  { и что дальше? }
  s := 0;
  ...
  for d:= 1 to numP do begin
    p:= points[d];
    equal:= (d = i) or (d = j) or (d = k);
    if not equal then  begin
      table[s].a:= p1; { Всё! Индексация сбилась... Всему, что происходит дальше - верить нельзя }
  ...

Для того, чтобы избегать такого развития событий - компилируй программу в режиме {$R+} (поставь это самой первой строкой программы), тогда программа не будет "замалчивать" такие ошибки, а будет Run-Time Error, но ты будешь знать: что-то не в порядке...

происходит ошибка переполнения.

Попробуй перейти на сопроцессорные типы: {$N+} первой строкой программы, и Real заменить на Double (емкость Double гораздо больше; не поможет Double - пробуй Extended)...