[Biatov]

Приведена программа, обладающая следующей функциональностью.
Имеется меню, содержащее пункты – Выход и О программе,
нажатие на клавишу мыши выдает сообщение – «правая/левая(x,y)» (где (x,y) - координаты кликов мыши). - это я сделал.
А как теперь получить такое? Надо каким-то образом переделать исходник первоначальной программы под эту(при помощи массива) -->

На форму поместить N точек (каждая точка помещается на форму по нажатию левой кнопки мыши и имеет номер 1..N). Вычислить расстояния между всеми парами точек. Начало работы алгоритма - по нажатию правой кнопки мыши, результат подписать функцией TextOut в серединах отрезка, соединяющих пары точек.
Вот исходник первоначальной программы.
Кто может помогите,пожалуйста.

[Vocabulary]

Чтобы не нервировать антивирусы, уберите из архива exe'шник.

[lmikle]

Теорему пифагора знаем?
Начерти на бумажке 2 точки в произвольных местах и соедини их отрезком. Сделай проекции этого отрезка на оси. А теперь напиши формулу расчета длинны отрезка по координатам точек. Ну и сама подпись тоже делается легко - надо расчитать координаты середины отрезка и туда вывести соотв. длинну.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

uses   Math;   function GetLen(C1, C2 : Integer) : Integer; begin   Result := Max(C1,C2) - Min(C1,C2); end;   var   I, J : Integer;   L : Double;   Points = Array Of TPoint; begin   For I := Low(Points) To High(Points) Do     For J := I + 1 To High(Points) Do       Begin          If I = J Then Continue;          // Calc len          L = Sqrt(sqr(GetLen(Points[i].X,Points[J].X)) + sqr(GetLen(Points[i].Y,Points[J].Y)));            // draw. Self = TForm          Self.Canvas.MoveTo(Points[i].X,Points[i].Y);          Self.Canvas.LineTo(Points[J].X,Points[J].Y);          // Лень высчитывать координаты серидины.          Self.Canvas.TextOut(Points[i].X,Points[i].Y,FloatToStr(L));       End; end;

[Vocabulary]

Решение с комментариями во вложении.

[Biatov]

Спасибо всем! Справился и лабу сдал!

[Irusik-best1991]

На форму поместить N точек (каждая точка помещается на форму по нажатию правой кнопки мыши и имеет номер 1..N). Найти точку, минимально удаленную от точки, последней помещенной на форму по нажатию левой кнопки мыши. Начало работы алгоритма по нажатию определенной клавиши на клавиатуре, результат выдать в окно диалога.

[lmikle]

Золотцо!

Во-первых. Надо создавать отдельные темы, а не лезть в чужую.
Во-вторых. Что, опять напоминать теорему пифагора??? Тебе нужен массив. Когда жмакают кнопочку мышки, то надо запомнить коордитаты в этом массиве. Ну и далее простой цикл с расчетем по вышеупомянутой теореме. Нинимальное расстояние и индекс соотв. точки запоминаешь в отдельных переменных.

Все. Далее подсказки только после того, как увижу твой код.