Модуль
Зміст
Покажчик 🔎︎

# Функція Atn

Тригонометрична функція, що повертає арктангенс числового виразу. Обчислене значення знаходиться в діапазоні від -Pi/2 до +Pi/2.

Арктангенс є оберненою функцією до тангенса. Функція Atn повертає кут Alpha у радіанах, використовуючи тангенс цього кута. Ця функція також може повертати кут Alpha, обчислюючи у прямокутному трикутнику відношення довжини протилежного катета до довжини прилеглого катета.

Atn(Протилежна до кута сторона/Прилегла до кута сторона)= Alpha

## Синтаксис:

    Atn (Число)

## Значення, що повертається:

Double

## Параметри:

Число: будь-який числовий вираз, що представляє відношення двох сторін прямокутного трикутника. Функція Atn повертає відповідний кут в радіанах (тангенс).

Щоб перетворити радіани в градуси, слід помножити радіани на 180/pi.

градуси=(радіани*180)/pi

радіани=(градуси*пі)/180

Pi - стала з округленим значенням 3,14159.

## Коди помилок:

5 Неправильний виклик процедури

## Приклад:

    ' У наступному прикладі для прямокутного трикутника обчислюється

    ' кут Alpha із тангенса кута Alpha:

    Sub ExampleAtn

    ' округлене число Pi = 3,14159 є наперед визначеною сталою

    Dim d1 As Double

    Dim d2 As Double

        d1 = InputBox("Введіть довжину сторони, прилеглої до кута: ","Прилегла")

        d2 = InputBox("Введіть довжину сторони, протилежної до кута: ","Протилежна")

        Print "Кут Alpha рівний"; (atn (d2/d1) * 180 / Pi); " градусів"

    End Sub