Описать функцию otr(ax,bx,ay,by) вещественного типа находящию длину отрезка ab на плоскасти по координатам его концов |ab|=(ax-bx)2+(ay-by)2 (ax,ay,bx,by)- вещественны параметры) с этой функции найти длины отрезков ab,ac,ad, если с клавиатуры заданы координаты точек, a,b,c,d.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

function Otr(Ax, Bx, Ay, By: real) :=

Sqrt(Sqr(Bx - Ax) + Sqr(By - Ay));

begin

 var Ax, Ay, Bx, By, Cx, Cy, Dx, Dy: real;

 Readln(Ax, Ay, Bx, By, Cx, Cy, Dx, Dy);

 Writeln('|AB|=', Otr(Ax, Bx, Ay, By));

 Writeln('|AC|=', Otr(Ax, Cx, Ay, Cy));

 Writeln('|AD|=', Otr(Ax, Dx, Ay, Dy))

end.

Пример2.3 3.09 -4.2 6 8.5 -3 4 0|AB|=7.12166413136705|AC|=8.69069042136469|AD|=3.52676905963518