Question

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

Answer 1

program TrianglePerimeter;
type   Point = record     X, Y: real;   end;
function CalculateDistance(P1, P2: Point): real; begin   CalculateDistance := sqrt(sqr(P2.X - P1.X) + sqr(P2.Y - P1.Y)); end;
var   A, B, C: Point;   Perimeter: real;
begin   writeln('Введите координаты точки A (X Y): ');   readln(A.X, A.Y);   writeln('Введите координаты точки B (X Y): ');   readln(B.X, B.Y);   writeln('Введите координаты точки C (X Y): ');   readln(C.X, C.Y);
     Perimeter := CalculateDistance(A, B) + CalculateDistance(B, C) + CalculateDistance(C, A);
     writeln('Периметр треугольника: ', Perimeter:0:2);
     readln; end.