Question

Program Z1; Var a, b, c, ab, ac ; integer; Begin Writeln ('Введите координаты А'); Readln (a); Writeln ('Введите координаты В'); Readln (с); Writeln ('Введите координаты С'); Readln (c); ab:= abc (a-b); ac:= abc (a-c); if ab Writeln ('расстояние =;ab); else ГДЕ ОШИБКА? ОНА ТОЧНО ГДЕ-ТО ЕСТЬ, ПОМОГИТЕ!!!!

Answer 1

Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...

Answer 2

Программа, которую вы предоставили, содержит некоторые ошибки и не полностью понятна. Я могу помочь вам исправить ошибки и объяснить, что делает эта программа.

Исправление ошибок в программе:

1. В строке `Readln+(с);` вместо `с` должно быть `b`, чтобы считать координаты точки B. 2. В строке `ab:= abc+(a-b);` и `ac:= abc+(a-c);` необходимо заменить `abc` на `abs`, чтобы вычислить абсолютное значение разности координат.

Исправленный код будет выглядеть следующим образом:

Program Z1;
Var
  a, b, c, ab, ac: integer;
Begin
  Writeln('Введите координаты А');
  Readln(a);
  Writeln('Введите координаты В');
  Readln(b);
  Writeln('Введите координаты С');
  Readln(c);
  ab := abs(a - b);
  ac := abs(a - c);
  if ab > ac then
    Writeln('Расстояние ab больше: ', ab)
  else if ab < ac then
    Writeln('Расстояние ac больше: ', ac)
  else
    Writeln('Расстояния ab и ac равны: ', ab);
End.

Объяснение программы:

Эта программа позволяет пользователю ввести координаты трех точек: A, B и C. Затем программа вычисляет расстояния между точками AB и AC и выводит результат.

- Строки `Writeln` и `Readln` используются для ввода и вывода данных. - Переменные `a`, `b` и `c` используются для хранения координат точек A, B и C соответственно. - Переменные `ab` и `ac` используются для хранения расстояний между точками AB и AC соответственно. - Функция `abs` используется для вычисления абсолютного значения разности координат.

После вычисления расстояний программа сравнивает их и выводит информацию о том, какое расстояние больше или равно.

Надеюсь, это поможет вам понять программу и исправить ошибки. Если у вас есть еще вопросы, не стесняйтесь задавать!