Найти пириметр треугольника заданного координатами своих вершин.определить функции для расчета длины отрезка по координатам ёё вершин.

sofmeo sofmeo    2   07.03.2019 15:50    2

Ответы
zari21 zari21  24.05.2020 03:33

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика