Зданы координаты трех вершин реугольника (x1,y1), (x2y2),(x3,y3). Найти его периметр. По паскалю
Зданы координаты трех вершин реугольника (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
Не нашли ответ?
Похожие вопросы