ΠΡΟΓΡΑΜΜΑ Μετατροπέας
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: τυ,βαθμ,διαθ,α
ΑΡΧΗ
α <-- 1
όσο α=1 επαναλαβε
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'Αυτός είναι ένας Μετατροπέας που μετατρέπει τους βαθμούς Κελσίου σε Φάρεναϊτ και το αντίστροφο..'
ΓΡΑΨΕ'Για να μετατρέψεις τη θερμοκρασία από Κελσίου σε Φάρεναϊτ πατήστε 1 ενώ για το αντίστροφο 2:'
ΔΙΑΒΑΣΕ τυ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΑΝ τυ=1 τότε
ΓΡΑΨΕ 'Δώσε τους βαθμούς σε Κελσίου:'
ΔΙΑΒΑΣΕ βαθμ
διαθ <-- (32+βαθμ*1.8)
ΓΡΑΨΕ 'Η θερμοκρασία σε βαθμούς Φάρεναϊτ είναι',διαθ,'.'
ΤΕΛΟΣ_ΑΝ
αν τυ=2 τοτε
ΓΡΑΨΕ 'Δώσε τους βαθμούς σε Φάρεναϊτ:'
ΔΙΑΒΑΣΕ βαθμ
διαθ <-- (βαθμ-32)/1.8
ΓΡΑΨΕ 'Η θερμοκρασία σε βαθμούς Κελσίου είναι',διαθ,'.'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Αν θέλετε να ξανακάνετε μετατροπή πατήστε 1 αλλιώς πατήστε 2:'
ΔΙΑΒΑΣΕ α
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'Ηταν αλλη μία δημιουργία του Lazy Programmer(Μακης),Ευχαριστώ.....'
ΚΑΛΕΣΕ καθ
ΚΛΕΙΣΕ_ΠΑΡΑΘΥΡΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ καθ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 100000000
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ