Συνάρτηση Cos

Υπολογίζει το συνημίτονο μιας γωνίας. Η γωνία ορίζεται σε ακτίνια. Το αποτέλεσμα βρίσκεται μεταξύ των τιμών -1 και 1.

Χρησιμοποιώντας τη γωνία Α, η συνάρτηση Cos υπολογίζει το λόγο του μήκους της προσκείμενης καθέτου προς το μήκος της υποτείνουσας ενός ορθογωνίου τριγώνου.

Cos(Alpha) = προσκείμενη κάθετος/υποτείνουσα

Σύνταξη:

Cos (Number)

Τιμή επιστροφής:

Διπλό

Παράμετροι:

Number: Αριθμητική παράσταση που καθορίζει μια γωνία σε ακτίνια, για την οποία πρόκειται να υπολογισθεί το συνημίτονο.

Για να μετατρέψετε τις μοίρες σε ακτίνια, πολλαπλασιάστε τις μοίρες με π/180. Για να μετατρέψετε τα ακτίνια σε μοίρες, πολλαπλασιάστε τα ακτίνια με 180/π.

μοίρες=(ακτίνια*180)/π

ακτίνια=(μοίρες*π)/180

Το Pi είναι η σταθερά του κύκλου με τιμή 3,141592657... .

Κωδικοί σφάλματος:

5 Άκυρη κλήση διαδικασίας

Παράδειγμα:

' Το ακόλουθο παράδειγμα επιτρέπει την εισαγωγή ενός ορθογώνιου τριγώνου

' τέμνουσα και γωνία (σε μοίρες) και υπολογίζει το μήκος της υποτείνουσας:

Sub ExampleCosinus

' στρογγυλεμένο  π = 3.14159

Dim d1 As Double, dAngle As Double

    d1 = InputBox("Εισαγωγή του μήκους της γειτονικής πλευράς:","Γειτονική")

    dAngle = InputBox("Εισαγάγετε τη γωνία Α (σε μοίρες): ","Alpha")

    Print "Το μήκος της υποτείνουσας είναι "; (d1 / cos (dAngle * Pi / 180))

End Sub