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

# Συνάρτηση Sin

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

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

Sin(Alpha) = απέναντι κάθετος της γωνίας/υποτείνουσα

## Σύνταξη:

    Sin (Number)

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

Διπλό

## Παράμετροι:

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

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

grad=(radiant*180)/pi

radiant=(grad*pi)/180

Το π είναι περίπου 3.141593.

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

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

## Παράδειγμα:

    ' Σε αυτό το παράδειγμα, η ακόλουθη καταχώριση είναι δυνατή για ένα ορθογώνιο τρίγωνο:

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

    Sub ExampleSine

    ' π = 3,1415926 ως προκαθορισμένη μεταβλητή

    Dim d1 As Double

    Dim dAlpha As Double

        d1 = InputBox("Εισαγάγετε το μήκος της απέναντι καθέτου: ","Opposite Side")

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

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

    End Sub