Алгоритм с ветвлением
Добавлено: 27 мар 2013, 19:21
помогите с кодом, пожалуйста..
Даны координаты четырех точек. Определить какие треугольники, образованные этими точками, имеют максимальные и минимальные периметр и площадь.
FREE PASCAL
как найти l1, l2, l3. у меня не получается.
цикл использовать нельзя..(
Даны координаты четырех точек. Определить какие треугольники, образованные этими точками, имеют максимальные и минимальные периметр и площадь.
FREE PASCAL
Код: Выделить всё
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;
begin
for i := 1 to 4 do
readln(x[i], y[i]);
minP := 1000000000;
minS := 1000000000;
цикл использовать нельзя..(