Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2).

Question

Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2).

Answer 1

Var
x1,x2,y1,y2,s:real;
begin
write('Введите значение x1=');read(x1);
write('Введите значение y1=');read(y1);
write('Введите значение x2=');read(x2);
write('Введите значение y2=');read(y2);
s:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln('Расстояние=',s:5:2);
end.

Comments

спасибо