ΠΡΟΓΡΑΜΜΑ ΤΖΙΝΙ_2
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΕΤΟΣ, ΜΗΝΑ ,ΜΕΡΑ,Ι, ΣΟΥΜΑ
ΑΡΧΗ
ΓΡΑΨΕ 'ΤΟ ΩΡΟΣΚΟΠΙΟ ΤΩΝ ΜΕΤΑΛΛΩΝ'
ΓΡΑΨΕ 'Βασισμένο στην ESPRESSO Πέμπτη 15 Μαϊου 2003, Σελ 20,21'
ΓΡΑΨΕ '----------------------------------------------------------'
ΓΡΑΨΕ 'ΠΡΩΤΑ ΘΑ ΥΠΟΛΟΓΙΣΩ ΤΟΝ ΠΡΟΣΩΠΙΚΟ ΣΟΥ ΑΡΙΘΜΟ'
ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΕΤΟΣ ΓΕΝΝΗΣΗΣ ΣΟΥ Π.Χ. 1901'
ΔΙΑΒΑΣΕ ΕΤΟΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΤOΝ ΜΗΝΑ ΓΕΝΝΗΣΗΣ ΣΟΥ Π.Χ. 12'
ΔΙΑΒΑΣΕ ΜΗΝΑ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΗΜΕΡΑ ΓΕΝΝΗΣΗΣ ΣΟΥ'
ΔΙΑΒΑΣΕ ΜΕΡΑ
ΓΡΑΨΕ 'ΕΛΠΙΖΩ ΝΑ ΤΑ ΕΓΡΑΨΕΣ ΣΩΣΤΑ! ',ΜΕΡΑ,'-',ΜΗΝΑ,'-',ΕΤΟΣ
Ι <-- ΣΟΥΜΑ+1
ΟΣΟ Ι<>ΣΟΥΜΑ ΕΠΑΝΑΛΑΒΕ
Ι <-- ΣΟΥΜΑ
ΣΟΥΜΑ <-- ΣΟΥΜΑ + ΕΤΟΣ MOD 10+ΜΗΝΑ MOD 10+ΜΕΡΑ MOD 10
ΕΤΟΣ <-- ΕΤΟΣ DIV 10
ΜΗΝΑ <-- ΜΗΝΑ DIV 10
ΜΕΡΑ <-- ΜΕΡΑ DIV 10
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΟΣΟ ΣΟΥΜΑ>9 ΕΠΑΝΑΛΑΒΕ
Ι <-- ΣΟΥΜΑ
ΣΟΥΜΑ <-- 0
ΟΣΟ Ι>0 ΕΠΑΝΑΛΑΒΕ
ΣΟΥΜΑ <-- ΣΟΥΜΑ+Ι MOD 10
Ι <-- Ι DIV 10
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΤΟ ΜΕΤΑΛΟ ΣΟΥ ΕΙΝΑΙ '
ΕΠΙΛΕΞΕ ΣΟΥΜΑ
ΠΕΡΙΠΤΩΣΗ 1
ΓΡΑΨΕ 'ΧΡΥΣΟΣ'
ΠΕΡΙΠΤΩΣΗ 2
ΓΡΑΨΕ 'ΑΣΗΜΙ'
ΠΕΡΙΠΤΩΣΗ 3
ΓΡΑΨΕ 'ΥΔΡΑΡΓΥΡΟΣ'
ΠΕΡΙΠΤΩΣΗ 4
ΓΡΑΨΕ 'ΧΑΛΚΟΣ'
ΠΕΡΙΠΤΩΣΗ 5
ΓΡΑΨΕ 'ΣΙΔΗΡΟΣ'
ΠΕΡΙΠΤΩΣΗ 6
ΓΡΑΨΕ 'ΚΑΣΣΙΤΕΡΟΣ'
ΠΕΡΙΠΤΩΣΗ 7
ΓΡΑΨΕ 'ΜΟΛΥΒΔΟΣ'
ΠΕΡΙΠΤΩΣΗ 8
ΓΡΑΨΕ 'ΝΙΚΕΛΙΟ'
ΠΕΡΙΠΤΩΣΗ 9
ΓΡΑΨΕ 'ΠΛΑΤΙΝΑ'
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΓΡΑΨΕ 'ΠΕΡΙΣΣΟΤΕΡΑ ΣΤΗΝ ΕΦΗΜΕΡΙΔΑ......'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ