Составить алгоритм и программу вычисления функции - Pascal (80526)

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

Составить алгоритм и программу вычисления функции, x, y – вводится с клавиатуры

Решение задачи: «Составить алгоритм и программу вычисления функции»

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

const
    EPS = 0.0001;
function Y(const x: Real): Real;
var
    temp, Result: Real;
begin
    temp := x - Sin(x - 3);
    if (Abs(temp - 5) < EPS)
    then
        Result := 1
    else
        if (temp < 5)
        then
            Result := Sqrt(x - Sin(Sqr(x)) - 10)
        else
            Result := 3 * Cos(x);
    Y := Result;
end;

Объяснение кода листинга программы

Объявление константы EPS и присвоение ей значения: '0.0001'.
Объявление функции Y, принимающей аргумент x типа Real и возвращающей значение типа Real.
Объявление переменных temp и Result типа Real.
Присвоение переменной temp значения выражения x - Sin(x - 3).
Проверка условия: если абсолютная величина разности temp - 5 менее чем EPS, то
Присвоить переменной Result значение 1, иначе
Если temp меньше 5, то присвоить переменной Result значение Sqrt(x - Sin(Sqr(x)) - 10), иначе
Присвоить переменной Result значение 3 * Cos(x).
Возвратить значение переменной Result в качестве результата функции Y.