Question

Ввести с клавиатуры координаты двух точек а и в на плоскости вещественный числа вычислить длину.программу нужно написать в паскале пример,как должно получиться введите координаты точки а 5.5 3.5 введите координаты точки b 1.5 2 длинна отрезка ab=4.272

Answer 1

Var
x1,x2,y1,y2:real;
begin
writeln('Введите координаты первой точки(х1,у1)');
readln(x1,y1);
writeln('Введите координаты второй точки(х2,у2)');
readln(x2,y2);
writeln(sqrt(sqr(x2-x1)+sqr(y2-y1)):3:3);
end.

Answer 2

Хорошо, давайте разберемся, как можно написать программу для вычисления длины отрезка по заданным координатам двух точек A и B на плоскости.

1. Вначале нужно объявить переменные для хранения координат точек A и B. Давайте назовем их Ax, Ay, Bx и By. Для этого в паскале воспользуемся оператором "Var", который позволяет объявить переменные:

```
Var
Ax, Ay, Bx, By: Real;
```

2. Для чтения координат с клавиатуры, в паскале можно использовать процедуру "Readln". Давайте прочитаем координаты точки A:

```
Write('Введите координаты точки A: ');
Readln(Ax, Ay);
```

Обратите внимание, что перед чтением координат мы вывели на экран предложение ввести координаты точки A с помощью процедуры "Write".

3. Аналогично, прочитаем координаты точки B:

```
Write('Введите координаты точки B: ');
Readln(Bx, By);
```

4. Теперь нужно вычислить длину отрезка AB по формуле `d = sqrt((Bx - Ax)^2 + (By - Ay)^2)`. Для этого в паскале используется функция "sqrt" для вычисления квадратного корня и оператор "sqr" для возведения числа в квадрат:

```
Var
d: Real;

d := sqrt(sqr(Bx - Ax) + sqr(By - Ay));
```

5. Наконец, выведем на экран результат:

```
Write('Длина отрезка AB = ', d:0:3);
```

Обратите внимание, что мы указали формат вывода значения `d` - `:0:3`, чтобы ограничить число знаков после запятой до трех.

Вот полный код программы на Паскале для вычисления длины отрезка по заданным координатам точек A и B:

```
Program CalculateDistance;
Var
Ax, Ay, Bx, By, d: Real;

Begin
Write('Введите координаты точки A: ');
Readln(Ax, Ay);

Write('Введите координаты точки B: ');
Readln(Bx, By);

d := sqrt(sqr(Bx - Ax) + sqr(By - Ay));

Write('Длина отрезка AB = ', d:0:3);
End.
```

После компиляции и запуска этой программы, она попросит вас ввести координаты точек A и B с помощью сообщений на экране, а затем выведет длину отрезка AB.