Определить номера точек, которые могут являться вершинами равнобедренного треуголника.
вроде кусок программы есть, но незнаю точно правильно или нет
формула sqrt(sqr(x1-x2)+sqr(y1-y2)))
Код
const
N = ....;
............
var
A: array[1..2*N] of real;
res: array[1..6] of real; {три точки образующие}
............
procedure Rasst (a, b: integer; var rrr: integer);
............
i := 1;
while i < 2*N-4 do begin
j := i + 2;
while j < 2*N-2 do begin
k := j + 2;
while k < 2*N do begin
Rasst (A[i], A[j], rasst1);
Rasst (A[j], A[k], rasst2);
Rasst (A[i], A[k], rasst3);
if ((abs((rasst1-rasst2)) < Eps) and (abs((rasst2-rasst3)) < Eps)) or
((abs((rasst1-rasst2)) < Eps) and (abs((rasst2-rasst3)) < Eps)) or
((abs((rasst1-rasst2)) < Eps) and (abs((rasst2-rasst3)) < Eps)) then begin
res[1] := A[i];
res[2] := A[i+1];
res[3] := A[j];
res[4] := A[j+1];
res[5] := A[k];
res[6] := A[k+1];
end;
inc (k,2);
end;
inc (j,2);
end;
inc (i,2);
end;