! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΝΙΟΣ 2004 - ΘΕΜΑ 3
! ===============================================================================================
! Μία εταιρεία ταχυδρομικών υπηρεσιών εφαρμόζει για τα έξοδα αποστολής ταχυδρομικών επιστολών
! εσωτερικού και εξωτερικού, χρέωση συμφωνά με τον παρακάτω πίνακα:
!
!   ---------------------------------------------------------------
!      Βάρος επιστολής       Χρέωση εσωτερικού   Χρέωση εξωτερικού
!       σε γραμμάρια              σε Ευρώ            σε Ευρώ
!   ---------------------------------------------------------------
!    από    0 έως και 500           2,0                4,8
!    από  500 έως και 1000          3,5                7,2
!    από 1000 έως και 2000          4,6               11,5
!   ---------------------------------------------------------------
!
! Για παράδειγμα τα έξοδα αποστολής μιας επιστολής βάρους 800 γραμμαρίων και προορισμού εσωτερικού
! είναι 3,5 Ευρώ.
! Να γράψετε αλγόριθμο ο οποίος :
!   α. Να διαβάζει το βάρος της επιστολής.
!   β. Να διαβάζει τον προορισμό της επιστολής. Η τιμή ΕΣ δηλώνει προορισμό εσωτερικού και η τιμή
!      ΕΞ δηλώνει προορισμό εξωτερικού.
!   γ. Να υπολογίζει τα έξοδα αποστολής ανάλογα με τον προορισμό και το βάρος της επιστολής.
!   δ. Να εκτυπώνει τα έξοδα αποστολής.
! Παρατήρηση.
! Θεωρήστε ότι ο αλγόριθμος δέχεται τιμές για το βάρος μεταξύ του 0 και του 2000 και για τον
! προορισμό μόνο τις τιμές "ΕΣ" και "ΕΞ".
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ ΗΜ_2004_06_3
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: w , τιμη
  ΧΑΡΑΚΤΗΡΕΣ: π
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε βάρος επιστολής.'
  ΔΙΑΒΑΣΕ w
  ΟΣΟ w <= 0 ή w > 2000 ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'Λάθος. Ξαναδώσε'
    ΔΙΑΒΑΣΕ w
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Δώσε προορισμό ΕΣ ή ΕΞ'
  ΔΙΑΒΑΣΕ π
  ΟΣΟ π <> 'ΕΣ' ΚΑΙ π <> 'ΕΞ' ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'Λάθος. Ξαναδώσε'
    ΔΙΑΒΑΣΕ π
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ π = 'ΕΣ' ΤΟΤΕ
    ΑΝ w <= 500 ΤΟΤΕ
      τιμη <-- 2
    ΑΛΛΙΩΣ_ΑΝ w <= 1000 ΤΟΤΕ
      τιμη <-- 3.5
    ΑΛΛΙΩΣ
      τιμη <-- 4.6
    ΤΕΛΟΣ_ΑΝ
  ΑΛΛΙΩΣ
    ΑΝ w <= 500 ΤΟΤΕ
      τιμη <-- 4.8
    ΑΛΛΙΩΣ_ΑΝ w <= 1000 ΤΟΤΕ
      τιμη <-- 7.2
    ΑΛΛΙΩΣ
      τιμη <-- 11.5    
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ 'Έξοδα αποστολής =' , τιμη
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ