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