Question

Язык Pascal. Напишите программу, которая позволяет вводить координаты двух точек на плоскости.
(координаты целочисленые) и выводит на экран расстояние между ними.

Answer 1

Ответ:

program  z1;

var xa,ya,xb,yb:integer;

begin

write('Введите координаты первой точки: ');

read(xa,ya);

writeln('Введите координаты второй точки: ');

read(xb,yb);

writeln('Расстояние между точками равно: ',sqrt(sqr(xb-xa)+sqr(yb-ya)):0:3);

end.

Объяснение:

Расстояние между двумя точками A(xa, ya) и B(xb, yb) на плоскости:

$AB = \sqrt{(xb - xa)^{2} + (yb - ya)^{2}}$