Tan funkcija

Apibrėžia kampo tangentą. Kampas nurodomas radianais.

Naudojant kampą „Alfa“, „tan“ funkcija apskaičiuoja kraštinės, esančios priešais šį kampą, ir kraštinės, esančios greta šio kampo, ilgio santykį stačiajame trikampyje.

Tan(Alfa) = kraštinė priešais kampą/kraštinė greta kampo

Sintaksė:


Tan (skaičius)

Grąžinama reikšmė:

Dvigubas

Parametrai:

Skaičius: bet kuris skaitinis reiškinys, kurios tangentą norite apskaičiuoti (radianais).

Norėdami konvertuoti laipsnius į radianus, padauginkite iš Pi/180. Norėdami konvertuoti radianus į laipsnius, padauginkite iš 180/Pi.

laipsniai=(radiantas*180)/Pi

radiantas=(laipsniai*Pi)/180

Pi apytiksliai lygu 3,141593.

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

Pavyzdys:


' Šiame pavyzdyje galimas šitoks įrašas stčiajam trikampiui:
' Kraštinė, esanti prieš kampą, ir kampas (laipsniais) norint apskaičiuoti šiam kampui gretimos kraštinės ilgį:
Sub ExampleTangens
' Pi = 3,1415926 yra apibrėžtas kintamasis
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Įveskite kraštinės, esančios priešais kampą, ilgį: ","Priešais")
    dAlpha = InputBox("Įveskite kampą „Alfa“ (laipsniais): ","Alfa")
    Print "gretimos kampui kraštinės ilgis yra"; (d1 / tan (dAlpha * Pi / 180))
End Sub