ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Γ
ΣΤΑΘΕΡΕΣ
Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Q[Ν]
  ΑΚΕΡΑΙΕΣ: επ, front, rear, πελάτες, i, Σ
  ΠΡΑΓΜΑΤΙΚΕΣ: Μέσος_χρόνος
ΑΡΧΗ
! Η επεξεργασία της ουράς γίνεται με ολίσθηση των στοιχείων της
! κατά μιά θέση μπροστά μετά από κάθε εξαγωγή (όπως γίνεται πραγματικά)
  front <- 0
  rear <- 0
  πελάτες <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ '(1) ΕΙΣΑΓΩΓΗ'
    ΓΡΑΨΕ '(2) ΕΞΑΓΩΓΗ'
    ΓΡΑΨΕ '(3) ΤΕΡΜΑΤΙΣΜΟΣ'
    ΓΡΑΨΕ 'Δώστε επιλογή:  '
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ επ
      ΑΝ επ < 1 Η επ > 3 ΤΟΤΕ
        ΓΡΑΨΕ 'Λάθος επιλογή. Ξαναπροσπαθήστε...'
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ επ >= 1 ΚΑΙ επ <= 3
    ΑΝ επ = 1 ΤΟΤΕ
      ΑΝ rear = Ν ΤΟΤΕ
        ΓΡΑΨΕ 'Ελάτε αργότερα'
      ΑΛΛΙΩΣ
        ΑΝ (front = 0 ΚΑΙ rear = 0) ΤΟΤΕ
          front <- 1
          rear <- 1
        ΑΛΛΙΩΣ
          rear <- rear + 1
        ΤΕΛΟΣ_ΑΝ
        ΓΡΑΨΕ 'Όνομα: '
        ΔΙΑΒΑΣΕ Q[rear] 
        ΓΡΑΨΕ 'Προηγούνται ', rear - front, ' άτομα'
        ΓΡΑΨΕ 'Χρόνος αναμονής ', (rear - front)*3, ' λεπτά'
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ_ΑΝ επ = 2 ΤΟΤΕ
      ΑΝ (front = 0 ΚΑΙ rear = 0) ΤΟΤΕ ! Η ουρά είναι άδεια
        ΓΡΑΨΕ ' Η ουρά είναι άδεια'
      ΑΛΛΙΩΣ
        πελάτες <- πελάτες + 1
        ΓΡΑΨΕ Q[front] 
        ΑΝ front = rear ΤΟΤΕ ! Η ουρά έχει μόνο 1 στοιχείο
          Q[rear] <- " "
          rear <- 0
          front <- 0
        ΑΛΛΙΩΣ ! Η ουρά έχει παραπάνω απο 1 στοιχείο
          ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ rear - 1 ! Ολίσθηση μπροστά κατά 1 θέση
            Q[i] <- Q[i + 1] 
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          Q[rear] <- " "
          front <- 1
          rear <- rear - 1
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ επ = 3
  ΓΡΑΨΕ πελάτες, ' πελάτες εξυπηρετήθηκαν'
  Σ <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πελάτες
    Σ <- Σ + i*3
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ πελάτες <> 0 ΤΟΤΕ
    Μέσος_χρόνος <- Σ/πελάτες
    ΓΡΑΨΕ 'Μέσος χρόνος αναμονής: ', Μέσος_χρόνος, ' λεπτά'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ