Составьте программу, вычисляющую значение периметра треугольника, заданного своими координатами. Значение координат вводит пользователь.

Программа для вычисления периметра треугольника:

Program TrianglePerimeter;

Var
  x1, y1, x2, y2, x3, y3 : Real;
  a, b, c : Real; // Стороны треугольника
  perimeter : Real;

// Функция для вычисления расстояния между двумя точками
Function Distance(xA, yA, xB, yB : Real) : Real;
Begin
  Distance := Sqrt(Sqr(xB - xA) + Sqr(yB - yA));
End;

Begin
  // Ввод координат вершин треугольника
  Write('Введите координаты первой вершины (x1 y1): ');
  ReadLn(x1, y1);
  Write('Введите координаты второй вершины (x2 y2): ');
  ReadLn(x2, y2);
  Write('Введите координаты третьей вершины (x3 y3): ');
  ReadLn(x3, y3);

  // Вычисление длин сторон треугольника
  a := Distance(x1, y1, x2, y2);
  b := Distance(x2, y2, x3, y3);
  c := Distance(x3, y3, x1, y1);

  // Проверка на существование треугольника (необязательно, но рекомендуется)
  // if (a + b > c) and (a + c > b) and (b + c > a) then
  // begin
      // Вычисление периметра
      perimeter := a + b + c;
      // Вывод результата
      WriteLn('Периметр треугольника равен: ', perimeter:0:2);
  // end
  // else
  // begin
  //   WriteLn('Треугольник с заданными координатами не существует.');
  // end;

End.

Пояснение:

1. Программа запрашивает у пользователя координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3).

2. Используется функция Distance, которая вычисляет расстояние между двумя точками по теореме Пифагора (формула расстояния между двумя точками: \( d = \sqrt{(x_2-x_1)^2 + (y_2-y_1)^2} \)).

3. Вычисляются длины трех сторон треугольника (a, b, c).

4. Периметр треугольника (perimeter) вычисляется как сумма длин всех его сторон.

5. Результат выводится на экран.