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

Question

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

Answer 1

// 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