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

Ну, так что ты предлагаешь, заняться телепатией? Ты свой файл данных присоедини, мало ли что там у тебя творится...

volvo, извини: совсем запарился

Ууууу... Ну, ты что-то перемудрил... Сейчас неохота лазить по дебрям кода, у тебя происходит выход за пределы массива (FPC очень хорошо ловит такие вещи)... Вот, глянь на картинку... Как ты думаешь, что произойдет?

Нажмите для просмотра прикрепленного файла

Как результат (побочный эффект) - при запуске в TP вот в этом месте:

   OpenFile(inF);
   Combinate(10);

   { Перед входом в InputDots }
   InputDots(inF);

файл inF оказывается закрытым, и соответственно происходит ошибка...

Я упростил программу(см. Triangle.pas), но построить треугольник так и не удалось:
происходит ошибка переполнения.
Причём если не заполнять массив(table), содержащий треугольники, то ошибки не происходит и строиться(естественно) треугольник, вырожденный в точку.

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;
         table[s].b:= p2;
         table[s].c:= p3;}
         if Includ(p, p1, p2) or							
            Includ(p, p1, p3) or
            Includ(p, p2, p3) then
               c:= c + 1
      end;
end;

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)...

Какая-то странная задача...
может точки должны быть внутри треугольника?

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

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

Не злись, 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;

и строки

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

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

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

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

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 точек содинаковыми координатами
например так

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

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

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

а кто нить может переделать эту задачку без файлов?, плиз!

да да да! очень прошу. та же задача, но без файла
и воть ещё...
точка (x0,y0) лежит между двумя остальными, когда
(x1-x0)(x2-x0)<0 и (y1-y0)(y2-y0)<0

Там, там, та-дамм... ТАМ та-да, та-да, та-дамммммм..

Моцарт - "Реквием"?

Здрасьте вам, пианисты.. Уже Шопена от Моцарта не отличаем?..

Видимо, это был Глюк..

Чаще слушать советовать не буду
Ничего, главное отличать Beatles от Эдиты Пьехи.. ))

Ах, вооот оно как?..
Нееет.. Глюк - это примерно так.. сейчас.. вот:
тии.. та-ти-та-та та ти та, тии та ти-та-та та ти та.. тии таа та-та тииии та-тааа....

2 ghy: извини, но на этом форуме не поощряется встревать в давно мертвые темы. Особенно, если тебе нужно, чтобы тебе сделали изменения в программе. Тебе нужно - ты и делай. Если будет вопрос ПО ПРОГРАММИРОВАНИЮ - мы с удовольствием ответим. Успехов тебе.