Module
Contents
Index 🔎︎

# Cos Function

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.

## Error codes:

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