Значения функции(2) - Turbo Pascal
Формулировка задачи:
Здравствуйте, помогите разобраться с задачей.
Не могу найти никакой информации о таких задачах ( не знаю что именно надо искать -_- ), даже в голове не могу представить как должен выглядеть код.
Решение задачи: «Значения функции(2)»
textual
Листинг программы
const A=2; B=3; C=5; var X,Y:real; begin X:=exp(A)+ln(B)+4*C; if X<1.5 then Y:=18*sin(X)+sin(2*X) else if X=1.5 then Y:=X*X+3*X-1 else Y:=(X+2)*(X+2)*(X+2)-sqrt(X*X-1); writeln('Y=',Y); end.
Объяснение кода листинга программы
- В коде объявлены три константы: A, B и C, которые имеют значения 2, 3 и 5 соответственно.
- Также в коде объявлены две переменные типа real: X и Y.
- Значение переменной X вычисляется как сумма экспоненты от A, логарифма от B и 4-кратного значения C.
- Затем, если значение X меньше 1.5, то значение переменной Y вычисляется как 18-кратный синус от X, плюс синус от 2-кратного значения X.
- Если значение X равно 1.5, то значение переменной Y вычисляется как квадрат от X, умноженный на 3, плюс X, возведенное в куб, и минус 1.
- В противном случае, значение переменной Y вычисляется как куб от (X+2), умноженный на (X+2), умноженный на (X+2), минус квадратный корень от (X*X-1).
- Наконец, значение переменной Y выводится на экран с помощью функции writeln, с указанием значения переменной Y.