Вычисление значений функции - PascalABC.NET

Формулировка задачи:

составить схему алгоритма и программу на языке паскаль для вычисления значений функции y=f(x) при произвольных значениях х. получить результат работы программы для двух заданных значений х. исходные данные:a=10,2 b=13,4 1)x=4,5 2)x=1,72

Решение задачи: «Вычисление значений функции»

Листинг программы

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).