задача про треугольник, и его медиану.. Опции

[krasnblj]

для всех задач дано N точек плоскости.Найти три точки среди заданых точек чтобы треугольник с вершинами в этих точках содержал бы наименьшую медиану.

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

[krasnblj]

PROGRAM minmed;

VAR N,I,J,K:INTEGER;
X:ARRAY [1..100] OF REAL;
Y:ARRAY [1..100] OF REAL;
mdd,R1,R2,R3,m1,m2,m3,med,Lx,Ly,Px,Py,Mx,My,Ax,Ay,Bx,By,Cx,Cy:REAL;
TR:BOOLEAN;

BEGIN
 WRITELN ('нахождение треугольника с минимальной медианой');

  REPEAT
   WRITE ('ведите число точек = ');
   READLN (N);
    IF ((N<3) OR (N>100)) THEN
     WRITELN ('неверное число точек');
  UNTIL ((N>=3) AND (N<=100));
 FOR I:=1 TO N DO
  BEGIN
    WRITELN ('введите координаты ',I,' точки');
    WRITE ('ведите абсциссу = ');

    READLN (X[I]);
    WRITE ('введите ординату = ');
    READLN (Y[I]);
  END;

 mdd:=32767;
 TR:=FALSE;
  FOR I:=1 TO N-2 DO
   BEGIN
    FOR J:=I+1 TO N-1 DO
     BEGIN
      FOR K:=J+1 TO N DO
       BEGIN
        R1:=SQRT(SQR(X[J]-X[I])+SQR(Y[J]-Y[I]));
        R2:=SQRT(SQR(X[K]-X[I])+SQR(Y[K]-Y[J]));
        R3:=SQRT(SQR(X[I]-X[K])+SQR(Y[I]-Y[K]));
        Px:=X[I];
        Py:=Y[I];
        Lx:=X[J];
        Ly:=Y[J];
        Mx:=X[K];
        My:=Y[K];
         IF ((R1+R2>R3) AND (R1+R3>R2) AND (R2+R3>R1)) THEN
          BEGIN
           m1:=sqrt(sqr(((x[j]+x[k])/2)-X[i])+sqr(((y[j]+y[k])/2)-Y[I]));
           m2:=sqrt(sqr(((x[i]+x[k])/2)-X[j])+sqr(((y[i]+y[k])/2)-Y[j]));
           m3:=sqrt(sqr(((x[j]+x[i])/2)-X[k])+sqr(((y[j]+y[i])/2)-Y[k]));
           med:=m1;
            IF m2<med THEN
             Med:=m2;
            IF m3<med THEN
             Med:=m3;
            IF (med<mdd) THEN
             BEGIN
              mdd:=med;
              Ax:=X[I];
              Ay:=Y[I];
              Bx:=X[J];
              By:=Y[J];
              Cx:=X[K];
              Cy:=Y[K];
             END;
           TR:=TRUE;
          END;
       END;
     END;
   END;

  IF (TR=TRUE) THEN
   BEGIN
    WRITELN ('тругольник с наименьшей медианой лежит на точках:');
    WRITELN ('TR1=(',Ax,';',Ay,'), TR2=(',Bx,';',By,'), TR3=(',Cx,';',Cy,')');
  END
  ELSE
   WRITELN ('невозможно построить треугольник');
END.

в ощем написал код,всё работает,но такой тест:

количество точек : 5

точки:

(1,1)
(-1,-1)
(0,0)
(0.5,0.5)
(-0.5,-0.5)

выдет три точки на которых лежит треугольник с наименьшей медианой,хотя мы видим что все это точки лежат на одной прямой,следовательно треугольника не существует..

зы: когда мы вводим точки в другом поряд выводит другой ответ,хотя точка "(-0.5,-0.5)" присутствует всегда..

помгие плззззз