Module
Contents
Index 🔎︎

# 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