Sisukord
Register 🔎︎

# Cos funktsioon

Arvutab nurga koosinuse. Nurk tuleb anda radiaanides. Tulemus on vahemikus -1 kuni 1.

Funktsioon Cos arvutab täisnurkse kolmnurga nurga Alfa nurga kõrval oleva külje pikkuse suhte hüpotenuusi pikkusse.

Cos(alfa) = Lähiskaatet/Hüpotenuus

## Süntaks:

    Cos (arv)

## Tagastusväärtus:

Topelttäpsusega reaalarv

## Parameetrid:

Arv: arvavaldis, mis määrab nurga (radiaanides), mille koosinust soovid arvutada.

Kraadide teisendmiseks radiaanideks korruta kraadid pii/180. radiaanide teisendamiseks kraadideks korruta radiaanid 180/pii.

kraadid=(radiaanid*180)/pii

radiaanid=(kraadid*pii)/180

Pii on fikseeritud konstant ümardatud väärtusega 3,14159.

### Veakoodid:

5 Vigane protseduuri väljakutse

## Näide:

    REM Järgmises näites arvutatakse väärtus täisnurkse kolmnurga korral, kui sisestatud on
    REM sekans ja nurk (kraadides) ja arvutab hüpotenuusi pikkuse:
    Sub ExampleCosinus
    REM ümardatud pii = 3.14159
    Dim d1 As Double, dAngle As Double
        d1 = InputBox(""Sisesta lähiskaateti pikkus: ","Lähis")
        dAngle = InputBox("Sisesta nurk alfa (kraadides): ","alfa")
        Print "Hüpotenuusi pikkus on"; (d1 / cos (dAngle * pii / 180))
    End Sub