ΠΡΟΓΡΑΜΜΑ 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 * *+/-* * , * * + * *ΛΟΓ* |'
ΓΡΑΨΕ '| ***** ***** ***** ***** ***** |'
ΓΡΑΨΕ '| ***** ***** ***** |'
ΓΡΑΨΕ '| * = * * ^ * *Τ_Ρ* |'
ΓΡΑΨΕ '| ***** ***** ***** |'
ΓΡΑΨΕ '|______________________________________|'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------------------------------------------------