Найти пириметр треугольника заданного координатами своих вершин.Определить функции для расчета длины отрезка по координатам ёё вершин.
var x1, x2, x3, y1, y2, y3, p: real;
function len(x1, y1, x2, y2: real): real;begin len := sqrt(sqr(x2 - x1) + sqr(y2 - y1));end;
begin readln(x1, y1, x2, y2, x3, y3); p := len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p:8:3);end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
x1, x2, x3, y1, y2, y3, p: real;
function len(x1, y1, x2, y2: real): real;
begin
len := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;
begin
readln(x1, y1, x2, y2, x3, y3);
p := len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3);
writeln(p:8:3);
end.