! =============================================================================================== ! ΗΜΕΡΗΣΙΟ - ΜΑΙΟΣ 2007 - ΘΕΜΑ 4 ! =============================================================================================== ! Μια δισκογραφική εταιρεία καταγράφει στοιχεία για ένα έτος για κάθε ένα από τα 20 CDs που ! κυκλοφόρησε. Τα στοιχεία αυτά είναι ο τίτλος του CD, ο τύπος της μουσικής που περιέχει και ! οι μηνιαίες του πωλήσεις (ποσά σε ευρώ) στη διάρκεια του έτους. ! Οι τύποι μουσικής είναι δύο: «ορχηστρική» και «φωνητική». ! Να αναπτυχθεί αλγόριθμος ο οποίος : ! Για κάθε ένα από τα 20 CDs, να διαβάζει τον τίτλο, τον τύπο της μουσικής και τις πωλήσεις του ! για κάθε μήνα, ελέγχοντας την έγκυρη καταχώριση του τύπου της μουσικής. ! Να εμφανίζει τον τίτλο ή τους τίτλους των CDs με τις περισσότερες πωλήσεις τον 3° μήνα του έτους. ! Να εμφανίζει τους τίτλους των ορχηστρικών CDs με ετήσιο σύνολο πωλήσεων τουλάχιστον 5000 ευρώ. ! Να εμφανίζει πόσα από τα CDs είχαν σύνολο πωλήσεων στο δεύτερο εξάμηνο μεγαλύτερο απ ό,τι στο ! πρώτο. ! =============================================================================================== ! ΠΡΟΓΡΑΜΜΑ ΗΜ_2007_05_4 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ : i , j , n ΠΡΑΓΜΑΤΙΚΕΣ: πωλ[20,12] , max , s , s1 , s2 ΧΑΡΑΚΤΗΡΕΣ : t[20] , m[20] ΑΡΧΗ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20 ΓΡΑΨΕ 'Δώσε τον τίτλο του CD No :', i ΔΙΑΒΑΣΕ t[i] ΓΡΑΨΕ 'Δώσε τον τύπο της μουσικής που περιέχει.' ΔΙΑΒΑΣΕ m[i] ΟΣΟ m[i] <> 'ορχηστρική' ΚΑΙ m[i] <> 'φωνητική' ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ 'Λάθος. Ξαναδώσε' ΔΙΑΒΑΣΕ m[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12 ΓΡΑΨΕ 'Τί πωλήσεις έκανε το CD κατά το μήνα', j ,';' ΔΙΑΒΑΣΕ πωλ[i,j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ max <-- 0 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20 ΑΝ πωλ[i,3] > max ΤΟΤΕ max <-- πωλ[i,3] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Τον 3ο μήνα του έτους έκαναν μεγαλύτερες πωλήσεις τα :' ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20 ΑΝ πωλ[i,3] = max ΤΟΤΕ ΓΡΑΨΕ t[i] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Τα ορχηστρικά CD με ετήσιες πωλήσεις τουλάχιστον 5.000 ευρώ είναι τα :' ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20 s <-- 0 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12 s <-- s + πωλ[i,j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ s >= 5000 ΤΟΤΕ ΓΡΑΨΕ t[i] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ n <-- 0 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20 s1 <-- 0 s2 <-- 0 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6 s1 <-- s1 + πωλ[i,j] s2 <-- s2 + πωλ[i,j+6] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ s2 > s1 ΤΟΤΕ n <-- n + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ n , 'CDs έκαναν μαγαλύτερες πωλήσεις το δεύτερο εξάμηνο σε σχέση με το πρώτο.' ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ