По координатам трех вершин некоторого треугольника найти его площадь и периметр. Написать программу Delphi7.

Предыдущий
вопрос Следующий
вопрос

Вот пример программы на Delphi7, которая вычисляет площадь и периметр треугольника по координатам его трех вершин:

program TriangleAreaPerimeter;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TPoint = record
x, y: Double;
end;
function Distance(p1, p2: TPoint): Double;
begin
Result := Sqrt(Sqr(p2.x - p1.x) + Sqr(p2.y - p1.y));
end;
function TriangleArea(p1, p2, p3: TPoint): Double;
var
a, b, c, s: Double;
begin
a := Distance(p1, p2);
b := Distance(p2, p3);
c := Distance(p3, p1);
s := (a + b + c) / 2;
Result := Sqrt(s * (s - a) * (s - b) * (s - c));
end;
function TrianglePerimeter(p1, p2, p3: TPoint): Double;
begin
Result := Distance(p1, p2) + Distance(p2, p3) + Distance(p3, p1);
end;
var
p1, p2, p3: TPoint;
area, perimeter: Double;
begin
// Ввод координат трех вершин треугольника
Write('Enter coordinates of point 1 (x y): ');
ReadLn(p1.x, p1.y);
Write('Enter coordinates of point 2 (x y): ');
ReadLn(p2.x, p2.y);
Write('Enter coordinates of point 3 (x y): ');
ReadLn(p3.x, p3.y);
// Вычисление площади и периметра треугольника
area := TriangleArea(p1, p2, p3);
perimeter := TrianglePerimeter(p1, p2, p3);
// Вывод результата
WriteLn('Area of the triangle: ', area:0:2);
WriteLn('Perimeter of the triangle: ', perimeter:0:2);
ReadLn;
end.

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