Вот такая задачка...

[nark25]

Написать процедуру,определяющая площадь треугольника по координатам его вершин,даны координаты вершин двух треугольников.
Не понимаю вторую часть задания, хотя задание точно такое.
Может кто обьяснит, а то не могу понять !!!! Спасибо!

[Gongled]

Где-то уже видел похожее. Небросал решение.

program pr;
uses CRT;
var
s, l1, l2, l3, x1, x2, x3, y1, y2, y3 : real;

{ Длина стороны }
function length_tr(a, b, c, d : real) : real;
begin
     length_tr := sqrt(sqr(a-b) + sqr(c-d));
end;

{ Площадь по формуле Герона }
function area_tr(a, b, c : real) : real;
var
p : real;
begin
     p := (a + b + c)/2;
     area_tr := sqrt(p*(p-a)*(p-b)*(p-c));
end;

begin
clrscr;

write('Введите координаты первой точки: ');
read(x1,y1);
write('Введите координаты второй точки: ');
read(x2,y2);
write('Введите координаты третьей точки: ');
read(x3,y3);

l1 := length_tr(x1,x2,y1,y2);
l2 := length_tr(x2,x3,y2,y3);
l3 := length_tr(x3,x1,y3,y1);

s := area_tr(l1, l2, l3);
write('Результат: ',s);

end.