ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ
!Μία αεροπορική εταιρεία πραγματοποιεί την πτήση Λονδίνο – Αθήνα με ένα αεροπλάνο χωρητικότητας 200 θέσεων και με ενδιάμεση στάση στη Ρώμη. Στη Ρώμη κάποιοι επιβάτες αποβιβάζονται, ενώ κάποιοι άλλοι επιβιβάζονται.
!Να κατασκευάσετε πρόγραμμα που επεξεργάζεται τις πληροφορίες κράτησης θέσεων για αυτή την πτήση και το οποίο:
!α.  Περιέχει τμήμα δήλωσης μεταβλητών
!β.   Για κάθε κράτηση θέσης δέχεται:
!      β1 τον κωδικό της πόλης επιβίβασης ('Λ' για Λονδίνο, 'Ρ' για Ρώμη) με έλεγχο εγκυρότητας
!      β2.τον κωδικό της πόλης αποβίβασης ('Ρ' για Ρώμη, 'Α' για Αθήνα) με έλεγχο εγκυρότητας
!      Η κράτηση πραγματοποιείται μόνο αν σε όλη τη διάρκεια της διαδρομής από την πόλη
!      επιβίβασης μέχρι την πόλη αποβίβασης, δεν παραβιάζεται η χωρητικότητα του αεροπλάνου.
!      Σε διαφορετική περίπτωση εμφανίζεται το μήνυμα  'Όχι διαθεσιμότητα'.
!γ.  Η επαναληπτική διαδικασία να τερματίζεται,, όταν στην ερώτηση 'Να τερματιστεί η επεξεργασία; ΝΑΙ/ΟΧΙ', ο χρήστης πληκτρολογίσει 'ΝΑΙ'.
!δ.   Το πρόγραμμα υπολογίζει και εμφανίζει:
!      δ1.  το πλήθος των επιβατών στη διαδρομή Λονδίνο-Ρώμη και το πλήθος των επιβατών  στη διαδρομή .Ρώμη-Αθήνα
!      δ2.  το ποσοστό των επιβατών που αποβιβάστηκαν στη Ρώμη
!Σημείωση: Να θεωρήσετε ότι το πρόγραμμα επεξεργάζεται τουλάχιστον μία κράτηση.

ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Κωδ_Επ, Κωδ_Απ, Απάντηση
  ΑΚΕΡΑΙΕΣ: Χωρ_1, Χωρ_2, Πλ_Λ_Ρ, Πλ_Ρ_Α, Πλ_ΟΛΟΙ, Πλ_Λ_Ρ_ΜΟΝΟ
  ΠΡΑΓΜΑΤΙΚΕΣ: Ποσ
ΑΡΧΗ
  Χωρ_1 <- 6
  Χωρ_2 <- 6
  Πλ_Λ_Ρ <- 0
  Πλ_Ρ_Α <- 0
  Πλ_Λ_Ρ_ΜΟΝΟ <- 0
  Πλ_ΟΛΟΙ <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'Δώσε κωδικό επιβίβασης'
      ΔΙΑΒΑΣΕ Κωδ_Επ
    ΜΕΧΡΙΣ_ΟΤΟΥ .........................
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'Δώσε κωδικό επιβίβασης'
      ΔΙΑΒΑΣΕ Κωδ_Απ
    ΜΕΧΡΙΣ_ΟΤΟΥ (Κωδ_Απ = 'Ρ' ΚΑΙ Κωδ_Απ <> Κωδ_Επ) Η .................
    ΑΝ Κωδ_Επ = 'Λ' ΚΑΙ Κωδ_Απ = 'Ρ' ΤΟΤΕ
      ΑΝ Χωρ_1 > 0 ΤΟΤΕ
        Χωρ_1 <- .................
        Πλ_Λ_Ρ <- ...................
        Πλ_Λ_Ρ_ΜΟΝΟ <- Πλ_Λ_Ρ_ΜΟΝΟ + 1
        Πλ_ΟΛΟΙ <- Πλ_ΟΛΟΙ + 1
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'Όχι διαθεσιμότητα'
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ_ΑΝ Κωδ_Επ = 'Ρ' ΚΑΙ Κωδ_Απ = 'Α' ΤΟΤΕ
      ΑΝ Χωρ_2 > 0 ΤΟΤΕ
        Χωρ_2 <- .....................
        Πλ_Ρ_Α <- ....................
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'Όχι διαθεσιμότητα'
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ_ΑΝ Κωδ_Επ = 'Λ' ΚΑΙ Κωδ_Απ = 'Α' ΤΟΤΕ
      ΑΝ Χωρ_1 > 0 ΚΑΙ Χωρ_2 > 0 ΤΟΤΕ
        Χωρ_1 <- .............
        Χωρ_2 <- .............
        Πλ_Λ_Ρ <- ..............
        Πλ_Ρ_Α <- ...............
        Πλ_ΟΛΟΙ <- Πλ_ΟΛΟΙ + 1
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'Όχι διαθεσιμότητα'
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'Να τερματιστεί η επεξεργασία; ΝΑΙ/ΟΧΙ'
    ΔΙΑΒΑΣΕ Απάντηση
  ΜΕΧΡΙΣ_ΟΤΟΥ Απάντηση = ...........
  ΓΡΑΨΕ Πλ_Λ_Ρ
  ΓΡΑΨΕ Πλ_Ρ_Α
  Ποσ <- Πλ_Λ_Ρ_ΜΟΝΟ/Πλ_ΟΛΟΙ
  ΓΡΑΨΕ Ποσ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ