Question

Напишите функцию, вычисляющую длину отрезка по координатам его концов. с помощью этой функции напишите прорамму, вычесляющую периметр треугольника по координатам его вершин (на фото задание номер 9)

Answer 1

Function L(x1,y1,x2,y2:real):real;
begin
  L:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;

var
  x1,y1,x2,y2,x3,y3,P:real;
begin
  Write('Введите координаты (x,y) вершины A: '); Read(x1,y1);
  Write('Введите координаты (x,y) вершины B: '); Read(x2,y2);
  Write('Введите координаты (x,y) вершины C: '); Read(x3,y3);
  P:=L(x1,y1,x2,y2)+L(x2,y2,x3,y3)+L(x3,y3,x1,y1);
  Writeln('Периметр треугольника равен ',P:0:2)
end.

Тестовое решение:
Введите координаты (x,y) вершины A: -5 1.4
Введите координаты (x,y) вершины B: 3 5.5
Введите координаты (x,y) вершины C: 0 -2
Периметр треугольника равен 23.11