В Turbo Pascal тангенс находится, как отношение синуса к косинусу, а котангенс как функция обратная тангенсу (ctg(x)=1/tg(x))
function tg (x : real) : real;
function ctg (x : real) : real;
Тангенс и котаненс – Нахождение тангенса tg и котангенса ctg в Паскале
.. с миру по нитке
28 сент. 2009 г.
Pascal: вычисление тангенса угла
Насколько Вам известно (или пока неизвестно) в Паскале нет стандартной функции расчёта тангенса угла.
Для того, чтобы исправить это небольшое упущение, я напишу небольшую функцию, назвав её tan.
Итак, пример на Паскале:
Чтобы включить эту возможность в свою программу, скопируйте код функции и вставьте до первого begin программы.
Затем в программе можете написать
Теперь выполнять расчёт совсем совсем не сложно!
В языке не нашел этой функции. Странно. Из математики тангенс это отношение sin(x) к cos(x). Вот функция:
function tg (arg : real) : real;
begin
tg := sin(arg)/cos(arg);
end;
Добавить комментарий Отменить ответ
Для отправки комментария вам необходимо авторизоваться.