29215
|
e-ΜΑΘΗΜΑΤΑ |
|
Λύσεις ασκήσεων Τράπεζας Θεμάτων |
29215
ΠΡΟΓΡΑΜΜΑ δισκογραφική_ΤΘ_29215
!ΘΕΜΑ 4
! Μια δισκογραφική εταιρεία καταγράφει στοιχεία για ένα έτος για καθένα από τα
!100 CD που κυκλοφόρησε. Τα στοιχεία που κρατά για κάθε CD είναι ο τίτλος του,
!ο τύπος της μουσικής - «ορχηστική» ή «φωνητική»- και οι μηνιαίες πωλήσεις
!του CD σε ευρώ (€). Να γραφτεί πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:
!4.1 Να περιλαμβάνει το τμήμα δηλώσεων.
!Μονάδες 2
!4.2 Να διαβάζει το τίτλο κάθε CD , τον τύπο της μουσικής και τα ποσά των πωλήσεων
!του CD για κάθε μήνα του έτους. Ο τίτλος και ο τύπος μουσικής του κάθε CD να
!τον καταχωρεί στο πίνακα CD[100,2] έτσι, ώστε στη 1η στήλη να καταχωρείται
!ο τίτλος και στην 2η στήλη να καταχωρείται ο τύπος του CD, ενώ τα ποσά πωλήσεων
!αντίστοιχα να καταχωρούνται στο πίνακα ΠΩΛΗΣΕΙΣ[100,12].
!Να γίνει έλεγχος εγκυρότητας για τον τύπο του CD.
!Μονάδες 8
!4.3 Να γράψετε την ΔΙΑΔΙΚΑΣΙΑ MAX_ΠΩΛ_ΜΗΝΑ(ΠΩΛΗΣΕΙΣ, μήνα, θέση) που υπολογίζει
!τις περισσότερες πωλήσεις ενός μήνα (οι πωλήσεις βρίσκονται στο πίνακα ΠΩΛΗΣΕΙΣ[100,12])
!και να επιστρέφει στη παράμετρο «θέση» την γραμμή που βρίσκεται το CD με τις περισσότερες
! πωλήσεις για το μήνα που δίνουμε στη παράμετρο «μήνα».
!Μονάδες 10
!4.4 Να υπολογίζει και να τυπώνει για κάθε μήνα του έτους το CD με τις περισσότερες πωλήσεις ,
! τυπώνοντας τον τίτλο, τον τύπο και τις πωλήσεις του, καλώντας
!την διαδικασία MAX_ΠΩΛ_ΜΗΝΑ(ΠΩΛΗΣΕΙΣ, μήνα, θέση).
!Μονάδες 5
! 4.1 Δήλωση μεταβλητών
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: CD[100, 2]
ΑΚΕΡΑΙΕΣ: ΠΩΛΗΣΕΙΣ[100, 12]
ΑΚΕΡΑΙΕΣ: i, j, συνολικο_κερδος, μεγιστο_κερδος, θεση
ΑΡΧΗ
! 4.2 Εισαγωγή δεδομένων
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΡΑΨΕ 'Δώσε τον τίτλο του CD ', i, ':'
ΔΙΑΒΑΣΕ CD[i, 1]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε τον τύπο μουσικής (ορχηστική ή φωνητική) για το CD ', i, ':'
ΔΙΑΒΑΣΕ CD[i, 2]
ΜΕΧΡΙΣ_ΟΤΟΥ CD[i, 2] = 'ορχηστική' Η CD[i, 2] = 'φωνητική'
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
ΓΡΑΨΕ 'Δώσε τις πωλήσεις για τον μήνα ', j, ' του CD ', i, ':'
ΔΙΑΒΑΣΕ ΠΩΛΗΣΕΙΣ[i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.4 Υπολογισμός και εμφάνιση CD με τις περισσότερες πωλήσεις ανά μήνα
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
ΚΑΛΕΣΕ MAX_ΠΩΛ_ΜΗΝΑ(ΠΩΛΗΣΕΙΣ, j, θεση)
ΓΡΑΨΕ 'Μήνας ', j, ': Τίτλος CD: ', CD[θεση, 1], ', Τύπος: ', CD[θεση, 2], ', Πωλήσεις: ', ΠΩΛΗΣΕΙΣ[θεση, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
! Διαδικασία εύρεσης μέγιστων πωλήσεων μήνα
ΔΙΑΔΙΚΑΣΙΑ MAX_ΠΩΛ_ΜΗΝΑ(ΠΩΛΗΣΕΙΣ, μήνας, θέση)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΠΩΛΗΣΕΙΣ[100, 12], μήνας, θέση, max_πωλησεις, i
ΑΡΧΗ
max_πωλησεις <- ΠΩΛΗΣΕΙΣ[1, μήνας]
θέση <- 1
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 100
ΑΝ ΠΩΛΗΣΕΙΣ[i, μήνας] > max_πωλησεις ΤΟΤΕ
max_πωλησεις <- ΠΩΛΗΣΕΙΣ[i, μήνας]
θέση <- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
