! ------------------------------------------------------------
! Στο πρόγραμμα εισάγεις τα τρέχοντα χρονολογικά
! στοιχεία και σου υπολογίζει σύμφωνα με την ημερομηνία
! γέννησης σου την ηλικία σου ακριβώς. Το πρόγραμμα
! υστερεί όταν για παράδειγμα σου βγάζει αρνητικούς μήνες
! ή ημέρες γι' αυτό ζητώ την βοήθεια σας για να γίνει καλύτερο.
! Σας ευχαριστώ proskoposethnoys@yahoo.gr
! ------------------------------------------------------------
ΠΡΟΓΡΑΜΜΑ Ypologismos_Hlikias
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:ETOS1,MINA1,IMERA1,ETOS2,MINA2,IMERA2,ETOS3,MINA3,IMERA3
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε το τρέχον ετός:'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ETOS1
ΜΕΧΡΙΣ_ΟΤΟΥ (ETOS1>0)
ΓΡΑΨΕ 'Δώσε το τρέχοντα μήνα(π.χ. 1-12):'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ MINA1
ΜΕΧΡΙΣ_ΟΤΟΥ (MINA1>=1) και (MINA1<=12)
ΓΡΑΨΕ 'Δώσε τηντρέχουσα ημέρα (π.χ. 1-31):'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ IMERA1
ΜΕΧΡΙΣ_ΟΤΟΥ IMERA1>=1 και IMERA1<=31
ΓΡΑΨΕ 'Δώσε την χρονολογία γέννησης σου:'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ETOS2
ΜΕΧΡΙΣ_ΟΤΟΥ (ETOS2>0)
ΓΡΑΨΕ'Δώσε το μήνα γεννήσεως σου (π.χ. 1-12):'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ MINA2
ΜΕΧΡΙΣ_ΟΤΟΥ MINA2>=1 και MINA2<=12
ΓΡΑΨΕ 'Δώσε την ημέρα γεννήσεως σου (π.χ. 1-31):'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ IMERA2
ΜΕΧΡΙΣ_ΟΤΟΥ IMERA2>=1 και IMERA2<=31
ETOS3 <-- ETOS1-ETOS2
MINA3 <-- MINA1-MINA2
ΑΝ MINA3<0 ΤΟΤΕ
MINA3 <-- MINA3*(-1)
ΤΕΛΟΣ_ΑΝ
IMERA3 <-- IMERA1-IMERA2
ΑΝ IMERA3<0 ΤΟΤΕ
IMERA3 <-- IMERA3*(-1)
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Είσαι',ETOS3,'χρονών',MINA3,'μηνών και',IMERA3,'ημερών.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ