Напишите функцию, вычисляющую длину отрезка по координатам его концов

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

Ответ

program dlina_otrezka;
var
ха, уа, хb, уb, хc, ус: real; // Исходные данные
р: real; // Результат
function d (x1, y1, х2, у2: real): real;
var rez: real;
begin
rez:=sqrt(sqr(x1-x2)+sqr(y1-y2));
d:=rez
end;
begin
write (‘ха = ‘);
readln (ха);
write (‘yа = ‘);
readln (yа);
write (‘хb = ‘);
readln (хb);
write (‘уb = ‘);
readln (уb) ;
write (‘хе = ‘);
readln(xc);
write (‘ус = ‘);
readln(yc);
p:=d(xa, yа, хb, уb) + d(xa, yа, хc, уc) + d(xc, yc, хb, уb);
writeln (‘Р = ‘, p:6:2);
end.

Опубликовано: 14.01.2019 Обновлено: 14.01.2019
Поделись с друзьями

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

семнадцать − 5 =