Πώς να γράψει κώδικα για Tangent σε VB.NET

Από όλες τις τριγωνομετρικές λειτουργίες , η εφαπτομένη μπορεί να είναι το πιο εύκολο να καταλάβει . Πήγαινε έξω , να βρουν ένα ψηλό δέντρο , στέκονται περίπου 20 μέτρα από το δέντρο και να εκτιμήσουν τη γωνία από το έδαφος προς την κορυφή του δέντρου . Το ύψος του δέντρου θα είναι η απόσταση ( 20 πόδια) φορές η εφαπτομένη αυτής της γωνίας . Εάν η γωνία είναι 60 μοίρες, το δέντρο είναι 34 πόδια ψηλός (επειδή η εφαπτομένη της 60 μοιρών είναι περίπου 1,7 ) . Στο Visual Basic.Net , χρησιμοποιήστε τη συνάρτηση της εφαπτομένης , « ΤΑΝ , " για να υπολογίσετε την εφαπτομένη μιας γωνίας για εσάς . Οδηγίες
Η

1 Ανοίξτε το Visual Basic Express και να δημιουργήσετε μια νέα εφαρμογή κονσόλας . Κάντε κλικ στο " Αρχείο " τότε "New Project ". Όταν εμφανιστεί το νέο παράθυρο του έργου , επιλέξτε Windows από την προβολή δέντρου , κάντε κλικ στο εικονίδιο Εφαρμογή κονσόλας και το όνομα του προγράμματος « Tangent . " Κάντε κλικ στο " OK" για να δημιουργήσετε το έργο . Μετά από μια σύντομη αναμονή , θα εμφανιστεί το παράθυρο του κωδικού 2

Προσθέστε μια δήλωση εισαγωγές να συμπεριλάβει το χώρο ονομάτων System.Math στο πρόγραμμα ως εξής : .

Εισαγωγές System.Math

Module Module1

η δήλωση αυτή μας επιτρέπει να χρησιμοποιήσετε όλες τις μαθηματικές συναρτήσεις που βρέθηκαν στο System.Math μέσα στο πρόγραμμα .
εικόνων 3

δήλωση μεταβλητών για την απόσταση και γωνίες ως εξής :

Sub Main ( )

Dim απόσταση As Double = 20,0

Dim γωνία As Double = 60.0

Ο διπλός τύπος είναι ένα διπλό . αριθμός κινητής υποδιαστολής , η οποία μπορεί να κρατήσει ένα πολύ μεγάλο ή μικρό δεκαδικός αριθμός
Η 4

Μετατρέψτε τη γωνία σε ακτίνια χρησιμοποιώντας την ακόλουθη δήλωση :

Δημ. ακτίνια As Double = γωνία * PI /180.0

Αν εμείς οι άνθρωποι συνήθως τη μέτρηση γωνιών σε μοίρες , το . Net πλαίσιο θέλει να δει γωνίες μετρώνται ως ακτίνια . Ένα ακτίνιο μετρά την απόσταση γύρω από ένα κύκλο , όπως 2π . Για να μετατρέψετε από μοίρες σε ακτίνια , πολλαπλασιάστε τη γωνία από την pi στη συνέχεια διαιρέστε με 180
5

Υπολογίστε το ύψος του δέντρου ως εξής : .

Dim ύψος As Double = Tan ( ακτίνια ) * απόσταση

το ύψος είναι η απόσταση που πολλαπλασιάζεται με την εφαπτομένη της γωνίας σε ακτίνια
Η 6

Εμφάνιση των αποτελεσμάτων στην κονσόλα ως εξής : .

Console . Γράψτε ( « το δέντρο είναι " )

Console.Write ( height.ToString )

Console.WriteLine ( " πόδια ψηλά " )
Η 7

Τερματισμός της πρόγραμμα με τον ακόλουθο κώδικα :

End Sub

End Module
8

Κάντε κλικ στο πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα . Ένα παράθυρο της κονσόλας θα εμφανιστεί αναφέροντας το ύψος του δέντρου .
Η
εικόνων