Напишите программу на PASCAL для решения следующей задачи. Пользователь вводит с клавиатуры координаты трех вершин прямоугольного треугольника: (x1, y1), (x2, y2), (x3, y3). Необходимо найти его периметр, считая, что длина каждой стороны рассчитывается по формуле: √(x2−x1)2+(y2−y1)2.
Ответы
Ответ дал:
1
Ответ:
var x1, x2, x3, y1, y2, y3, d1, d2, d3, P:real;
begin
readln(x1, y1);
readln(x2, y2);
readln(x3, y3);
d1:=sqrt(((x2-x1)*(x2-x1))+((y2-y1)*(y2-y1)));
d2:=sqrt(((x3-x2)*(x3-x2))+((y3-y2)*(y3-y2)));
d3:=sqrt(((x1-x3)*(x1-x3))+((y1-y3)*(y1-y3)));
P:=d1+d2+d3;
writeln('Периметр равен: ', round(P));
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад