ΠΡΟΓΡΑΜΜΑ calculator ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: Χ, Υ, ΑΠΟΤ ΧΑΡΑΚΤΗΡΕΣ: Π, ΕΡΩΤ, ΟΚ ΑΡΧΗ ΕΡΩΤ <-- 'Ν' ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΓΡΑΨΕ 'Καλωσορίσατε στο calculator!' ΓΡΑΨΕ 'Αλλάξτε το πληκτρολόγιο σας σε ελληνικά, κεφάλαια' ΓΡΑΨΕ 'και γράψτε ΟΚ για να συνεχίσετε:' ΔΙΑΒΑΣΕ ΟΚ ΜΕΧΡΙΣ_ΟΤΟΥ ΟΚ = 'ΟΚ' ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ CALC ΓΡΑΨΕ 'Πληκτρολογείστε τον πρώτο αριθμό:' ΔΙΑΒΑΣΕ Χ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ CALC ΓΡΑΨΕ 'Πληκτρολογείστε τη πράξη ("/","*","-","+","^","ΗΜ","ΣΥΝ","ΕΦ","ΛΟΓ","Τ_Ρ"):' ΔΙΑΒΑΣΕ Π ΜΕΧΡΙΣ_ΟΤΟΥ Π='/' Η Π='*' Η Π='-' Η Π='+' Η Π='^' Η Π='ΗΜ' Η Π='ΣΥΝ' Η Π='ΕΦ' Η Π='ΛΟΓ' Η Π='Τ_Ρ' ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ CALC ΑΝ Π <> '/' ΚΑΙ Π <> '*' ΚΑΙ Π <> '-' ΚΑΙ Π <> '+' ΚΑΙ Π <> '^' ΤΟΤΕ ΑΝ Π = 'ΗΜ' Η Π = 'HM' Η Π = 'ημ' ΤΟΤΕ ΑΠΟΤ <-- ΗΜ(Χ) ΑΛΛΙΩΣ_ΑΝ Π = 'ΣΥΝ' ΤΟΤΕ ΑΠΟΤ <-- ΣΥΝ(Χ) ΑΛΛΙΩΣ_ΑΝ Π = 'ΕΦ' ΤΟΤΕ ΑΠΟΤ <-- ΕΦ(Χ) ΑΛΛΙΩΣ_ΑΝ Π = 'ΛΟΓ' ΤΟΤΕ ΑΠΟΤ <-- ΛΟΓ(Χ) ΑΛΛΙΩΣ_ΑΝ Π = 'Τ_Ρ' ΤΟΤΕ ΑΠΟΤ <-- Τ_Ρ(Χ) ΤΕΛΟΣ_ΑΝ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ CALC_1 ΑΛΛΙΩΣ ΓΡΑΨΕ 'Πληκτρολογείστε τον δεύτερο αριθμό:' ΔΙΑΒΑΣΕ Υ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ CALC ΑΝ Π = '/' ΤΟΤΕ ΑΠΟΤ <-- Χ / Υ ΑΛΛΙΩΣ_ΑΝ Π = '*' ΤΟΤΕ ΑΠΟΤ <-- Χ * Υ ΑΛΛΙΩΣ_ΑΝ Π = '-' ΤΟΤΕ ΑΠΟΤ <-- Χ - Υ ΑΛΛΙΩΣ_ΑΝ Π = '+' ΤΟΤΕ ΑΠΟΤ <-- Χ + Υ ΑΛΛΙΩΣ_ΑΝ Π = '^' ΤΟΤΕ ΑΠΟΤ <-- Χ^Υ ΤΕΛΟΣ_ΑΝ ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΚΑΛΕΣΕ CALC_2 ΤΕΛΟΣ_ΑΝ ΓΡΑΨΕ 'Θέλετε να κάνετε άλλη πράξη; Ν = Ναι, Ο = Όχι' ΔΙΑΒΑΣΕ ΕΡΩΤ ΜΕΧΡΙΣ_ΟΤΟΥ ΕΡΩΤ = 'Ο' Η ΕΡΩΤ = 'ο' Η ΕΡΩΤ = 'O' Η ΕΡΩΤ = 'o' ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ calculator !---------------------------------------------------------------------------------------------- ΔΙΑΔΙΚΑΣΙΑ CALC ΑΡΧΗ ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '| c a l c u l a t o r |' ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '|' ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 7 * * 8 * * 9 * * / * *ΗΜ * |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 4 * * 5 * * 6 * * * * *ΣΥΝ* |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 1 * * 2 * * 3 * * - * *ΕΦ * |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 0 * *+/-* * , * * + * *ΛΟΓ* |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** |' ΓΡΑΨΕ '| * = * * ^ * *Τ_Ρ* |' ΓΡΑΨΕ '| ***** ***** ***** |' ΓΡΑΨΕ '|______________________________________|' ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ !---------------------------------------------------------------------------------------------- ΔΙΑΔΙΚΑΣΙΑ CALC_1 ΑΡΧΗ ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '| c a l c u l a t o r |' ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '|', Π, '(', Χ, ')', '=', ΑΠΟΤ ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 7 * * 8 * * 9 * * / * *ΗΜ * |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 4 * * 5 * * 6 * * * * *ΣΥΝ* |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 1 * * 2 * * 3 * * - * *ΕΦ * |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 0 * *+/-* * , * * + * *ΛΟΓ* |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** |' ΓΡΑΨΕ '| * = * * ^ * *Τ_Ρ* |' ΓΡΑΨΕ '| ***** ***** ***** |' ΓΡΑΨΕ '|______________________________________|' ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ !---------------------------------------------------------------------------------------------- ΔΙΑΔΙΚΑΣΙΑ CALC_2 ΑΡΧΗ ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '| c a l c u l a t o r |' ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '|', Χ, Π, Υ, '=', ΑΠΟΤ ΓΡΑΨΕ '|--------------------------------------|' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 7 * * 8 * * 9 * * / * *ΗΜ * |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 4 * * 5 * * 6 * * * * *ΣΥΝ* |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 1 * * 2 * * 3 * * - * *ΕΦ * |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| * 0 * *+/-* * , * * + * *ΛΟΓ* |' ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |' ΓΡΑΨΕ '| ***** ***** ***** |' ΓΡΑΨΕ '| * = * * ^ * *Τ_Ρ* |' ΓΡΑΨΕ '| ***** ***** ***** |' ΓΡΑΨΕ '|______________________________________|' ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ !----------------------------------------------------------------------------------------------