ΠΡΟΓΡΑΜΜΑ Θέμα_Γ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ΑΕ, ΑΜ, ΑΗ, Μ, Ι ΑΡΧΗ ΓΡΑΨΕ 'Δώσε το έτος, το μήνα και τη μέρα μιας ημερομηνίας' ΔΙΑΒΑΣΕ ΑΕ, ΑΜ, ΑΗ ΓΡΑΨΕ 'Δώσε αριθμό ημερών μετά την ημερομηνία' ΔΙΑΒΑΣΕ Μ ΓΡΑΨΕ ΑΕ, ΑΜ, ΑΗ ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Μ ΚΑΛΕΣΕ Ημερομηνία_επόμενης(ΑΕ, ΑΜ, ΑΗ) ΓΡΑΨΕ ΑΕ, ΑΜ, ΑΗ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΔΙΑΔΙΚΑΣΙΑ Ημερομηνία_επόμενης(Ε1, Μ1, Η1) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Ε1, Μ1, Η1 ΑΡΧΗ ΑΝ Μ1 = 12 ΚΑΙ Η1 = 31 ΤΟΤΕ Ε1 <- Ε1 + 1 Μ1 <- 1 Η1 <- 1 ΑΛΛΙΩΣ_ΑΝ Η1 = Ημέρες_μήνα(Ε1, Μ1) ΤΟΤΕ Μ1 <- Μ1 + 1 Η1 <- 1 ΑΛΛΙΩΣ Η1 <- Η1 + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ ΣΥΝΑΡΤΗΣΗ Ημέρες_μήνα(Ε2, Μ2): ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Ε2, Μ2, Π ΑΡΧΗ ΑΝ Μ2 = 2 ΤΟΤΕ ΑΝ (Ε2 mod 4 = 0 ΚΑΙ Ε2 mod 100 <> 0) Η (Ε2 mod 400 = 0 ΚΑΙ Ε2 mod 4000 <> 0) ΤΟΤΕ Π <- 29 ΑΛΛΙΩΣ Π <- 28 ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ_ΑΝ Μ2 = 4 Η Μ2 = 6 Η Μ2 = 9 Η Μ2 = 11 ΤΟΤΕ Π <- 30 ΑΛΛΙΩΣ Π <- 31 ΤΕΛΟΣ_ΑΝ Ημέρες_μήνα <- Π ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ