Modul
Indhald
Innhaldsliste 🔎︎

# Tan-funksjonen

Finn tangens for ein vinkel i radianar. Vinkelen er oppgjeve i radianar.

Ved å bruka vinkalen Alpha reknar TAN-funksjonen ut forholdet mellom lengda på den motståande sida til vinkelen og lengda på den hosliggjande sida i ein rettvinkla trekant.

TAN(Alpha) = side motsett vinkelen/hosliggjande side til vinkelen

## Syntaks:

    Tan (tal)

## Returverdi:

Double

## Parametrar:

Tal: Eit numeriskt uttrykk som du vil rekna ut tangens for (i radianar).

For å konvertera grader til radianar, multipliser med med pi/180. For å konvertera radianar til grader, multipliser med 180/pi.

grader=(radianar*180)/pi

radianar=(grader*pi)/180

Pi er tilnærma lik 3.141593.

## Feilkodar

5 Ugyldig prosedyreoppkall

## Eksempel:

    ' I dette eksempelet er desse innskrivingane moglege for ein rettvinkla trekant:
    ' Sida motsett vinkelen og vinkelen (i grader) for å rekna ut lengda på den hosliggjande sida til vinkelen:
    Sub ExampleTangens
    ' Pi er ein førehandsdefinert konstant avrunda til 3,1415926
    Dim d1 As Double
    Dim dAlpha As Double
        d1 = InputBox("Skriv inn lengda på den motståande sida til vinkelen: ","motståande")
        dAlpha = InputBox$ ("Skriv inn vinkelen Alfa (i grader): ","Alfa")
        Print "lengda på den motståande sida til vinkelen er"; (d1 / tan (dAlpha * Pi / 180))
    End Sub