Μία εταιρεία μεταφοράς δεμάτων διαθέτει δύο αποθήκες, Α και Β, στο
αεροδρόμιο. Κατά την παραλαβή δεμάτων, κάθε δέμα τοποθετείται στην
αποθήκη που έχει εκείνη τη στιγμή τον περισσότερο ελεύθερο χώρο. Αν ο
ελεύθερος χώρος της αποθήκης Α είναι ίσος με τον ελεύθερο χώρο της
αποθήκης Β, το δέμα τοποθετείται στην αποθήκη Α. Όταν όμως το δέμα δεν
χωρά σε καμία από τις δύο αποθήκες, προωθείται στις κεντρικές εγκαταστάσεις
της εταιρείας, που βρίσκονται εκτός αεροδρομίου.
Γ1. Να κατασκευάσετε πρόγραμμα που:
α. Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων. (μονάδες 2)
β. Να διαβάζει τα μεγέθη ελεύθερου χώρου των αποθηκών Α και Β.
(μονάδες 2)
γ. Να διαβάζει το μέγεθος κάθε εισερχόμενου δέματος και να εμφανίζει
το όνομα της αποθήκης (Α ή Β) στην οποία θα τοποθετηθεί αυτό ή να
εμφανίζει το μήνυμα «Προώθηση», όταν το δέμα δεν χωρά σε καμία
από τις αποθήκες Α ή Β. Η διαδικασία παραλαβής τερματίζεται, όταν
εισαχθεί ως μέγεθος δέματος η τιμή 0. (μονάδες 6)
δ. Στη συνέχεια, να καλεί υποπρόγραμμα, το οποίο να βρίσκει και να
εμφανίζει το όνομα της αποθήκης (Α ή Β) στην οποία τοποθετήθηκαν
τα περισσότερα δέματα, ή το μήνυμα «Ισάριθμα» σε περίπτωση που
στις δύο αποθήκες Α και Β τοποθετήθηκαν ισάριθμα δέματα, ή το
μήνυμα «Καμία αποθήκευση στο αεροδρόμιο», αν κανένα δέμα δεν
τοποθετήθηκε σε οποιαδήποτε από τις αποθήκες Α ή Β. (μονάδες 2)
Μονάδες 12
Γ2. Να κατασκευάσετε το υποπρόγραμμα που περιγράφεται στο ερώτημα Γ1.δ.
Μονάδες 8
ΠΡΟΓΡΑΜΜΑ ΑΕΡΟΔΡΟΜΙΟ
ΜΕΤΑΒΛΗΤΕΣ
ΑΡΧΗ
ΔΙΑΒΑΣΕ ΜΕΓΕΘΟΣΑ,ΜΕΓΕΘΟΣΒ
ΠΛ_Α<-0
ΠΛ_Β<-0
ΔΙΑΒΑΣΕ ΜΕΓΕΘΟΣ
ΟΣΟ ΜΕΓΕΘΟΣ<>0 ΕΠΑΝΑΛΑΒΕ
ΑΝ ΜΕΓΕΘΟΣΑ>=ΜΕΓΕΘΟΣΒ ΚΑΙ ΜΕΓΕΘΟΣΑ>=ΜΕΓΕΘΟΣ ΤΟΤΕ
ΠΛ_Α<-ΠΛ_Α+1
ΓΡΑΨΕ ‘ΑΠΟΘΗΚΗ Α’
ΑΛΛΙΩΣ_ΑΝ ΜΕΓΕΘΟΣΑ<ΜΕΓΕΘΟΣΒ ΚΑΙ ΜΕΓΕΘΟΣΒ>=ΜΕΓΕΘΟΣ ΤΟΤΕ
ΠΛ_Β<-ΠΛ_Β+1
ΓΡΑΨΕ ‘ΑΠΟΘΗΚΗ Β’
ΑΛΛΙΩΣ
ΓΡΑΨΕ ‘ΠΡΟΩΘΗΣΗ’
ΤΕΛΟΣ_ΑΝ
ΔΙΑΒΑΣΕ ΜΕΓΕΘΟΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΔΙΑΔ1(ΠΛ_Α,ΠΛ_Β)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΔ1(ΠΛ_Α,ΠΛ_Β)
ΜΕΤΑΒΛΗΤΕΣ
ΑΡΧΗ
ΑΝ ΠΛ_Α>ΠΛ_Β ΤΟΤΕ
ΓΡΑΨΕ ‘ΑΠΟΘΗΚΗ Α’
ΑΛΛΙΩΣ_ΑΝ ΠΛ_Α<ΠΛ_Β ΤΟΤΕ
ΓΡΑΨΕ ‘ΑΠΟΘΗΚΗ Β’
ΑΛΛΙΩΣ_ΑΝ ΠΛ_Α=ΠΛ_Β ΚΑΙ ΠΛ_Α<>0 ΤΟΤΕ
ΓΡΑΨΕ ‘ΙΣΑΡΙΘΜΑ’
ΑΛΛΙΩΣ
ΓΡΑΨΕ ‘ΚΑΜΙΑ ΑΠΟΘΗΚΕΥΣΗ ΣΤΟ
ΑΕΡΟΔΡΟΜΙΟ’
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ