ΠΡΟΓΡΑΜΜΑ ΠΡΟΙΟΝΤΑ
!Γ1
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΑΠ[5], Ι, Κ[5], ΚΩΔΙΚΟΣ, ΘΕΣΗ, ΠΛ
!ΠΛ : ΠΛΗΘΟΣ ΜΑΘΗΤΩΝ ΠΟΥ ΔΕΝ ΕΞΥΠΗΡΕΤΗΘΗΚΑΝ
  ΠΡΑΓΜΑΤΙΚΕΣ: Τ[5], Σ
!Σ  :  ΣΥΝΟΛΟ ΕΣΟΔΩΝ
  ΧΑΡΑΚΤΗΡΕΣ: ΑΠΑΝΤΗΣΗ
ΑΡΧΗ
!Γ2
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ "ΔΩΣΕ ΚΩΔΙΚΟ ΠΡΟΙΟΝΤΟΣ"
    ΔΙΑΒΑΣΕ Κ[Ι] 
    ΓΡΑΨΕ "ΔΩΣΕ ΤΙΜΗ ΠΡΟΙΟΝΤΟΣ"
    ΔΙΑΒΑΣΕ Τ[Ι] 
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ "ΔΩΣΕ ΑΠΟΘΕΜΑ "
      ΔΙΑΒΑΣΕ ΑΠ[Ι] 
    ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠ[Ι] > 0
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ Κ[Ι], "  ", ΑΠ[Ι], "   ", Τ[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ
  ΠΛ <- 0
  Σ <- 0
!Γ3 , Γ4 ,Γ5
  ΓΡΑΨΕ "ΠΕΡΙΜΕΝΟΥΝ ΜΑΘΗΤΕΣ ΓΙΑ ΕΞΥΠΗΡΕΤΗΣΗ"
  ΔΙΑΒΑΣΕ ΑΠΑΝΤΗΣΗ
  ΟΣΟ ΑΠΑΝΤΗΣΗ <> "ΤΕΛΟΣ" ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ "ΔΩΣΕ ΚΩΔΙΚΟ"
    ΔΙΑΒΑΣΕ ΚΩΔΙΚΟΣ
    ΘΕΣΗ <- ΥΠΑΡΧΕΙ(ΚΩΔΙΚΟΣ, Κ) 
    ΑΝ ΘΕΣΗ = -1 ΤΟΤΕ
      ΓΡΑΨΕ "ΔΕΝ ΒΡΕΘΗΚΕ ΠΡΟΙΟΝ"
    ΑΛΛΙΩΣ_ΑΝ ΑΠ[ΘΕΣΗ] > 0 ΤΟΤΕ
      ΑΠ[ΘΕΣΗ] <- ΑΠ[ΘΕΣΗ] - 1
      Σ <- Σ + Τ[ΘΕΣΗ] 
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'ΔΕΝ ΜΠΟΡΕΙΤΕ ΝΑ ΕΞΥΠΗΡΕΤΗΘΕΙΤΕ'
      ΠΛ <- ΠΛ + 1
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ "ΠΕΡΙΜΕΝΟΥΝ ΜΑΘΗΤΕΣ ΓΙΑ ΕΞΥΠΗΡΕΤΗΣΗ"
    ΔΙΑΒΑΣΕ ΑΠΑΝΤΗΣΗ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "ΣΥΝΟΛΟ ΕΣΟΔΩΝ :", Σ
  ΓΡΑΨΕ "ΜΑΘΗΤΕΣ ΠΟΥ ΔΕΝ ΕΞΥΠΗΡΕΤΗΘΗΚΑΝ :", ΠΛ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!Γ6
ΣΥΝΑΡΤΗΣΗ ΥΠΑΡΧΕΙ(ΚΩΔΙΚΟΣ, Κ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΚΩΔΙΚΟΣ, Κ[5], ΘΕΣΗ, Ι
ΑΡΧΗ

  ΘΕΣΗ <- -1
  Ι <- 1
  ΟΣΟ Ι <= 5 ΚΑΙ ΘΕΣΗ = -1 ΕΠΑΝΑΛΑΒΕ
    ΑΝ Κ[Ι] = ΚΩΔΙΚΟΣ ΤΟΤΕ
      ΘΕΣΗ <- Ι
    ΑΛΛΙΩΣ
      Ι <- Ι + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΥΠΑΡΧΕΙ <- ΘΕΣΗ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ