ΠΡΟΓΡΑΜΜΑ ΕΓΕΛ2022_ΘΕΜΑΓ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: front1, rear1, front2, rear2, ΠΥ, ΠΑ, ΕΠ
  ΧΑΡΑΚΤΗΡΕΣ: Μ[100], Κ[100], ΚΜ, ΚΚ
  ΛΟΓΙΚΕΣ: done
ΑΡΧΗ
  front1 <- 0 ! εμπρός δείκτης ουράς Μ
  rear1 <- 0 ! πίσω δείκτης ουράς Μ
  front2 <- 0 ! εμπρός δείκτης ουράς Κ
  rear2 <- 0 ! πίσω δείκτης ουράς Κ
  ΠΥ <- 0 ! πλήθος υιοθεσιών
  ΠΑ <- 0 ! πλήθος απευθείας υιοθεσιών
  ! ΚΚ: κωδικός κουταβιού
  ! ΚΜ: κωδικός μέλους
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ '1. ΜΕΛΟΣ'
    ΓΡΑΨΕ '2. ΚΟΥΤΑΒΙ'
    ΓΡΑΨΕ '3. ΣΤΑΤΙΣΤΙΚΑ'
    ΓΡΑΨΕ '4. ΕΞΟΔΟΣ'
    ΔΙΑΒΑΣΕ ΕΠ ! η επιλογή του χρήστη
    ΑΝ (ΕΠ = 1) ΤΟΤΕ
      ΔΙΑΒΑΣΕ ΚΜ ! κωδικός μέλους
      ΚΑΛΕΣΕ ΕΞΑΓΩΓΗ(Κ, front2, rear2, ΚΚ, done) 
      ΑΝ (done = ΑΛΗΘΗΣ) ΤΟΤΕ
        ΓΡΑΨΕ ΚΚ ! κωδικός κουταβιού που υιοθετήθηκε
        ΠΥ <- ΠΥ + 1
      ΑΛΛΙΩΣ
        ΚΑΛΕΣΕ ΕΙΣΑΓΩΓΗ(Μ, front1, rear1, ΚΜ, done) 
        ΑΝ (done = ΨΕΥΔΗΣ) ΤΟΤΕ
          ΓΡΑΨΕ 'ΟΥΡΑ ΜΕΛΩΝ ΓΕΜΑΤΗ'
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ_ΑΝ (ΕΠ = 2) ΤΟΤΕ
      ΔΙΑΒΑΣΕ ΚΚ ! κωδικός κουταβιού
      ΚΑΛΕΣΕ ΕΞΑΓΩΓΗ(Μ, front1, rear1, ΚΜ, done) 
      ΑΝ (done = ΑΛΗΘΗΣ) ΤΟΤΕ
        ΓΡΑΨΕ ΚΜ ! κωδικός μέλους που υιοθέτησε το κουτάβι
        ΠΥ <- ΠΥ + 1
        ΠΑ <- ΠΑ + 1 ! απευθείας υιοθεσία κουταβιού
      ΑΛΛΙΩΣ
        ΚΑΛΕΣΕ ΕΙΣΑΓΩΓΗ(Κ, front2, rear2, ΚΚ, done) 
        ΑΝ (done = ΨΕΥΔΗΣ) ΤΟΤΕ
          ΓΡΑΨΕ 'ΟΥΡΑ ΚΟΥΤΑΒΙΩΝ ΓΕΜΑΤΗ'
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ_ΑΝ (ΕΠ = 3) ΤΟΤΕ
      ΓΡΑΨΕ 'ΠΛΗΘΟΣ ΥΙΟΘΕΣΙΩΝ: ', ΠΥ
      ΑΝ (front1 = 0 ΚΑΙ rear1 = 0) ΤΟΤΕ
        ΓΡΑΨΕ 'ΚΑΝΕΝΑ ΜΕΛΟΣ ΣΤΗΝ ΑΝΑΜΟΝΗ'
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'ΜΕΛΗ ΣΤΗΝ ΑΝΑΜΟΝΗ: ', rear1 - front1 + 1
      ΤΕΛΟΣ_ΑΝ
      ΓΡΑΨΕ 'ΠΛΗΘΟΣ ΑΠΕΥΘΕΙΑΣ ΑΝΑΘΕΣΕΩΝ: ', ΠΑ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ (ΕΠ = 4)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΕΙΣΑΓΩΓΗ(Q, front, rear, code, done)
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Q[100], code
  ΑΚΕΡΑΙΕΣ: front, rear
  ΛΟΓΙΚΕΣ: done
ΑΡΧΗ
  ΑΝ rear = 30 ΤΟΤΕ
    done <- ΨΕΥΔΗΣ
  ΑΛΛΙΩΣ
    ΑΝ (front = 0 ΚΑΙ rear = 0) ΤΟΤΕ
      front <- 1
      rear <- 1
    ΑΛΛΙΩΣ
      rear <- rear + 1
    ΤΕΛΟΣ_ΑΝ
    Q[rear] <- code
    done <- ΑΛΗΘΗΣ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΕΞΑΓΩΓΗ(Q, front, rear, code, done)
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Q[100], code
  ΑΚΕΡΑΙΕΣ: front, rear
  ΛΟΓΙΚΕΣ: done
ΑΡΧΗ
  ΑΝ (front = 0 ΚΑΙ rear = 0) ΤΟΤΕ
    done <- ΨΕΥΔΗΣ
  ΑΛΛΙΩΣ
    code <- Q[front]
    done <- ΑΛΗΘΗΣ
    ΑΝ (front = rear) ΤΟΤΕ
      front <- 0
      rear <- 0
    ΑΛΛΙΩΣ
      front <- front + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ