Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Зданы координаты трех вершин реугольника (x1,y1), (x2y2),(x3,y3). Найти его периметр. По паскалю

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
type
  Point=record
  x,y:real
  end;

function ReadPoint(c:char):Point;
begin
  Write(Точка ,c,-> ); Read(Result.x,Result.y)
end;

function Len(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

begin
  var a:=ReadPoint(A);
  var b:=ReadPoint(B);
  var c:=ReadPoint(C);
  Writeln(P=,Len(a,b)+Len(a,c)+Len(b,c))
end.

Тестовое решение:
Точка A-> -2 -2
Точка B-> 2 4
Точка C-> 7 -4
P=25.8646281402775