! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΜΑΙΟΣ 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 έκαναν μαγαλύτερες πωλήσεις το δεύτερο εξάμηνο σε σχέση με το πρώτο.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ