ΠΡΟΓΡΑΜΜΑ ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: β,γ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Καλωσήρθατε στον mini calculator του lazy programmer[Μάκης].'
ΓΡΑΨΕ 'Για να μην πολυλογούμε τι πράξη θέλετε να κάνετε;'
ΓΡΑΨΕ '[1] Πρόσθεση,[2] Αφαίρεσή,[3] Πολλαπλασιασμό,[4] Διαίρεση,[5] Ρίζα:'
ΓΡΑΨΕ 'Λοιπόν...'
ΔΙΑΒΑΣΕ Ζ
ΑΝ Ζ=1 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσε τον πρώτο αριθμό:'
ΔΙΑΒΑΣΕ β
ΓΡΑΨΕ 'Δώσε και τον άλλο αριθμό:'
ΔΙΑΒΑΣΕ γ
δ1 <-- (β+γ)
ΓΡΑΨΕ ' Λοιπόν ' ,β, ' + ' ,γ, ' = ' ,δ1, '.'
ΤΕΛΟΣ_ΑΝ
αν Ζ=2 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσε τον Αφαιρετέο:'
ΔΙΑΒΑΣΕ β
ΓΡΑΨΕ 'Δώσε και τον Αφαιρέτη:'
ΔΙΑΒΑΣΕ γ
δ1 <-- (β-γ)
ΓΡΑΨΕ 'Λοιπόν',β,'-',γ,'=',δ1,'.'
τέλος_αν
αν Ζ=3 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσε τον Πολ/σταίο:'
ΔΙΑΒΑΣΕ β
ΓΡΑΨΕ 'Δώσε και τον Πολ/στη:'
ΔΙΑΒΑΣΕ γ
δ1 <-- (β*γ)
ΓΡΑΨΕ 'Λοιπόν',β,'*',γ,'=',δ1,'.'
τέλος_αν
αν Ζ=4 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσε τον Διαιρετέο:'
ΔΙΑΒΑΣΕ β
ΓΡΑΨΕ 'Δώσε και τον Διαιρέτη:'
ΔΙΑΒΑΣΕ γ
δ1 <-- (β/γ)
ΓΡΑΨΕ 'Λοιπόν',β,':',γ,'=',δ1,'.'
τέλος_αν
αν Ζ=5 τότε
ΓΡΑΨΕ 'Δώσε τον αριθμό:'
ΔΙΑΒΑΣΕ β
ΤΕΛΟΣ_ΑΝ
αν β<=0 τότε
ΓΡΑΨΕ 'Ο αριθμός πρεπει να είναι >0'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Η ρίζα του',β,' είναι το',Τ_Ρ(β)
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Αν θέλετε να κάνετε και άλλη πράξη πατείστε το 1 αλλιώς το 2 για έξοδο:'
ΔΙΑΒΑΣΕ β
ΜΕΧΡΙΣ_ΟΤΟΥ β=2
ΓΡΑΨΕ 'ΕΥΧΑΡΙΣΤΩ ΠΟΥ ΜΕ ΔΙΑΛΕΞΑΤΕ!!!'
ΚΑΛΕΣΕ ΚΑΘΥΣΤΕΡΗΣΗ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΚΑΘΥΣΤΕΡΗΣΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 100
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΛΕΙΣΕ_ΠΑΡΑΘΥΡΟ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ