Program Lab1;
Var
x, a, b, R, R1, R2, R3: Real;
Begin
Writeln (‘Введите исходные данные – переменные x, a, b’);
Readln(x, a, b);
R1:= a/(x-a); // R1:= (a/(x-a)); Избыточные скобки вокруг выражения. Не ошибка, но избыточные
R2:= power(b, x) + power(cos(x),3); // R2:= (power(b, x) + power(cos(x),3)); Та же история, что и выше
R3:=power(log(a),3)+4,5; // R3:=(log(power(a,3))+4,5); То же, что и выше, плюс Ошибка:
// возводим в 3 степень не a, но логарифм a
R:=R1+R2/R3;
Writeln(‘Значение функции R =’, R:8:5);
End.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.