ΠΡΟΓΡΑΜΜΑ μοιρες
ΣΤΑΘΕΡΕΣ
π=3.14
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: επιλογη
ΠΡΑΓΜΑΤΙΚΕΣ: φ,rad
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Τι θελεις να υπολογισω?'
ΓΡΑΨΕ '1. ΗΜ'
ΓΡΑΨΕ '2. ΣΥΝ'
ΓΡΑΨΕ '3. ΕΦ'
ΓΡΑΨΕ '4. ΣΦ'
ΓΡΑΨΕ '5. Τιποτα'
ΔΙΑΒΑΣΕ επιλογη
ΟΣΟ επιλογη>5 Η επιλογη<1 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Λαθος επιλογη!'
ΔΙΑΒΑΣΕ επιλογη
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕΠΙΛΕΞΕ επιλογη
ΠΕΡΙΠΤΩΣΗ 1
ΓΡΑΨΕ 'Δωσε τις μοιρες'
ΔΙΑΒΑΣΕ φ
rad <-- φ*(π/180)
ΓΡΑΨΕ 'Το ημιτονο της γωνιας',φ,'ειναι', ΗΜ(rad)
ΠΕΡΙΠΤΩΣΗ 2
ΓΡΑΨΕ 'Δωσε τις μοιρες'
ΔΙΑΒΑΣΕ φ
rad <-- φ*(π/180)
ΓΡΑΨΕ 'Το συνημιτονο της γωνιας',φ,'ειναι', ΣΥΝ(rad)
ΠΕΡΙΠΤΩΣΗ 3
ΓΡΑΨΕ 'Δωσε τις μοιρες'
ΔΙΑΒΑΣΕ φ
ΑΝ (Α_Μ(φ-90)) MOD 180 = 0 ΤΟΤΕ
ΓΡΑΨΕ 'Λαθος μοιρες'
ΑΛΛΙΩΣ
rad <-- φ*(π/180)
ΓΡΑΨΕ 'Η εφαπτομενη της γωνιας',φ,'ειναι', ΕΦ(rad)
ΤΕΛΟΣ_ΑΝ
ΠΕΡΙΠΤΩΣΗ 4
ΓΡΑΨΕ 'Δωσε τις μοίρες'
ΔΙΑΒΑΣΕ φ
ΑΝ Α_Μ(φ) MOD 180 = 0 ΤΟΤΕ
ΓΡΑΨΕ 'Λαθος μοιρες'
ΑΛΛΙΩΣ
rad <-- φ*(π/180)
ΓΡΑΨΕ 'Η εφαπτομενη της γωνιας',φ,'ειναι',1/ΕΦ(rad)
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΓΡΑΨΕ
ΜΕΧΡΙΣ_ΟΤΟΥ επιλογη=5
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ μοιρες