Вычислить все тригометрические функции углов - Turbo Pascal

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

Даны условные величины в градусной мере.Разработайте проект,позволяющий: a)вычислить все тригометрические функции углов б)вводить и редактировать данные,с сохранением результатов в)искать значения тригометрических функций, по заданному углу г)выводить результат

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

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

function tg(x: real): real;
begin
  tg := sin(x) / cos(x)
end;
 
function ctg(x: real): real;
begin
  ctg := cos(x) / sin(x)
end;
 
function sec(x: real): real;
begin
  sec := 1 / cos(x)
end;
 
function cosec(x: real): real;
begin
  cosec := 1 / sin(x)
end;

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

Создается функция tg, которая принимает аргумент типа real и возвращает значение типа real.
Внутри функции tg выполняется вызов функции sin и cos с аргументом x.
Полученные значения функций sin и cos сравниваются, и результат присваивается переменной tg.
Создается функция ctg, которая аналогична функции tg, но использует функции cos и sin вместо sin и cos.
Создается функция sec, которая принимает аргумент типа real и возвращает значение типа real.
Внутри функции sec выполняется вызов функции cos и sin с аргументом x.
Полученные значения функций cos и sin сравниваются, и результат присваивается переменной sec.
Создается функция cosec, которая аналогична функции sec, но использует функции sin и cos вместо cos и sin.
Код не содержит других функций или действий, поэтому список завершается.