Η εικοστή δεύτερη επαναληπτική άσκηση για το μάθημα της Πληροφορικής
(πρώην ΑΕΠΠ) αποτελεί την τελευταία άσκηση στην κατηγορία των δισδιάστατων πινάκων.
22η Επαναληπτική Άσκηση
Τίτλος: Απογραφή Πελεκάνων
Κατηγορία: Δισδιάστατοι Πίνακες
Η 3η απογραφή πελεκάνων της ΝΑ Ευρώπης διεξήχθη στις 12 Μαΐου 2018 με μια συγχρονισμένη μέτρηση σε επτά χώρες της ΝΑ Ευρώπης. Η διεθνής αυτή απογραφή περιελάμβανε τα δύο είδη πελεκάνων, τον παγκοσμίως απειλούμενο αργυροπελεκάνο και τον ροδοπελεκάνο. Πρόκειται για μια πρωτοβουλία της Εταιρείας Προστασίας Πρεσπών (ΕΠΠ) και υλοποιήθηκε χάρη στη συνεργασία διαφόρων οργανώσεων και εθελοντών από την Αλβανία, τη Βουλγαρία, την Ελλάδα, το Μαυροβούνιο, τη Ρουμανία, την Τουρκία και την Ουκρανία. Συνολικά, 133 άτομα, προσωπικό από τις συνεργαζόμενες οργανώσεις μαζί με εθελοντές, κατέγραψαν 5.814 αργυροπελεκάνους και 26.936 ροδοπελεκάνους.
Να γραφεί πρόγραμμα το οποίο:
α) Θα διαβάζει τα ονόματα των επτά χωρών που πήραν μέρος στην καταμέτρηση των πελεκάνων,
β) Για κάθε χώρα, θα διαβάζει τον αριθμό αργυροπελεκάνων και τον αριθμό των ροδοπελεκάνων που καταγράφηκαν τόσο το 2018 όσο και το 2017 και θα τα αποθηκεύει σε δισδιάστατο πίνακα ως εξής: στην πρώτη στήλη θα καταγράφεται ο αριθμός των αργυροπελεκάνων του 2017, στη δεύτερη στήλη ο αριθμός των αργυροπελεκάνων του 2018, στην τρίτη στήλη ο αριθμός των ροδοπελεκάνων του 2017 και στην τέταρτη στήλη ο αριθμός των ροδοπελεκάνων του 2018,
γ) Θα εμφανίζει το συνολικό αριθμό αργυροπελεκάνων και το συνολικό αριθμό ροδοπελεκάνων που καταγράφηκαν το έτος 2018,
δ) Θα εμφανίζει αν υπήρχε αύξηση η μείωση του αριθμού των αργυροπελεκάνων μεταξύ των ετών 2017 και 2018 και
ε) Θα εμφανίζει το ποσοστό των αργυροπελεκάνων που καταγράφηκαν στην Ελλάδα το 2018.
Λύση 22ης επαναληπτικής άσκησης
ΠΡΟΓΡΑΜΜΑ Απογραφή_Πελεκάνων
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι, Ξ, ΠΕΛΕΚΑΝΟΙ[8, 4], ΘΕΣΗ
ΑΚΕΡΑΙΕΣ: ΑΡΓΥΡ_2018, ΡΟΔΟΠ_2018, ΑΡΓΥΡ_2017
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΟΣ
ΧΑΡΑΚΤΗΡΕΣ: ΧΩΡΑ[7]
ΛΟΓΙΚΕΣ: ΒΡΕΘΗΚΕ
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 7
ΓΡΑΨΕ 'Δώσε το όνομα της ', Ι, 'ης χώρας: '
ΔΙΑΒΑΣΕ ΧΩΡΑ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 7
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'Χώρα : ', ΧΩΡΑ[Ι]
ΓΡΑΨΕ '----------------'
ΓΡΑΨΕ 'Αργυροπελεκάνοι 2017: '
ΔΙΑΒΑΣΕ ΠΕΛΕΚΑΝΟΙ[Ι, 1]
ΓΡΑΨΕ 'Αργυροπελεκάνοι 2018: '
ΔΙΑΒΑΣΕ ΠΕΛΕΚΑΝΟΙ[Ι, 2]
ΓΡΑΨΕ 'Ροδοπελεκάνοι 2017: '
ΔΙΑΒΑΣΕ ΠΕΛΕΚΑΝΟΙ[Ι, 3]
ΓΡΑΨΕ 'Ροδοπελεκάνοι 2018: '
ΔΙΑΒΑΣΕ ΠΕΛΕΚΑΝΟΙ[Ι, 4]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΓΥΡ_2018 <- 0
ΡΟΔΟΠ_2018 <- 0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 7
ΑΡΓΥΡ_2018 <- ΑΡΓΥΡ_2018 + ΠΕΛΕΚΑΝΟΙ[Ι, 2]
ΡΟΔΟΠ_2018 <- ΡΟΔΟΠ_2018 + ΠΕΛΕΚΑΝΟΙ[Ι, 4]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Αργυροπελεκάνοι 2018: ', ΑΡΓΥΡ_2018
ΓΡΑΨΕ 'Ροδοπελεκάνοι 2018: ', ΡΟΔΟΠ_2018
ΑΡΓΥΡ_2017 <- 0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 7
ΑΡΓΥΡ_2017 <- ΑΡΓΥΡ_2017 + ΠΕΛΕΚΑΝΟΙ[Ι, 1]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΑΡΓΥΡ_2018 > ΑΡΓΥΡ_2017 ΤΟΤΕ
ΓΡΑΨΕ 'Αύξηση στον αριθμό των αργυροπελεκάνων.'
ΑΛΛΙΩΣ_ΑΝ ΑΡΓΥΡ_2018 < ΑΡΓΥΡ_2017 ΤΟΤΕ
ΓΡΑΨΕ 'Μείωση στον αριθμό των αργυροπελεκάνων.'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Σταθερός ο αριθμός των αργυροπελεκάνων.'
ΤΕΛΟΣ_ΑΝ
ΘΕΣΗ <- 0
ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ
Ι <- 1
ΟΣΟ Ι <= 8 ΚΑΙ ΟΧΙ ΒΡΕΘΗΚΕ ΕΠΑΝΑΛΑΒΕ
ΑΝ ΧΩΡΑ[Ι] = 'Ελλάδα' ΤΟΤΕ
ΘΕΣΗ <- Ι
ΒΡΕΘΗΚΕ <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
Ι <- Ι + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΟΣ <- ΠΕΛΕΚΑΝΟΙ[ΘΕΣΗ, 2]/ ΑΡΓΥΡ_2018* 100
ΓΡΑΨΕ 'Ποσοστό : ', ΠΟΣ, '%.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Απογραφή_Πελεκάνων
Όλες τις επαναληπτικές ασκήσεις για το μάθημα της Πληροφορικής (πρώην ΑΕΠΠ) μπορείτε να τις βρείτε στο παρακάτω άρθρο:
Σχόλια
Δημοσίευση σχολίου