Funkce Cos

Vypočítá kosinus úhlu. Úhel se zadává v radiánech. Výsledek je v rozsahu -1 až 1.

Funkce Cos počítá poměr délky přilehlé odvěsny a délky přepony pravoúhlého trojúhelníku.

Cos(Alfa) = Přilehlá odvěsna/Přepona

Syntaxe:

Cos (Number)

Návratová hodnota:

Double

Parametry:

Number: Číselný výraz určující úhel v radiánech, pro který chcete spočítat kosinus.

Stupně lze převést na radiány vynásobením hodnoty ve stupních hodnotou Pi/180. Radiány lze převést na stupně vynásobením hodnoty v radiánech hodnotou 180/Pi.

hodnota ve stupních=(hodnota v radiánech*180)/Pi

hodnota radiánech=(hodnota ve stupních*Pi)/180

Pi je konstanta s hodnotou přibližně 3.14159.

Chybové kódy:

5 Neplatné volání procedury

Příklad:

' Následující příklad umožňuje pro pravoúhlý trojúhelník

' zadat odvěsnu a úhel (ve stupních) a spočítat délku přepony:

Sub ExampleCosinus

' zaokrouhlené Pi = 3.14159

Dim d1 As Double, dAngle As Double

    d1 = InputBox("Zadejte délku přilehlé odvěsny: ","Přilehlá")

    dAngle = InputBox("Zadejte úhel alfa (ve stupních): ","Alfa")

    Print "Délka přepony je "; (d1 / cos (dAngle * Pi / 180))

End Sub