ΠΡΟΓΡΑΜΜΑ ΚΟΜΜΩΤΗΡΙΟ
! Ερώτημα 4.1: Δηλώσεις μεταβλητών
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΠΛΗΘ, Ι, ΚΩΔ, ΤΠ[150] 
  ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡ[150], ΕΣ_1, ΕΣ_2, ΕΣ_3, ΕΣ_4, ΠΟΣ_ΘΕΡ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[150], ΟΝΟΜΑ, ΠΕΛ
  ΛΟΓΙΚΕΣ: ΒΡΕΘ
ΑΡΧΗ
  ΠΛΗΘ <- 0     ! 4.2: πληθος ραντεβου εβδομάδας
  ΕΣ_1 <- 0.0   ! 4.3: εσοδα από Κουρεμα
  ΕΣ_2 <- 0.0   ! 4.3: εσοδα  από Χτενισμα
  ΕΣ_3 <- 0.0   ! 4.3: εσοδα από Βαφή
  ΕΣ_4 <- 0.0 ! 4.3: εσοδα  από Θεραπεία Μαλλιών
! 4.1 : Εισαγωγή δεδομενων
  ΓΡΑΨΕ 'Δώσε το ονοματεπώνυμο του 1ου πελάτη:'
  ΔΙΑΒΑΣΕ ΟΝΟΜΑ
  ΟΣΟ ΟΝΟΜΑ <> 'ΤΕΛΟΣ' ΚΑΙ ΠΛΗΘ < 150 ΕΠΑΝΑΛΑΒΕ
    ΠΛΗΘ <- ΠΛΗΘ + 1
    ΟΝ[ΠΛΗΘ] <- ΟΝΟΜΑ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'Δώσε τον κωδικό αριΘμό υπηρεσιας (1-4):'
      ΔΙΑΒΑΣΕ ΚΩΔ
    ΜΕΧΡΙΣ_ΟΤΟΥ ΚΩΔ >= 1 ΚΑΙ ΚΩΔ <= 4
    ΤΠ[ΠΛΗΘ] <- ΚΩΔ
    ΓΡΑΨΕ 'Δώσε ποσό χρεωσης πελάτη σε ευρώ:'
    ΔΙΑΒΑΣΕ ΧΡ[ΠΛΗΘ] 
!4.3: εσοδα από κάθε υπηρεσία χωριστά
    ΕΠΙΛΕΞΕ ΚΩΔ
      ΠΕΡΙΠΤΩΣΗ 1
        ΕΣ_1 <- ΕΣ_1 + ΧΡ[ΠΛΗΘ] 
      ΠΕΡΙΠΤΩΣΗ 2
        ΕΣ_2 <- ΕΣ_2 + ΧΡ[ΠΛΗΘ] 
      ΠΕΡΙΠΤΩΣΗ 3
        ΕΣ_3 <- ΕΣ_3 + ΧΡ[ΠΛΗΘ] 
      ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
        ΕΣ_4 <- ΕΣ_4 + ΧΡ[ΠΛΗΘ] 
    ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
    ΓΡΑΨΕ 'Δώσε ονοματεπώνυμο πελάτη ή ΤΕΛΟΣ για τερματισμό:'
    ΔΙΑΒΑΣΕ ΟΝΟΜΑ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.2 Αναζητηση των ραντεβου πελάτη
  ΓΡΑΨΕ 'Δώσε ονοματεπώνυμο πελάτη προς αναζητηση :'
  ΔΙΑΒΑΣΕ ΠΕΛ
  ΒΡΕΘ <- ΨΕΥΔΗΣ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘ
    ΑΝ ΟΝ[Ι] = ΠΕΛ ΤΟΤΕ
      ΓΡΑΨΕ ΤΠ[Ι], ΧΡ[Ι] 
      ΒΡΕΘ <- ΑΛΗΘΗΣ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ ΒΡΕΘ = ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'ΔΕ ΒΡΕΘΗΚΕ ΡΑΝΤΕΒΟΥ'
  ΤΕΛΟΣ_ΑΝ
! 4.3 : Εμφάνιση ποσοστου εσόδων από Θεραπείες Μαλλιών
  ΓΡΑΨΕ ΕΣ_1, ΕΣ_2, ΕΣ_3, ΕΣ_4
  ΠΟΣ_ΘΕΡ <- ΕΣ_4/(ΕΣ_1 + ΕΣ_2 + ΕΣ_3 + ΕΣ_4)*100
  ΓΡΑΨΕ 'Ποσοστό (%) εσόδων από Θεραπείες Μαλλιών:', ΠΟΣ_ΘΕΡ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ