Inhalte

# Funktion Cos

Ermittelt den Kosinus eines Winkels. Der Winkel wird im Bogenmaß angegeben. Das Ergebnis liegt im Bereich von -1 bis 1.

Unter Verwendung des Winkels Alpha berechnet Cos das Verhältnis der Länge der Seite, die an den Winkel angrenzt, geteilt durch die Länge der Hypotenuse in einem rechtwinkligen Dreieck.

Cos(Alpha) = Gegenkathete/Hypotenuse

### Syntax:

    Cos (Zahl As Double) As Double

### Rückgabetyp:

Double

### Parameter:

Zahl: Numerischer Ausdruck, der einen im Bogenmaß (Rad) angegebenen Winkel festlegt, dessen Kosinus Sie berechnen möchten.

Zur Umrechnung von Grad in Bogenmaß muss die Gradangabe mit Pi/180 multipliziert werden und zur Umrechnung von Bogenmaß in Grad muss das Bogenmaß mit 180/Pi multipliziert werden.

grad=(radiant*180)/pi

radiant=(grad*pi)/180

Pi ist die feste Kreiskonstante mit dem gerundeten Wert 3,14159…

### Fehlercodes:

5 Ungültiger Prozeduraufruf

### Beispiel:

    ' Das folgende Beispielprogramm erlaubt für ein rechtwinkeliges Dreieck die Eingabe von
    ' Ankathete und Winkel (in Grad) und berechnet daraus die Länge der Hypotenuse:
    Sub ExampleCosinus
    ' Pi gerundet = 3.14159
    Dim d1 As Double, dAngle As Double
        d1 = InputBox("Bitte geben Sie die Länge der Ankathete ein: ","Ankathete")
        dWinkel = InputBox("Bitte geben Sie den Winkel Alpha ein (in Grad): ","Alpha")
        Print "Die Länge der Hypotenuse beträgt"; (d1 / cos (dWinkel * Pi / 180))
    End Sub

Verwandte Themen

Funktion Atn

Funktion Sin

Funktion Tan

Bitte unterstützen Sie uns!