Тангенс в паскале как записать

В 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;

Добавить комментарий Отменить ответ

Для отправки комментария вам необходимо авторизоваться.

Читайте также:  Требуется подтверждение чтобы посмотреть платежную информацию нажмите
Оцените статью
Добавить комментарий

Adblock detector