Вычисление значений функции - PascalABC.NET
Формулировка задачи:
составить схему алгоритма и программу на языке паскаль для вычисления значений функции y=f(x) при произвольных значениях х. получить результат работы программы для двух заданных значений х. исходные данные:a=10,2 b=13,4 1)x=4,5 2)x=1,72
Решение задачи: «Вычисление значений функции»
textual
Листинг программы
const a = 10; b = 13.4;
function f(x : Real) : Real := (x > 3 ? x*x / (x*x+a) : b+2*ln(abs(x)) );
begin
WriteLn('y = ', f(ReadLnReal('x =')));
end.
Объяснение кода листинга программы
- Объявляются две константы: a и b (строки 1 и 2).
- Определяется функция f(x) (строка 5).
- В функции используется тернарный оператор, который проверяет условие x > 3 (строка 5).
- Если условие истинно, то возвращается значение xx / (xx+a), иначе возвращается значение b+2*ln(abs(x)) (строка 5).
- В основной программе выводится приглашение для ввода значения x (строка 9).
- Введенное значение x передается в функцию f(x) (строка 10).
- Результат вычисления функции f(x) выводится на экран (строка 11).