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