2ο ΓΕΛ Γέρακα - ΠΛΗΡΟΦΟΡΙΚΗ - ΛΥΣΕΙΣ ΤΡΑΠΕΖΑΣ ΘΕΜΑΤΩΝ 30457

e-ΜΑΘΗΜΑΤΑ
ΠΛΗΡΟΦΟΡΙΚΗ
Λύσεις ασκήσεων Τράπεζας Θεμάτων
30457

ΠΡΟΓΡΑΜΜΑ δισκογραφική_ΤΘ_30457

!ΘΕΜΑ 4

!Μια δισκογραφική εταιρεία παραγωγής μουσικής έχει κυκλοφορήσει 20 διαφορετικά

!άλμπουμ. Να γραφεί πρόγραμμα σε ΓΛΩΣΣΑ, το οποίο:

!

!4.1. Να διαβάζει τον τίτλο κάθε άλμπουμ και να το καταχωρεί σε πίνακα Τ.

!Να διαβάζει τις μηνιαίες πωλήσεις του τελευταίου έτους κάθε άλμπουμ και

!να τις καταχωρεί σε πίνακα Α. Οι μηνιαίες πωλήσεις θα πρέπει να είναι αριθμός

!μεγαλύτερος ή ίσος του μηδενός. Στην περίπτωση εισαγωγής αρνητικής τιμής

!για τις μηνιαίες πωλήσεις, το πρόγραμμα πρέπει να ζητάει νέα τιμή μέχρι να δοθεί έγκυρη.

!Μονάδες 7

!

!4.2. Να υπολογίζει και να εμφανίζει τον τίτλο του άλμπουμ και τον μήνα

!που σημειώθηκε η μεγαλύτερη πώληση. Θεωρείστε ότι όλες οι μηνιαίες πωλήσεις

!είναι διαφορετικές μεταξύ τους.

!Μονάδες 9

!

!4.3.  Να διαβάζει τον τίτλο ενός άλμπουμ και να τον αναζητά στον πίνακα Τ.

!Εφόσον τον βρει, η αναζήτηση θα πρέπει να σταματά και το πρόγραμμα να υπολογίζει

!και να εμφανίζει τις ετήσιες πωλήσεις του άλμπουμ αυτού. Αν ο τίτλος δεν βρεθεί,

!το πρόγραμμα να εμφανίζει κατάλληλο μήνυμα.

!Μονάδες 9







ΜΕΤΑΒΛΗΤΕΣ

  ΧΑΡΑΚΤΗΡΕΣ: Τ[20], ζητουμενο_Τιτλο

  ΑΚΕΡΑΙΕΣ: Α[20, 12] 

  ΑΚΕΡΑΙΕΣ: i, j, μέγ, Θέση_Μήνα, Θέση_Αλμπουμ, ετήσιες

ΑΡΧΗ

! 4.1 Ανάγνωση τίτλων και πωλήσεων με έλεγχο

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20

    ΔΙΑΒΑΣΕ Τ[i] 

    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12

      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

        ΔΙΑΒΑΣΕ Α[i, j] 

      ΜΕΧΡΙΣ_ΟΤΟΥ Α[i, j] >= 0

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



! 4.2 Εύρεση μήνα μέγιστης πώλησης για κάθε άλμπουμ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20

    μέγ <- Α[i, 1] 

    Θέση_Μήνα <- 1

    ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 12

      ΑΝ Α[i, j] > μέγ ΤΟΤΕ

        μέγ <- Α[i, j] 

        Θέση_Μήνα <- j

      ΤΕΛΟΣ_ΑΝ

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ 'Αλμπουμ: ', Τ[i], ' - Μέγιστη πώληση τον μήνα: ', Θέση_Μήνα

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



! 4.3 Αναζήτηση τίτλου και υπολογισμός ετήσιων πωλήσεων

  ΔΙΑΒΑΣΕ ζητουμενο_Τιτλο

  Θέση_Αλμπουμ <- 0

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20

    ΑΝ Τ[i] = ζητουμενο_Τιτλο ΤΟΤΕ

      Θέση_Αλμπουμ <- i

    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



  ΑΝ Θέση_Αλμπουμ = 0 ΤΟΤΕ

    ΓΡΑΨΕ 'Ο τίτλος δεν βρέθηκε.'

  ΑΛΛΙΩΣ

    ετήσιες <- 0

    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12

      ετήσιες <- ετήσιες + Α[Θέση_Αλμπουμ, j] 

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ 'Το άλμπουμ ', Τ[Θέση_Αλμπουμ], ' είχε ετήσιες πωλήσεις: ', ετήσιες

  ΤΕΛΟΣ_ΑΝ



ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ