ΠΡΟΓΡΑΜΜΑ ΑΕΠΠ_OIL
! Επαναληπτικές 2011 ΘΕΜΑ Γ
!Ένα πρατήριο υγρών καυσίμων διαθέτει έναν τύπο καυσίμου που αποθηκεύεται
!σε δεξαμενή χωρητικότητας 10.000 λίτρων. Να αναπτύξετε αλγόριθμο ο οποίος:
!Γ1. να διαβάζει την ποσότητα (σε λίτρα) του καυσίμου που υπάρχει αρχικά στη
!δεξαμενή μέχρι να δοθεί έγκυρη τιμή. (Μονάδες 2)
!Για κάθε όχημα που προσέρχεται στο πρατήριο:
!Γ2. να διαβάζει τον τύπο του οχήματος ("Β" για βυτιοφόρο όχημα που προμηθεύει
!το πρατήριο με καύσιμο και "E" για επιβατηγό όχημα που προμηθεύεται καύσιμο από το πρατήριο).
!Μονάδες 2
!Γ3. Αν το όχημα είναι βυτιοφόρο τότε να γεμίζει τη δεξαμενή μέχρι την πλήρωσή της. (μονάδες 3)
!Αν το όχημα είναι επιβατηγό τότε να διαβάζει την ποσότητα καυσίμου την οποία
!θέλει να προμηθευτεί (μονάδες 2) και, αν υπάρχει επάρκεια καυσίμου στη δεξαμενή,
!τότε το επιβατηγό όχημα να εφοδιάζεται με τη ζητούμενη ποσότητα καυσίμου,
!διαφορετικά το όχημα να μην εξυπηρετείται (μονάδες 3).
!Γ4. Η επαναληπτική διαδικασία να τερματίζεται, όταν αδειάσει η δεξαμενή του πρατηρίου
!ή όταν δεν εξυπηρετηθούν τρία διαδοχικά επιβατηγά οχήματα.   Μονάδες 4
!Γ5. Στο τέλος ο αλγόριθμος να εμφανίζει:
!α. τη μέση ποσότητα καυσίμου ανά επιβατηγό όχημα που εξυπηρετήθηκε
!β. τη συνολική ποσότητα καυσίμου με την οποία τα βυτιοφόρα ανεφοδίασαν τη δεξαμενή.
!Μονάδες 4
!Σημειώσεις:
!- Δεν απαιτείται έλεγχος εγκυρότητας για τον τύπο του οχήματος.
!- Θεωρήστε ότι στο πρατήριο προσέρχεται ένα τουλάχιστον επιβατηγό όχημα
!για το οποίο η ποσότητα καυσίμου στη δεξαμενή επαρκεί.

ΣΤΑΘΕΡΕΣ
  ΧΩΡΗΤΙΚΟΤΗΤΑ = 10000

ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: τύπος
  ΑΚΕΡΑΙΕΣ: ποσότητα, νέα_ποσότητα, συνολική_νέα_ποσότητα! για τη δεξαμενή
  ΠΡΑΓΜΑΤΙΚΕΣ: μέση_ποσότητα
  ΑΚΕΡΑΙΕΣ: επιθυμητή_ποσότητα, πωληθείσα_ποσότητα! για τα επιβατηγά
  ΑΚΕΡΑΙΕΣ: μη_εξυπηρετηθέντα_επιβατηγά_διαδοχικά, εξυπηρετηθέντα_επιβατηγά! πλήθος
  ΛΟΓΙΚΕΣ: τέλος
ΑΡΧΗ

!Γ1. να διαβάζει την ποσότητα (σε λίτρα) του καυσίμου που υπάρχει αρχικά στη
!δεξαμενή μέχρι να δοθεί έγκυρη τιμή.
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώστε την ποσότητα του καυσίμου που υπάρχει αρχικά στη δεξαμενή : '
    ΔΙΑΒΑΣΕ ποσότητα
  ΜΕΧΡΙΣ_ΟΤΟΥ ποσότητα >= 0 ΚΑΙ ποσότητα <= ΧΩΡΗΤΙΚΟΤΗΤΑ



  συνολική_νέα_ποσότητα <- 0
  πωληθείσα_ποσότητα <- 0
  μη_εξυπηρετηθέντα_επιβατηγά_διαδοχικά <- 0
  εξυπηρετηθέντα_επιβατηγά <- 0


  τέλος <- ΨΕΥΔΗΣ
  ΟΣΟ (ΟΧΙ τέλος) ΕΠΑΝΑΛΑΒΕ
!Για κάθε όχημα που προσέρχεται στο πρατήριο:
!Γ2. να διαβάζει τον τύπο του οχήματος (“Β” για βυτιοφόρο όχημα που προμηθεύει
!το πρατήριο με καύσιμο και “E” για επιβατηγό όχημα που προμηθεύεται καύσιμο από το πρατήριο).
    ΓΡΑΨΕ 'Δώστε  τον τύπο του οχήματος (Ε/Β)'
    ΔΙΑΒΑΣΕ τύπος
    
    ΑΝ τύπος = 'Β' ΤΟΤΕ
! Αν το όχημα είναι βυτιοφόρο τότε να γεμίζει τη δεξαμενή μέχρι την πλήρωσή της.
      νέα_ποσότητα <- ΧΩΡΗΤΙΚΟΤΗΤΑ - ποσότητα
      ποσότητα <- ΧΩΡΗΤΙΚΟΤΗΤΑ
      συνολική_νέα_ποσότητα <- συνολική_νέα_ποσότητα + νέα_ποσότητα

      μη_εξυπηρετηθέντα_επιβατηγά_διαδοχικά <- 0
    ΑΛΛΙΩΣ_ΑΝ τύπος = 'Ε' ΤΟΤΕ
      
!Αν το όχημα είναι επιβατηγό τότε να διαβάζει την ποσότητα καυσίμου την οποία
!θέλει να προμηθευτεί και, αν υπάρχει επάρκεια καυσίμου στη δεξαμενή,
!τότε το επιβατηγό όχημα να εφοδιάζεται με τη ζητούμενη ποσότητα καυσίμου,
!διαφορετικά το όχημα να μην εξυπηρετείται.
      ΓΡΑΨΕ 'Δώστε ποσότητα που θέλετε να προμηθευτείτε : '
      ΔΙΑΒΑΣΕ επιθυμητή_ποσότητα
      ΑΝ επιθυμητή_ποσότητα <= ποσότητα ΤΟΤΕ
        ποσότητα <- ποσότητα - επιθυμητή_ποσότητα
        μη_εξυπηρετηθέντα_επιβατηγά_διαδοχικά <- 0
        εξυπηρετηθέντα_επιβατηγά <- εξυπηρετηθέντα_επιβατηγά + 1
        πωληθείσα_ποσότητα <- πωληθείσα_ποσότητα + επιθυμητή_ποσότητα
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'Το όχημα δεν μπορεί να εξυπηρετηθεί'
        μη_εξυπηρετηθέντα_επιβατηγά_διαδοχικά <- μη_εξυπηρετηθέντα_επιβατηγά_διαδοχικά + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ

!Γ4. Η επαναληπτική διαδικασία να τερματίζεται, όταν αδειάσει η δεξαμενή του πρατηρίου
!ή όταν δεν εξυπηρετηθούν τρία διαδοχικά επιβατηγά οχήματα.
    ΑΝ ποσότητα = 0 Η μη_εξυπηρετηθέντα_επιβατηγά_διαδοχικά >= 3 ΤΟΤΕ
      τέλος <- ΑΛΗΘΗΣ
    ΤΕΛΟΣ_ΑΝ

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

!Γ5. Στο τέλος ο αλγόριθμος να εμφανίζει:
!α. τη μέση ποσότητα καυσίμου ανά επιβατηγό όχημα που εξυπηρετήθηκε

  ΑΝ εξυπηρετηθέντα_επιβατηγά <> 0 ΤΟΤΕ
    μέση_ποσότητα <- πωληθείσα_ποσότητα/ εξυπηρετηθέντα_επιβατηγά
    ΓΡΑΨΕ 'Μέση ποσότητα καυσίμου ανά επιβατηγό όχημα που εξυπηρετήθηκε:', μέση_ποσότητα
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Δεν εξυπηρετήθηκε κανένα επιβατηγό'
  ΤΕΛΟΣ_ΑΝ


!β. τη συνολική ποσότητα καυσίμου με την οποία τα βυτιοφόρα ανεφοδίασαν τη δεξαμενή.
  ΓΡΑΨΕ 'Συνολική ποσότητα καυσίμου με την οποία ανεφοδίαστηκε η δεξαμενή:', συνολική_νέα_ποσότητα

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