Cos függvény

Kiszámítja a szög koszinuszát. A szög radiánban van megadva. Az eredmény -1 és 1 közötti érték.

Az alfa szög felhasználásával a Cos függvény kiszámítja a szög melletti befogó és az átfogó hosszának arányát.

Cos(alfa) = Melletti/Átfogó

Szintaxis:


Cos (Szám)

Visszatérési érték:

Double

Paraméterek:

Szám: Numerikus kifejezés, amely azon szög értékét tartalmazza radiánban, amelynek ki akarja számolni a koszinuszát.

Fokok radiánná alakításához szorozza meg a fokokat pi/180-nal. Radiánok szögekké alakításához szorozza meg a radiánokat 180/pi-vel.

fok=(radián*180)/pi

radián=(fok*pi)/180

A pi a rögzített körállandó 3.14159-es kerekített értékkel.

Hibakódok:

5 Érvénytelen eljáráshívás

Példa:


' Az alábbi példa lehetővé teszi egy derékszögű háromszög
' szekánsának és szögének (fokokban) megadását, és ezek alapján kiszámolja a háromszög átfogójának hosszát:
Sub ExampleCosinus
' kerekített Pi = 3.14159
Dim d1 As Double, dAngle As Double
    d1 = InputBox$("Adja meg a szög melletti befogó hosszát: ","Melletti")
    dAngle = InputBox("Adja meg az alfa szöget (fokban): ","Alfa")
    Print "Az átfogó hossza"; (d1 / cos (dAngle * Pi / 180))
End Sub

Please support us!