Добрый день , вечер. Уважаемые форумчане.
Требуется Ваша помощь по решению алгоритма с ветвями.
Текст алгоритма:
PROGRAM Lab;
CONST
C=8.338;
VAR
A,B,F,R :real;
BEGIN
Writeln('A:=11.1,B:=0.87');
Readln(A,B);
R:=A/B;
if (R>C) and (abs(B)>0.1) then
F:= ln®-A/C(B)
else
if (R<=C) and (abs(B)>0.1) then
F:= exp®+C(B)
else
F:= C(B);
Writeln('Рез-т' ,F:);
END.
*Ошибки начинаются с 11 строки, но понять в чём именно проблема - не могу.
Прикрепил файл изображения с заданием.
P.S: "Программу только начали изучать, многое не понятно.
Надеюсь на Вашу профессиональную помощь. Спасибо.
Эскизы прикрепленных изображений
Выглядит так, будто ( R ) после набора в каком-то «умном» чате или редакторе автоматом преобразовались в ®
Добавлено. Оказывается, форум IPB именно такой «умный». А других проблем нет?
В 11й строке C вызывается как приведение типа или вызов функции, но C — это константа. Там имелось в виду что-то другое.
Посмотрите вложение с заданием. Разве С не должно быть равно 8.338?
C(B)
C(B)
Решено.
Тему можно закрывать.
Отдельное спасибо OCTOGRAM(у).