2ο ΓΕΛ Γέρακα - ΑΣΚΗΣΕΙΣ ΑΕΠΠ

e-ΜΑΘΗΜΑΤΑ
Ανάπτυξη Εφαρμογών σε Προγραμματιστικό περιβάλλον
Λύσεις ασκήσεων από θέματα Πανελλαδικών εξετάσεων

ΠΡΟΓΡΑΜΜΑ ΑΕΠΠ_ΜΕΤΑΦΟΡΙΚΗ

!ΘΕΜΑ 2015 Γ

!Μία εταιρεία μεταφοράς δεμάτων διαθέτει δύο αποθήκες, Α και Β, στο

!αεροδρόμιο. Κατά την παραλαβή δεμάτων, κάθε δέμα τοποθετείται στην

!αποθήκη που έχει εκείνη τη στιγμή τον περισσότερο ελεύθερο χώρο. Αν ο

!ελεύθερος χώρος της αποθήκης Α είναι ίσος με τον ελεύθερο χώρο της

!αποθήκης Β, το δέμα τοποθετείται στην αποθήκη Α. Όταν όμως το δέμα δεν

!χωρά σε καμία από τις δύο αποθήκες, προωθείται στις κεντρικές εγκαταστάσεις

!της εταιρείας, που βρίσκονται εκτός αεροδρομίου.

!Γ1. Να κατασκευάσετε πρόγραμμα που:

!α. Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων. (μονάδες 2)

!β. Να διαβάζει τα μεγέθη ελεύθερου χώρου των αποθηκών Α και Β. (μονάδες 2)

!γ. Να διαβάζει το μέγεθος κάθε εισερχόμενου δέματος και να εμφανίζει

!το όνομα της αποθήκης (Α ή Β) στην οποία θα τοποθετηθεί αυτό ή να

!εμφανίζει το μήνυμα «Προώθηση», όταν το δέμα δεν χωρά σε καμία

!από τις αποθήκες Α ή Β. Η διαδικασία παραλαβής τερματίζεται, όταν

!εισαχθεί ως μέγεθος δέματος η τιμή 0. (μονάδες 6)

!δ. Στη συνέχεια, να καλεί υποπρόγραμμα, το οποίο να βρίσκει και να

!εμφανίζει το όνομα της αποθήκης (Α ή Β) στην οποία τοποθετήθηκαν

!τα περισσότερα δέματα, ή το μήνυμα «Ισάριθμα» σε περίπτωση που

!στις δύο αποθήκες Α και Β τοποθετήθηκαν ισάριθμα δέματα, ή το

!μήνυμα «Καμία αποθήκευση στο αεροδρόμιο», αν κανένα δέμα δεν

!τοποθετήθηκε σε οποιαδήποτε από τις αποθήκες Α ή Β. (μονάδες 2)

!Μονάδες 12

!Γ2. Να κατασκευάσετε το υποπρόγραμμα που περιγράφεται στο ερώτημα Γ1.δ.

!Μονάδες 8



ΜΕΤΑΒΛΗΤΕΣ

  ΠΡΑΓΜΑΤΙΚΕΣ: χώροςΑ, χώροςΒ, δέμα

  ΑΚΕΡΑΙΕΣ: πλήθοςΑ, πλήθοςΒ



ΑΡΧΗ



!Γ1β. Να διαβάζει τα μεγέθη ελεύθερου χώρου των αποθηκών Α και Β.

  ΓΡΑΨΕ 'Δώστε μεγέθη ελεύθερου χώρου των αποθηκών Α και Β'

  ΔΙΑΒΑΣΕ χώροςΑ, χώροςΒ





!Γ1γ.

  πλήθοςΑ <- 0

  πλήθοςΒ <- 0

  ΓΡΑΨΕ 'Δώστε μέγεθος εισερχόμενου δέματος'

  ΔΙΑΒΑΣΕ δέμα

  ΟΣΟ δέμα <> 0 ΕΠΑΝΑΛΑΒΕ

    ΑΝ δέμα > χώροςΑ ΚΑΙ δέμα > χώροςΒ ΤΟΤΕ

      ΓΡΑΨΕ 'Προώθηση'

    ΑΛΛΙΩΣ_ΑΝ χώροςΑ >= χώροςΒ ΤΟΤΕ

      χώροςΑ <- χώροςΑ - δέμα

      πλήθοςΑ <- πλήθοςΑ + 1

      ΓΡΑΨΕ "ΑΠΟΘΗΚΗ Α"

    ΑΛΛΙΩΣ

      χώροςΒ <- χώροςΒ - δέμα

      πλήθοςΒ <- πλήθοςΒ + 1

      ΓΡΑΨΕ "ΑΠΟΘΗΚΗ Β"

    ΤΕΛΟΣ_ΑΝ



    ΓΡΑΨΕ 'Δώστε μέγεθος εισερχόμενου δέματος'

    ΔΙΑΒΑΣΕ δέμα

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



!Γ1δ

  ΚΑΛΕΣΕ εμφάνιση_Μηνυμάτων (πλήθοςΑ, πλήθοςΒ) 



ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ



!Γ2

ΔΙΑΔΙΚΑΣΙΑ εμφάνιση_Μηνυμάτων (Α, Β) 

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: Α, Β

ΑΡΧΗ

  ΑΝ Α > Β ΤΟΤΕ

    ΓΡΑΨΕ 'Α'

  ΑΛΛΙΩΣ_ΑΝ Β > Α ΤΟΤΕ

    ΓΡΑΨΕ 'Β'

  ΑΛΛΙΩΣ_ΑΝ Β = Α ΚΑΙ Α > 0 ΤΟΤΕ

    ΓΡΑΨΕ 'Ισάριθμα'

  ΑΛΛΙΩΣ

    ΓΡΑΨΕ 'Καμία αποθήκευση στο αεροδρόμιο'

  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ