Άρθρωμα
Περιεχόμενα
Δείκτης 🔎︎

# Συνάρτηση 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