С помощью процедуры найти периметр треугольника, если даны координаты вершин - Turbo Pascal

Формулировка задачи:

Описать процедуру Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов (xA, yA, xB, yB — вещественные параметры). С помощью этой процедуры найти периметр треугольника, если даны координаты вершин A, B, C. Помогите пожалуйста

Код к задаче: «С помощью процедуры найти периметр треугольника, если даны координаты вершин - Turbo Pascal»

textual
function leng(xa,ya,xb,yb:real):real;begin;leng:=sqrt(sqr(xb-xa)+sqr(yb-ya));end;
var xa,ya,xb,yb,a,b,c,p,xc,yc:real;
begin
writeln('xa= ');read(xa);
writeln('ya= ');read(ya);
writeln('xb= ');read(xb);
writeln('yb= ');read(yb);
writeln('xc= ');read(xc);
writeln('yc= ');read(yc);
a:=leng(xc,yc,xb,yb);
b:=leng(xa,ya,xc,yc);
c:=leng(xa,ya,xb,yb);
p:=a+b+c;
writeln('P= ',p);
writeln('leng a= ',a);
writeln('leng b= ',b);
writeln('leng c= ',b);
readln;readln;end.

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ