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