По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=10 ya=2 xb=10 yb=7 пример выходных данных: |ab|=10.0 пользуясь формулой: аб= корень из ((х1-х2)^2+(y2-y1)^2)
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (xa,ya):=ReadReal2('Введите координаты х и у точки А:'); var (xb,yb):=ReadReal2('Введите координаты х и у точки B:'); Writeln('|AB| = ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya))) end.
Пример Введите координаты х и у точки А: 10 2 Введите координаты х и у точки B: 10 7 |AB| = 5
// Внимание! Если программа не работает, обновите версию!
begin
var (xa,ya):=ReadReal2('Введите координаты х и у точки А:');
var (xb,yb):=ReadReal2('Введите координаты х и у точки B:');
Writeln('|AB| = ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya)))
end.
Пример
Введите координаты х и у точки А: 10 2
Введите координаты х и у точки B: 10 7
|AB| = 5