Создайте и протестируйте программу вычисления расстояния AB между точками с коорднатами...

Question

Создайте и протестируйте программу вычисления расстояния AB между точками с коорднатами (X1,Y1) и (X2,Y2), которые вводятся с клавиатуры паскаль решение

Answer 1

Program Coords;
var x1,x2,y1,y2,S:real;
begin
write('Введите X1 : '); readln(X1);
write('Введите Y1 : '); readln(Y1);
write('Введите X2 : '); readln(X2);
write('Введите Y2 : '); readln(Y2);
S:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(s);
end.

Answer 2

Var x1, x2, y1, y2, s: real;

begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.