Создайте и протестируйте программу вычисления расстояния AB между точками с коорднатами (X1,Y1) и (X2,Y2), которые вводятся с клавиатуры паскаль решение
Answers & Comments
smfliss
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.
Answers & Comments
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.
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.