IBM Lotus Symphony
|
Určuje tangens uhla. Uhol je zadaný v radiánoch.
Pomocou uhla alfa funkcia Tan počíta pomer dĺžky protiľahlej strany uhla k dĺžke priľahlej strany pravouhlého trojuholníka.
Tan(alfa) = protiľahlá strana uhla/priľahlá strana uhla
Funkcia Tan (číslo)
Typ Double
Číslo: Ľubovoľný numerický výraz, pre ktorý chcete vypočítať tangens (v radiánoch).
Na prevod stupňov na radiány vynásobte hodnotu v stupňoch zlomkom Pí/180. Na prevod hodnoty v radiánoch na stupne vynásobte hodnotu v radiánoch zlomkom 180/Pí.
stupne=(radiant*180)/Pi
radiant=(stupne*Pi)/180
Hodnota Pí je približne 3,141593.
REM V tomto príklade je možné zadať pre pravouhlý trojuholník nasledujúcu hodnotu:
REM Protiľahlá strana uhla a hodnota uhla (v stupňoch) na výpočet dĺžky priľahlej strany uhla:
Sub Príklad_Tangens
REM Pí = 3.1415926 je preddefinovaná premenná
Dim d1 ako typ Double
Dim dAlpha ako typ Double
d1 = InputBox$ ("Zadajte dĺžku protiľahlej strany uhla: ","protiľahlá")
dAlpha = InputBox$ ("Zadajte hodnotu uhla alfa (v stupňoch): ","alfa")
Print "dĺžka priľahlej strany uhla je"; (d1 / tan (dAlpha * Pi / 180))
End Sub