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.

Answer 3

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

В Pascal можно использовать формулу для вычисления расстояния между двумя точками на плоскости:

scssCopy code
Distance = sqrt((X2 - X1)^2 + (Y2 - Y1)^2)

Где sqrt - это функция для нахождения квадратного корня.

Вот программа на Pascal, решающая данную задачу:

pascalCopy code
program DistanceCalculation;

uses
  SysUtils;

var
  X1, Y1, X2, Y2: Real;
  Distance: Real;

begin
  WriteLn('Введите координаты первой точки (X1 Y1):');
  ReadLn(X1, Y1);

  WriteLn('Введите координаты второй точки (X2 Y2):');
  ReadLn(X2, Y2);

  Distance := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));

  WriteLn('Расстояние между точками A(', X1:0:2, ',', Y1:0:2, ') и B(', X2:0:2, ',', Y2:0:2, ') равно ', Distance:0:2);
end.

После запуска программы, она запросит у пользователя ввести координаты двух точек. Затем она вычислит и выведет расстояние между этими точками. Заметим, что :0:2 используется для форматирования вывода чисел с двумя знаками после запятой.

Теперь вы можете скомпилировать и запустить эту программу, чтобы вычислить расстояние между двумя точками (X1, Y1) и (X2, Y2).