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