Графическая задача Опции

[Tribunal]

Задача такова:
Дан файл вещественных чисел,которые являются координатами точек.
Нужно найти такие 3 точки, что треугольник, построенный на этих точках
будет содержать максимальное количество точек множества.
Координаты этих трёх точек сохранить в файле, как результат
+нужна графическая иллюстрация к этой задаче.

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

Буду благодарна за помощь.

Сообщение отредактировано: Tribunal - 13.05.2006 23:02

[volvo]

Чтобы программа компилировалась, нужно добавить один End, ты его упустила...

procedure TForm1.N5Click(Sender: TObject);
var
   popal,max,xp,x1,x2,x3,x1_max,x2_max,x3_max,i:byte;
begin
  max:=0;
  x1_max:=1; x2_max:=2; x3_max:=3;
  for x1:=1 to kol-2 do
    for x2:=x1+1 to kol-1 do
      for x3:=x2+1 to kol do begin
        popal:=0;
        for xp:=1 to kol do
          if posession(xp,x1,x2,x3)=true then inc(popal);

        // Проверку на максимум надо бы делать ВНУТРИ циклов ...
        if popal>max then begin
          max:=popal;
          x1_max:=x1; x2_max:=x2; x3_max:=x3;
        end;
      end;

  // Начальное значение I присвой, и изменение добавь в конце цикла
  while i<>kol do begin
    if i=x1_max then begin
      x1_res:=point[i].x;
      y1_res:=point[i].y;
    end;
    if i=x2_max then begin
      x2_res:=point[i].x;
      y2_res:=point[i].y;
    end;
    if i=x3_max then begin
      x3_res:=point[i].x;
      y3_res:=point[i].y;
    end;
  end; // <--- Вот этого End-а не было у тебя ...
end;

Проверь, у меня нет кириллицы, а все переделывать на транслит неохота... Должно работать.