Άσκηση : συγγραφή διαδικασίας

Γράψτε διαδικασία που δέχεται ως παράμετρο μια γωνία
Θ και υπολογίζει το ημίτονο, συνημίτονο, εφαπτομένη και
συνεφαπτομένη αυτής της γωνίας (αν δεν είναι εφικτός ο
υπολογισμός της εφαπτομένης ή συνεφαπτομένης, αποδίδεται
σε αυτή η τιμή -9999.9).
Υπενθυμίζεται ότι η εφαπτομένη μια γωνίας ισούται με το
αποτέλεσμα της διαίρεσης του ημιτόνου με το συνημίτονο
της γωνίας. Η συνεφαπτομένη της γωνίας ισούται με το
αποτέλεσμα της διαίρεσης του συνημιτόνου με το ημίτονο
της γωνίας.



Λύση

     ΔΙΑΔΙΚΑΣΙΑ ΓΩΝΙΑ(Θ, ΗΜΘ, ΣΥΝΘ, ΕΦΘ, ΣΦΘ)
     ΜΕΤΑΒΛΗΤΕΣ
           ΠΡΑΓΜΑΤΙΚΕΣ: Θ, ΗΜΘ, ΣΥΝΘ, ΕΦΘ, ΣΦΘ
     ΑΡΧΗ
           ΗΜΘ <-- ΗΜ(Θ)
           ΣΥΝΘ <-- ΣΥΝ(Θ)
           ΑΝ ΣΥΝΘ < > 0 ΤΟΤΕ
                 ΕΦΘ <-- ΗΜΘ/ΣΥΝΘ
           ΑΛΛΙΩΣ
                 ΕΦΘ <-- -1

           ΤΕΛΟΣ_ΑΝ
           ΑΝ ΗΜΘ < > 0 ΤΟΤΕ
                 ΣΦΘ <-- ΣΥΝΘ/ΗΜΘ
           ΑΛΛΙΩΣ
                 ΣΦΘ <-- -1

           ΤΕΛΟΣ_ΑΝ
     ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ