Вычислите значения функции - Turbo Pascal

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

Вычислите значения функции.

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

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

uses crt;
function f(x:real):real;
begin
if x<0 then f:=x*x*x+4
else if x>0 then f:=sin(x)/cos(x)-8;
end;
begin
clrscr;
writeln('При x=0.8 y=',f(0.8):0:3);
writeln('При x=11.36 y=',f(11.36):0:3);
writeln('При x=-5.54 y=',f(-5.54):0:3);
readln
end.

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

В начале кода используется библиотека crt, которая является стандартной для языка Turbo Pascal и используется для работы с функцией вывода чисел с плавающей точкой.
Затем объявляется функция f, которая принимает один аргумент типа real (число с плавающей точкой) и возвращает результат типа real (число с плавающей точкой).
Внутри функции проверяется значение аргумента x. Если x меньше нуля, то вычисляется значение выражения xxx+4. Если x больше нуля, то вычисляется значение выражения sin(x)/cos(x)-8.
В основной части кода очищается экран с помощью функции clrscr.
Затем выводится значение функции f при x=0.8 и x=11.36, а также при x=-5.54.
Конец программы.