Sisukord

# Cos Function

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

Using the angle Alpha, the Cos function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.

Cos(Alpha) = Adjacent/Hypotenuse

### Süntaks:

    Cos (Number As Double) As Double

### Return type:

Double

### 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

Pi is here the fixed circle constant with the rounded value 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 "The length of the hypotenuse is"; (d1 / cos (dAngle * Pi / 180))
    End Sub

Sarnased teemad

Atn Function

Sin Function

Tan Function