!=============================================================
! ΘΕΜΑ 4ο (Γ ΤΑΞΗΣ ΕΝΙΑΙΟΥ ΛΥΚΕΙΟΥ 2002)
! Μια εταιρεία αποθηκεύει είκοσι (20) προϊόντα σε δέκα (10)
! αποθήκες. Να γράψετε πρόγραμμα στη γλώσσα προγραμματισμού
! "ΓΛΩΣΣΑ", το οποίο:
! α. περιέχει τμήμα δήλωσης των μεταβλητών του προγράμματος
! (Μονάδες 3)
! β. εισάγει σε μονοδιάστατο πίνακα τα ονόματα των είκοσι
! προϊόντων (Μονάδες 3)
! γ. εισάγει σε πίνακα δύο διαστάσεων Π[20,10] την πληροφορία
! που αφορά στην παρουσία ενός προϊόντος σε μια αποθήκη
! (καταχωρούμε την τιμή 1 στην περίπτωση που υπάρχει το προϊόν
! στην αποθήκη και την τιμή 0, αν το προϊόν δεν υπάρχει στην
! αποθήκη). (Μονάδες 4)
! δ. υπολογίζει σε πόσες αποθήκες βρίσκεται το κάθε προϊόν
! (Μονάδες 6)
! ε. τυπώνει το όνομα κάθε προϊόντος και το πλήθος των
! αποθηκών στις οποίες υπάρχει το προϊόν. (Μονάδες 4)
!=============================================================
! (panos giannakopoulos)
!=============================================================
ΠΡΟΓΡΑΜΜΑ Διαχείριση_Αποθήκης_ΕΚΔ_01
! Τμήμα δήλωσης των μεταβλητών του προγράμματος.
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : i, j, Π[20,10], Σύνολο[20]
ΧΑΡΑΚΤΗΡΕΣ: Ονομα_Προιόντος[20]
ΑΡΧΗ
! εισαγωγή στον μονοδιάστατο πίνακα Ονομα_Προιόντος τα
! ονόματα των είκοσι προϊόντων.
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ 'Δώσε το όνομα του ', i, 'ου προϊόντος από τα 20: '
ΔΙΑΒΑΣΕ Ονομα_Προιόντος[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Εισαγωγή σε πίνακα δύο διαστάσεων Π[20,10] της πληροφορίας
! που αφορά στην παρουσία ενός προϊόντος σε μια αποθήκη.
! Καταχωρούμε την τιμή 1 στην περίπτωση που υπάρχει το προϊόν
! στην αποθήκη και την τιμή 0, αν το προϊόν δεν υπάρχει στην
! αποθήκη).
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ 'Στην αποθήκη ', j, ' υπάρχει το ', Ονομα_Προιόντος[i],'? (1=υπάρχει, 0=δεν υπάρχει):'
ΔΙΑΒΑΣΕ Π[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Υπολογισμός σε πόσες αποθήκες βρίσκεται το κάθε προϊόν.
! Για να γίνει αυτό βρίσκουμε το σύνολο των εμφανίσεων
! του αριθμού 1 σε κάθε γραμμή.
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
Σύνολο[i] <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10
Σύνολο[i] <-- Σύνολο[i] + Π[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Εμφάνιση του ονόματος κάθε προϊόντος και του πλήθους των
! αποθηκών στις οποίες υπάρχει το προϊόν.
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ 'Το προϊόν: ', Ονομα_Προιόντος[i], ', υπάρχει σε Αποθήκες: ', Σύνολο[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Διαχείριση_Αποθήκης_ΕΚΔ_01