Pascal: вычисление тангенса угла

Насколько Вам известно (или пока неизвестно) в Паскале нет стандартной функции расчёта тангенса угла.
Для того, чтобы исправить это небольшое упущение, я напишу небольшую функцию, назвав её tan.

Итак, пример на Паскале:

function tan(gradus:real):real;
var rad,pi:real; {Описываем переменные}
begin
 pi:=3.14; {Определяем значение переменной Пи}
 rad:=(pi*gradus)/180; {Переводим градусы в радианы}
 tan:=sin(rad)/cos(rad); {Выполняем расчёт тангенса}
end;

Чтобы включить эту возможность в свою программу, скопируйте код функции и вставьте до первого begin программы.

Затем в программе можете написать

 writeln(tan(45)); {Выведет на экран значение тангенса 45 градусов}

Теперь выполнять расчёт совсем совсем не сложно!