ΠΡΟΓΡΑΜΜΑ ΠΑΝΕΛ2004_Θ3
!Μία εταιρεία ταχυδρομικών υπηρεσιών εφαρμόζει για τα έξοδα 
!αποστολής ταχυδρομικών επιστολών εσωτερικού και εξωτερικού, 
!χρέωση σύμφωνα με τον παρακάτω πίνακα: 
  
!Βάρος επιστολής σε gr  Χρέωση εσωτ.(€)  Χρέωση εξωτερικού (€) 
!από 0 έως και 500            2,0                 4,8 
!από 500 έως και 1000          3,5                 7,2 
!από 1000 έως και 2000        4,6                 11,5 
!Για παράδειγμα τα έξοδα αποστολής μιας επιστολής βάρους 800 
!γραμμαρίων και προορισμού εσωτερικού είναι 3,5 Ευρώ. 
!Να γράψετε αλγόριθμο ο οποίος: 
!α. Να διαβάζει το βάρος της επιστολής. 
!β. Να διαβάζει τον προορισμό της επιστολής. 
!Η τιμή "ΕΣ" δηλώνει προορισμό εσωτερικού και 
!η τιμή "ΕΞ" δηλώνει προορισμό εξωτερικού. 
!γ. Να υπολογίζει τα έξοδα αποστολής ανάλογα με τον προορισμό 
!και το βάρος της επιστολής. 
!δ. Να εκτυπώνει τα έξοδα αποστολής. 
!Παρατήρηση. Θεωρείστε ότι ο αλγόριθμος δέχεται τιμές για το 
!βάρος μεταξύ του 0 και του 2000 και για τον προορισμό 
!μόνο τις τιμές "ΕΣ" και "ΕΞ". 
  
ΜΕΤΑΒΛΗΤΕΣ 
  ΑΚΕΡΑΙΕΣ: βάρος 
  ΧΑΡΑΚΤΗΡΕΣ: προορισμός 
  ΠΡΑΓΜΑΤΙΚΕΣ: έξοδα_αποστολής 
ΑΡΧΗ 
!α
  ΓΡΑΨΕ 'Δώσε το βάρος της επιστολής: '
  ΔΙΑΒΑΣΕ βάρος 
!β 
  ΓΡΑΨΕ 'Δώσε προορισμό της επιστολής (ΕΣ/ΕΞ) : '
  ΔΙΑΒΑΣΕ προορισμός 
  
  
!γ 
  έξοδα_αποστολής <- 0 
  ΑΝ προορισμός = 'ΕΣ' ΤΟΤΕ
    ΑΝ βάρος > 0 ΚΑΙ βάρος <= 500 ΤΟΤΕ 
      έξοδα_αποστολής <- 2.0 
    ΑΛΛΙΩΣ_ΑΝ βάρος > 500 ΚΑΙ βάρος <= 1000 ΤΟΤΕ 
      έξοδα_αποστολής <- 3.5 
    ΑΛΛΙΩΣ_ΑΝ βάρος > 1000 ΚΑΙ βάρος <= 2000 ΤΟΤΕ 
      έξοδα_αποστολής <- 4.6 
    ΤΕΛΟΣ_ΑΝ 
  ΑΛΛΙΩΣ_ΑΝ προορισμός = 'ΕΞ' ΤΟΤΕ
    ΑΝ βάρος > 0 ΚΑΙ βάρος <= 500 ΤΟΤΕ 
      έξοδα_αποστολής <- 4.8 
    ΑΛΛΙΩΣ_ΑΝ βάρος > 500 ΚΑΙ βάρος <= 1000 ΤΟΤΕ 
      έξοδα_αποστολής <- 7.2 
    ΑΛΛΙΩΣ_ΑΝ βάρος > 1000 ΚΑΙ βάρος <= 2000 ΤΟΤΕ 
      έξοδα_αποστολής <- 11.5 
    ΤΕΛΟΣ_ΑΝ 
    
  ΤΕΛΟΣ_ΑΝ 
  
!δ 
  
  ΓΡΑΨΕ 'Τα έξοδα αποστολής είναι: ', έξοδα_αποστολής
  
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 

!