Рекурсия с возратом. Консольное приложение.

[HoLToFF]

Доброго времени суток, о великие Программисты

Возникла следующая проблема - меня попросили помочь решить задачу, а учитывая мои скудные познания в Языке, большой помощи от меня не дождались. Поэтому, решил обратиться к вам. Совбственно вот задача.

Среда разработки -Turbo Pascal/Delphi
Изначально задача имела такой вид:
Рекурсия с возвратом.
Найти минимальное множество прямых, на которых можно разместить все точки заданного множества.
Сделать в консоли.

Но потом было решено задачу упростить и свести к такой:
Найти 2 прямые, проходящие через точку i, на которых размещаются наибольшее количество точек заданного множества.
Сделать в консоли.
Уравнение прямой взять как ах+ву=0
Вывести 2 массива, первый массив - точки, лежащие на одной прямой, второй - точки, лежащие на второй прямой.
Точки заданного множества вводятся пользователем. Можно решить с помощью массива записей.

Желательно сделать любой вариант.

Очень на вас надеюсь, с наилучшими пожеланиями

[XuTpbIu]

Ну поскольку тебя попросили сделать, то думаю дословно текст тебе писать не надо. Опишу только общий алгоритм:
Берём двойной цикл по всем точкам, и смотрим сколько точек лежат на прямой между выбранными. В памяти держим 2 структуры вида:

var
  MaxPointsOnTheLine = record
    Max: Integer;
    Points: TPoint;
  end;

Далее будет так:

if PointsOnCurrentLine.Max > MaxPointsOnTheLine1.Max then
begin
  MaxPointsOnTheLine1.Max := PointsOnCurrentLine
  {блаблабла тут переприсваиваем координаты точек}
end
else
  if PointsOnCurrentLine.Max > MaxPointsOnTheLine2.Max then
  begin
    MaxPointsOnTheLine2.Max := PointsOnCurrentLine
    {блаблабла тут переприсваиваем координаты точек}
  end;

Вот. У нас получится 2 стурктуры содержащие 2 точки и кол-во точек лежащих на линии, проходящие через них. Остальное дело техники.