ΠΡΟΓΡΑΜΜΑ ΔΗΜΙΟΥΡΓΙΑ_ΛΟΓΑΡΙΑΣΜΟΥ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Κωδικος, Ονομα, Επαναληπτικός_Κωδικος, α
ΠΡΑΓΜΑΤΙΚΕΣ:Ημερομηνια, Μηνας, Ετος, Ηλικία
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Γραψε τον αριθμο από την ημερομηνία γέννησης 1 εως 31'
ΔΙΑΒΑΣΕ Ημερομηνια
ΜΕΧΡΙΣ_ΟΤΟΥ Ημερομηνια>0 ΚΑΙ Ημερομηνια<32
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Γραψε τον αριθμο από τον μήνα γέννησης 1 εως 12'
ΔΙΑΒΑΣΕ Μηνας
ΜΕΧΡΙΣ_ΟΤΟΥ Μηνας>0 ΚΑΙ Μηνας<13
ΑΝ Μηνας=1 ΤΟΤΕ
α <-- 'Ιανουαρίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=2 ΤΟΤΕ
α <-- 'Φεβρουαρίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=3 ΤΟΤΕ
α <-- 'Μαρτίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=4 ΤΟΤΕ
α <-- 'Απριλίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=5 ΤΟΤΕ
α <-- 'Μάϊου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=6 ΤΟΤΕ
α <-- 'Ιουνίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=7 ΤΟΤΕ
α <-- 'Ιουλίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=8 ΤΟΤΕ
α <-- 'Αυγουστού'
ΑΛΛΙΩΣ_ΑΝ Μηνας=9 ΤΟΤΕ
α <-- 'Σεπτεμβρίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=10 ΤΟΤΕ
α <-- 'Οκτοβρίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=11 ΤΟΤΕ
α <-- 'Νοεμβρίου'
ΑΛΛΙΩΣ_ΑΝ Μηνας=12 ΤΟΤΕ
α <-- 'Δεκεμβρίου'
ΤΕΛΟΣ_ΑΝ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Γραψε τον αριθμο του έτους γέννησης από το 1900 εως 2010'
ΔΙΑΒΑΣΕ Ετος
ΜΕΧΡΙΣ_ΟΤΟΥ Ετος>1899 ΚΑΙ Ετος<2011
Ηλικία <-- 2010-Ετος
ΓΡΑΨΕ 'Γράψε το όνομα μέλους'
ΔΙΑΒΑΣΕ Ονομα
ΓΡΑΨΕ 'Γράψε τον κωδικό πρόσβασης'
ΔΙΑΒΑΣΕ Κωδικος
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ξανάγραψε τον ίδιο κωδικό πρόσβασης'
ΔΙΑΒΑΣΕ Επαναληπτικος_Κωδικος
ΑΝ Επαναληπτικος_Κωδικος=Κωδικος ΤΟΤΕ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Έγραψες λάθος κωδικό πρόσβασης'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Επαναληπτικος_Κωδικος=Κωδικος
ΓΡΑΨΕ 'Η ημερομηνια γέννησης είναι ', Ημερομηνια
ΓΡΑΨΕ 'Ο μήνας γέννησης είναι ', α
ΓΡΑΨΕ 'Το έτος γέννησης είναι ', Ετος
ΓΡΑΨΕ 'Η Ηλικία είναι ', Ηλικία
ΓΡΑΨΕ 'Το όνομα μέλους είναι ', Ονομα
ΓΡΑΨΕ 'Ο κωδικός πρόσβασης είναι ', Κωδικος
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ