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

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

ΠΡΟΓΡΑΜΜΑ Συλλογή_δίσκων_βινυλίου_ΤΘ_25950

!ΘΕΜΑ 4

!Ένας μαθητής έχει μια συλλογή από συλλεκτικούς δίσκους βινυλίου που κυκλοφόρησαν

!μεταξύ του 1950 και του 1985, συμπεριλαμβανομένων.

!Οι δίσκοι της συλλογής δεν ξεπερνούν τους 200.

!Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:

!4.1. Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων. Για κάθε δίσκο,

!να διαβάζει τον τίτλο του,

!το όνομα του καλλιτέχνη ή του συγκροτήματος και

!το έτος κυκλοφορίας του δίσκου, ελέγχοντας ότι το έτος κυκλοφορίας

!ανήκει στο διάστημα [1950, 1985].

!Στην περίπτωση που εισάγεται έτος εκτός των επιτρεπόμενων τιμών,

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

!μέχρι να δοθεί έγκυρη τιμή.

!Τα στοιχεία των δίσκων θα καταχωρίζονται στους πίνακες ΤΙΤΛΟΣ, ARTIST και ΕΤΟΣ, αντίστοιχα.

!Η εισαγωγή των δεδομένων ολοκληρώνεται όταν δοθεί ως τίτλος η λέξη ΤΕΛΟΣ.

!Να θεωρήσετε ότι θα καταχωρηθούν τα στοιχεία ενός τουλάχιστον δίσκου,

!αλλά όχι περισσότεροι από 200 δίσκους.

!Μονάδες 10

!4.2. Στη συνέχεια, να ζητάει από το χρήστη το όνομα ενός καλλιτέχνη/συγκροτήματος

!και να εμφανίζει τα στοιχεία των δίσκων αυτού του καλλιτέχνη/ συγκροτήματος

!που περιλαμβάνει η συλλογή, σε χωριστή γραμμή για κάθε δίσκο, ως εξής:

!Τίτλος δίσκου (έτος κυκλοφορίας).

!Για παράδειγμα:         Blackout (1981).

!Αν δεν περιλαμβάνει η συλλογή δίσκους αυτού του καλλιτέχνη/συγκροτήματος,

!το πρόγραμμα θα πρέπει να εμφανίζει το μήνυμα «Δε βρέθηκαν δίσκοι !».

!Μονάδες 9

!4.3. Να βρίσκει και να εμφανίζει το ποσοστό (%) των δίσκων της συλλογής

!που κυκλοφόρησαν πριν το 1960.

!Μονάδες 6





ΜΕΤΑΒΛΗΤΕΣ

  ΧΑΡΑΚΤΗΡΕΣ: ΤΙΤΛΟΣ[200], ARTIST[200], τίτλος, καλλιτέχνης

  ΑΚΕΡΑΙΕΣ: ΕΤΟΣ[200], έτος, πλήθος, i, πριν_το_1960

  ΠΡΑΓΜΑΤΙΚΕΣ: ποσοστό

ΑΡΧΗ

! Αρχικοποίηση μεταβλητών

  πλήθος <- 0

  πριν_το_1960 <- 0



! Εισαγωγή δεδομένων

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

    ΓΡΑΨΕ 'Δώσε τον τίτλο του δίσκου (ή ΤΕΛΟΣ για τερματισμό):'

    ΔΙΑΒΑΣΕ τίτλος

    ΑΝ τίτλος <> 'ΤΕΛΟΣ' ΤΟΤΕ

      πλήθος <- πλήθος + 1

      ΓΡΑΨΕ 'Δώσε το όνομα του καλλιτέχνη ή συγκροτήματος:'

      ΔΙΑΒΑΣΕ ARTIST[πλήθος] 



! Έλεγχος εγκυρότητας για το έτος κυκλοφορίας

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

        ΓΡΑΨΕ 'Δώσε το έτος κυκλοφορίας (1950-1985):'

        ΔΙΑΒΑΣΕ έτος

        ΑΝ έτος >= 1950 ΚΑΙ έτος <= 1985 ΤΟΤΕ

          ΕΤΟΣ[πλήθος] <- έτος

        ΑΛΛΙΩΣ

          ΓΡΑΨΕ 'Λάθος έτος! Παρακαλώ ξαναπροσπαθήστε.'

        ΤΕΛΟΣ_ΑΝ

      ΜΕΧΡΙΣ_ΟΤΟΥ έτος >= 1950 ΚΑΙ έτος <= 1985



! Καταχώριση δίσκου

      ΤΙΤΛΟΣ[πλήθος] <- τίτλος



! Έλεγχος για δίσκους πριν το 1960

      ΑΝ έτος < 1960 ΤΟΤΕ

        πριν_το_1960 <- πριν_το_1960 + 1

      ΤΕΛΟΣ_ΑΝ

    ΤΕΛΟΣ_ΑΝ

  ΜΕΧΡΙΣ_ΟΤΟΥ πλήθος >= 200 Η τίτλος = 'ΤΕΛΟΣ'







! 4.2 Αναζήτηση δίσκων συγκεκριμένου καλλιτέχνη

  ΓΡΑΨΕ 'Δώσε το όνομα του καλλιτέχνη/συγκροτήματος για αναζήτηση:'

  ΔΙΑΒΑΣΕ καλλιτέχνης



  i <- 1

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

    ΑΝ ARTIST[i] = καλλιτέχνης ΤΟΤΕ

      ΓΡΑΨΕ ΤΙΤΛΟΣ[i], ' (', ΕΤΟΣ[i], ')'

    ΤΕΛΟΣ_ΑΝ

    i <- i + 1

  ΜΕΧΡΙΣ_ΟΤΟΥ i > πλήθος



  ΑΝ i = 1 ΤΟΤΕ

    ΓΡΑΨΕ 'Δε βρέθηκαν δίσκοι!'

  ΤΕΛΟΣ_ΑΝ



! 4.3 Υπολογισμός ποσοστού δίσκων πριν το 1960

  ποσοστό <- (πριν_το_1960/ πλήθος)* 100

  ΓΡΑΨΕ 'Το ποσοστό των δίσκων πριν το 1960 είναι: ', ποσοστό, '%.'

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