По координатам вершин треугольника вычислите его периметр, используя подпрограмму...

Сегодня примерно в 12:20 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

По координатам вершин треугольника вычислите его периметр, используя подпрограмму вычисления длины отрезка между двумя точками.

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Var a1,b1,a2,b2,a3,b3:integer;
p,a,b,c:real;
procedure dlina (x1,x2,y1,y2:integer; var d:real);
begin
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
read(a1,b1,a2,b2,a3,b3);
dlina(a1,a2,b1,b2,a);
dlina(a2,a3,b2,b3,b);
dlina(a3,a1,b3,b1,c);
p:=a+b+c;
write(p:0:2);
end.