IBM Lotus Symphony
|
Vypočíta kosínus uhla. Uhol je zadaný v radiánoch. Výsledok sa nachádza medzi hodnotami -1 a 1.
Pomocou uhla alfa funkcia Cos počíta pomer dĺžky priľahlej strany uhla k dĺžke prepony pravouhlého trojuholníka.
Cos(alfa) = Priľahlá strana/Prepona
Cos (číslo)
Typ Double
Číslo: Numerický výraz zadávajúci hodnotu uhla v radiánoch, pre ktorú chcete vypočítať kosínus.
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=(radiány*180)/pí
radiány=(stupne*pí)/180
Pí je konštanta kruhu s hodnotou zaokrúhlenou na 3.14159...
REM nasledujúci príklad umožňuje zadať pre pravouhlý trojuholník
REM hodnotu sekansu a uhla (v stupňoch) a vypočíta sa dĺžka prepony:
Sub Príklad_Cosinus
REM zaokrúhlená hodnota Pí = 3,14159
Dim d1 ako typ Double, dAngle ako typ Double
d1 = InputBox$ ("Zadajte dĺžku priľahlej strany uhla: ","Priľahlá")
dAngle = InputBox$ ("Zadajte hodnotu uhla alfa (v stupňoch): ","alfa")
Print "Dĺžka prepony je"; (d1 / cos (dAngle * Pi / 180))
End Sub