Алгоритмы с ветвлениями

[Олечка12]

помогите с кодом, пожалуйста. язык - FREE PASCAL
Даны координаты четырех точек. Определить какие треугольники, образованные этими точками, имеют максимальные и минимальные периметр и площадь

[hon]

Наработки где?

[Олечка12]

как находить l1, l2, l3 не могу понять..

uses math;
var
    n, i, j, c :longint;
    x, y :array[1 .. 5] of longint;
    minP, maxP, minS, maxS, l1, l2, l3 : real;
 
function dist(v, u :longint) :real;
begin
    dist := sqrt(sqr(x[v] - x[u]) + sqr(y[v] - y[u]));
end;
function area(v, u, p :longint) :real;
begin
    area := abs((x[v] - x[u]) * (y[p] - y[u]) - (y[v] - y[u]) * (x[p] - x[u])) * 0.5;
end;
__________
minP := min(minP, l1 + l2 + l3);
                maxP := max(maxP, l1 + l2 + l3);
                minS := min(minS, area(i, j, c));
                maxS := max(maxS, area(i, j, c));
            end;
 
    writeln(minP :0 : 5, ' ',maxP :0 :5);
    writeln(minS :0 : 5, ' ', maxS :0 :5);

[Poma][a]

Займусь-ка я некропостингом..

Даны координаты четырех точек. Определить какие треугольники, образованные этими точками, имеют максимальные и минимальные периметр и площадь

Хм..

for i := 1 to n 4 do
       Read (point[i]);

// интересный момент получения сторон a, b, c

TArea := FindArea (a, b, c); // кроме формулы Герона ничего в голову не лезет;
if TArea > MaxArea then
       MaxArea := TArea;

TPerim :=  FindPerim (a, b, c);
if TPerim > MaxPerim then
       MaxPerim := TPerim;
// c минимальным также

Вернемся к моменту получения сторон. В самих сторонах ничего достопримечательного нет

А вот в их вершинах этих сторон есть что-то привлекательное.. Как их получить? Перестановки? Это уже слишком.. Перебрать ручками? Тоже не ахти..

	
	
for i := 1 to 4 do
      for j := 1 to 4 do
           for k := 1 to 4 do

и отсекать вариант, когда i = j или k = j или i = k? Тоже слишком "грубо".. У кого есть светлая мысль по этому поводу?