ΠΡΟΓΡΑΜΜΑ RENT_AN_ECO_CAR
!2008-Θ3
!Μία εταιρεία ενοικίασης αυτοκινήτων έχει νοικιάσει 30 αυτοκίνητα
!τα οποία κατηγοριοποιούνται σε οικολογικά και συμβατικά.
!Η πολιτική χρέωσης για την ενοικίαση ανά κατηγορία και ανά ημέρα
!δίνεται στον παρακάτω πίνακα.
!ΗΜΕΡΕΣ            ΟΙΚΟΛΟΓΙΚΑ       ΣΥΜΒΑΤΙΚΑ
!1-7             30€ ανά ημέρα     40€ ανά ημέρα
!8-16            20€ ανά ημέρα     30€ ανά ημέρα
!από 17 και άνω  10€ ανά ημέρα     20€ ανά ημέρα
!
!1. Να αναπτύξετε πρόγραμμα το οποίο:
!α. Περιλαμβάνει τμήμα δηλώσεων μεταβλητών.
!β. Για κάθε αυτοκίνητο το οποίο έχει ενοικιαστεί:
!i. Διαβάζει την κατηγορία του («ΟΙΚΟΛΟΓΙΚΑ» ή «ΣΥΜΒΑΤΙΚΑ»)
!   και τις ημέρες ενοικίασης.
!ii.Καλεί υποπρόγραμμα με είσοδο την κατηγορία του αυτοκινήτου
!   και τις ημέρες ενοικίασης και υπολογίζει με βάση τον παραπάνω
!   πίνακα τη χρέωση.
!
!iii. Εμφανίζει το μήνυμα “χρέωση” και τη χρέωση που υπολογίσατε.
!γ. Υπολογίζει και εμφανίζει το πλήθος των οικολογικών και των
!συμβατικών αυτοκινήτων.
!2. Να κατασκευάσετε το κατάλληλο υποπρόγραμμα του ερωτήματος 1.β.ii .
!
!ΣΗΜΕΙΩΣΗ:
!1)Δεν απαιτείται έλεγχος εγκυρότητας για τα δεδομένα εισόδου και
!2) Ο υπολογισμός της χρέωσης δεν πρέπει να γίνει κλιμακωτά.

!α
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: κατηγορία
  ΑΚΕΡΑΙΕΣ: ημέρες_ενοικίασης, πλήθος_οικολογικών, πλήθος_συμβατικών, i
  ΠΡΑΓΜΑΤΙΚΕΣ: ποσό_χρέωσης

ΑΡΧΗ

! αρχικοποίηση μετρητών
  πλήθος_οικολογικών <- 0
  πλήθος_συμβατικών <- 0
  
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
!β. Για κάθε αυτοκίνητο το οποίο έχει ενοικιαστεί:
!i. Διαβάζει την κατηγορία του («ΟΙΚΟΛΟΓΙΚΑ» ή «ΣΥΜΒΑΤΙΚΑ»)
!και τις ημέρες ενοικίασης.
    ΓΡΑΨΕ 'Δώσε κατηγορία αυτοκινήτου: '
    ΔΙΑΒΑΣΕ κατηγορία

    ΓΡΑΨΕ 'Δώσε ημέρες ενοικίασης: '
    ΔΙΑΒΑΣΕ ημέρες_ενοικίασης


!ii.Καλεί υποπρόγραμμα με είσοδο την κατηγορία του αυτοκινήτου
!   και τις ημέρες ενοικίασης και υπολογίζει με βάση τον παραπάνω
!   πίνακα τη χρέωση.
    ΚΑΛΕΣΕ υπολόγισε_χρέωση (κατηγορία, ημέρες_ενοικίασης, ποσό_χρέωσης) 
    
!iii. Εμφανίζει το μήνυμα “χρέωση” και τη χρέωση που υπολογίσατε.
    ΓΡΑΨΕ 'χρέωση ', ποσό_χρέωσης


!γ. Υπολογίζει και εμφανίζει το πλήθος των οικολογικών και των
!συμβατικών αυτοκινήτων.
    ΑΝ κατηγορία = 'ΟΙΚΟΛΟΓΙΚΑ' ΤΟΤΕ
      πλήθος_οικολογικών <- πλήθος_οικολογικών + 1
    ΑΛΛΙΩΣ_ΑΝ κατηγορία = 'ΣΥΜΒΑΤΙΚΑ' ΤΟΤΕ
      πλήθος_συμβατικών <- πλήθος_συμβατικών + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  
  ΓΡΑΨΕ 'Πλήθος οικολογικών: ', πλήθος_οικολογικών
  ΓΡΑΨΕ 'Πλήθος συμβατικών : ', πλήθος_συμβατικών
  
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


! ********************************************************

ΔΙΑΔΙΚΑΣΙΑ υπολόγισε_χρέωση (κατηγορία, ημέρες, χρέωση) 
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: κατηγορία
  ΑΚΕΡΑΙΕΣ: ημέρες
  ΠΡΑΓΜΑΤΙΚΕΣ: χρέωση
ΑΡΧΗ
!ΗΜΕΡΕΣ            ΟΙΚΟΛΟΓΙΚΑ       ΣΥΜΒΑΤΙΚΑ
!1-7             30€ ανά ημέρα     40€ ανά ημέρα
!8-16            20€ ανά ημέρα     30€ ανά ημέρα
!από 17 και άνω  10€ ανά ημέρα     20€ ανά ημέρα
!Ο υπολογισμός της χρέωσης δεν πρέπει να γίνει κλιμακωτά.

  χρέωση <- 0
  ΑΝ κατηγορία = 'ΟΙΚΟΛΟΓΙΚΑ' ΤΟΤΕ
    ΑΝ ημέρες <= 7 ΤΟΤΕ
      χρέωση <- ημέρες* 30
    ΑΛΛΙΩΣ_ΑΝ ημέρες <= 16 ΤΟΤΕ
      χρέωση <- ημέρες* 20
    ΑΛΛΙΩΣ
      χρέωση <- ημέρες* 10
    ΤΕΛΟΣ_ΑΝ
  ΑΛΛΙΩΣ_ΑΝ κατηγορία = 'ΣΥΜΒΑΤΙΚΑ' ΤΟΤΕ
    ΑΝ ημέρες <= 7 ΤΟΤΕ
      χρέωση <- ημέρες* 40
    ΑΛΛΙΩΣ_ΑΝ ημέρες <= 16 ΤΟΤΕ
      χρέωση <- ημέρες* 30
    ΑΛΛΙΩΣ
      χρέωση <- ημέρες* 20
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ