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