Θέμα 4ο - Απολυτήριες εξετάσεις ενιαίου λυκείου 2002

Μια εταιρεία αποθηκεύει είκοσι (20) προϊόντα σε δέκα (10)
αποθήκες. Να γράψετε πρόγραμμα στη γλώσσα προγραμμα-
τισμού "ΓΛΩΣΣΑ", το οποίο:
α. περιέχει τμήμα δήλωσης των μεταβλητών του προγράμματος
                                                      Μονάδες 3
β. εισάγει σε μονοδιάστατο πίνακα τα ονόματα των είκοσι
    προϊόντων
                                                      Μονάδες 3
γ. εισάγει σε πίνακα δύο διαστάσεων Π[20, 10] την πληροφορία
    που αφορά στην παρουσία ενός προϊόντος σε μια αποθήκη
    (καταχωρούμε την τιμή 1 στην περίπτωση που υπάρχει το
     προϊόν στην αποθήκη και την τιμή 0, αν το προϊόν δεν
     υπάρχει στην αποθήκη).
                                                       Μονάδες 4
δ. υπολογίζει σε πόσες αποθήκες βρίσκεται το κάθε προϊόν
                                                       Μονάδες 6
ε. τυπώνει το όνομα κάθε προϊόντος και το πλήθος των αποθηκών
    στις οποίες υπάρχει το προϊόν.
                                                       Μονάδες 4

Λύση

     ΠΡΟΓΡΑΜΜΑ Θ4_Εν2002
     ΜΕΤΑΒΛΗΤΕΣ
          ΑΚΕΡΑΙΕΣ: μ, κ, Π[20, 10], Απ[20], φ
          ΧΑΡΑΚΤΗΡΕΣ: Πρ[20]
     ΑΡΧΗ
          ΓΙΑ μ ΑΠΟ 1 ΜΕΧΡΙ 20
               ΔΙΑΒΑΣΕ Πρ[μ]
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          ΓΙΑ μ ΑΠΟ 1 ΜΕΧΡΙ 20
               ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 10
                    ΔΙΑΒΑΣΕ Π[μ, κ]
               ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
           ΓΙΑ μ ΑΠΟ 1 ΜΕΧΡΙ 20
               φ <-- 0
               ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 10
                    ΑΝ  Π[μ, κ] = 1 ΤΟΤΕ
                         φ <-- φ+1
                    ΤΕΛΟΣ_ΑΝ
               ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
               Απ[μ] <-- φ
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          ΓΙΑ μ ΑΠΟ 1 ΜΕΧΡΙ 20
               ΓΡΑΨΕ Πρ[μ], Απ[μ]
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ        
    ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ