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

Palun toeta meid!