Spis treści

# Funkcja Tan

Określa tangens kąta. Kąt wynikowy jest wyrażony w radianach.

Przy użyciu parametru w postaci kąta alfa funkcja Tan oblicza stosunek przyprostokątnej naprzeciw kąta do przyprostokątnej przyległej do kąta w trójkącie prostokątnym.

Tan(Alfa) = (przyprostokątna naprzeciw kąta/przyprostokątna przyległa do kąta)

### Składnia:

    Tan (Number As Double) As Double

### Zwracana wartość:

Double

### Parametry:

Liczba: Dowolne wyrażenie numeryczne, z którego należy obliczyć tangens (w radianach).

Aby przeliczyć stopnie na radiany, należy pomnożyć stopnie razy Pi/180. Aby przeliczyć radiany na stopnie, należy pomnożyć stopnie razy 180/Pi.

wartość w stopniach=(wartość w radianach*180)/Pi

radiany=(stopnie*Pi)/180

Pi wynosi około 3,141593.

### Kody błędów:

5 Nieprawidłowe wywołanie procedury

### Przykład:

    ' Poniższy przykład oblicza długość przyprostokątnej przyległej do kąta:
    ' na podstawie przyprostokątnej naprzeciw kąta i kąta (w stopniach) w trójkącie prostokątnym:
    Sub ExampleTangens
    ' zdefiniowana stała Pi = 3,1415926
    Dim d1 As Double
    Dim dAlpha As Double
        d1 = InputBox("Wprowadź długość przeciwprostokątnej do kąta: ","przeciwprostokątna")
        dAlpha = InputBox("Wprowadź kąt alfa (w stopniach): ","Alfa")
        Print "Długość przyprostokątnej przyległej do kąta wynosi"; (d1 / tan (dAlpha * Pi / 180))
    End Sub

Tematy pokrewne

Funkcja Atn

Funkcja Cos

Funkcja Sin