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 W...
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
ГДЕ ОШИБКА? ОНА ТОЧНО ГДЕ-ТО ЕСТЬ, ПОМОГИТЕ!!!!
Гость
Ответ(ы) на вопрос:
ГостьОшибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Не нашли ответ?
Похожие вопросы