200 / 306
199
ΑΕΠΠ – Εκδόσεις ΜΠΑΧΑΡΑΚΗ
Α.
Να κατασκευάσετε κύριο πρόγραμμα το οποίο:
1.
να ζητάει το έτος παρακολούθησης, ελέγχοντας ότι πρόκειται για έτος του
21ου αιώνα (από 2000 μέχρι και 2099). Ο αλγόριθμος να δημιουργεί πίνακα
με τον αριθμό των ημερών για καθέναν από τους δώδεκα μήνες του έτους
που δόθηκε. Ο αριθμός των ημερών του μήνα θα υπολογίζεται από
υποπρόγραμμα το οποίο θα κατασκευάσετε για το σκοπό αυτό. Η λειτουργία
του υποπρογράμματος περιγράφεται στο ερώτημα Β. (Μονάδες 3)
2.
να ζητάει την ημερήσια παραγωγή (αριθμό αυγών) για κάθε μέρα του
έτους και να καταχωρίζει τις τιμές σε πίνακα δύο διαστάσεων, με μια γραμμή
για κάθε μήνα. (Μονάδες 3)
3.
να εμφανίζει τον τρίτο κατά σειρά από τους μήνες του έτους που έχουν ο
καθένας μέσο όρο ημερήσιας παραγωγής μέχρι και δέκα ποσοστιαίες
μονάδες πάνω ή κάτω από τον ετήσιο μέσο όρο. Αν δεν βρει τέτοιο μήνα, να
εμφανίζει κατάλληλο μήνυμα. (Μονάδες 8)
Β.
Να κατασκευάσετε υποπρόγραμμα το οποίο να δέχεται ως παραμέτρους
κάποιο έτος και τον αριθμό κάποιου μήνα (1 έως 12), και να επιστρέφει τον
αριθμό των ημερών του συγκεκριμένου μήνα. Όταν το έτος είναι δίσεκτο, ο
Φεβρουάριος έχει 29 ημέρες, διαφορετικά έχει 28. Δίσεκτα είναι τα έτη που
διαιρούνται με το 4 αλλά όχι με το 100, καθώς και εκείνα που διαιρούνται με
το 400. Για τους υπόλοιπους μήνες, πλην του Φεβρουαρίου, ισχύει το εξής:
μέχρι και τον Ιούλιο (7ος μήνας) οι μονοί μήνες έχουν 31 ημέρες και οι ζυγοί
30. Για τους μήνες μετά τον Ιούλιο, ισχύει το αντίστροφο. (Μονάδες 6)
Απάντηση:
ΠΡΟΓΡΑΜΜΑ
Θέμα_4
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:
i,j,ΕΤΟΣ,ΗΜΕΤ,ΕΤΣΥΝΠΑΡ,ΜΜΗΝΑ[12],ΗΜΕΤ,ΠΑΡ[12,31],
&
ΜΗΝΣΥΝ,ΠΛ,ΜΗΝΑΣ
ΠΡΑΓΜΑΤΙΚΕΣ:
ΜΗΝ_ΜΟ[12], ΔΙΑΦ[12],ΕΤΜΟ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ
ΕΤΟΣ
ΜΕΧΡΙΣ_ΟΤΟΥ
ΕΤΟΣ >= 2000 ΚΑΙ ΕΤΟΣ < 2999
ΗΜΕΤ
0
ΕΤΣΥΝΠΑΡ
0
ΓΙΑ
i
ΑΠΟ
1
ΜΕΧΡΙ
12
ΜΜΗΝΑ[i]
ΜΕΡΕΣ (ΕΤΟΣ, i )
ΗΜΕΤ
ΗΜΕΤ + ΜΜΗΝΑ [i]
ΓΙΑ
j
ΑΠΟ
1
ΜΕΧΡΙ
MΜΗΝΑ[i]
ΔΙΑΒΑΣΕ
ΠΑΡ[i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΗΝΣΥΝ
0
ΓΙΑ
j
ΑΠΟ
1
ΜΕΧΡΙ
MΜΗΝΑ[i]