ΠΡΟΓΡΑΜΜΑ πάρκινγκ
!Ε2006-Θ3
!Σε ένα πάρκινγκ η χρέωση γίνεται κλιμακωτά, όπως φαίνεται στον
!παρακάτω πίνακα:
!ΔΙΑΡΚΕΙΑ ΣΤΑΘΜΕΥΣΗΣ      ΚΟΣΤΟΣ ΑΝΑ ΩΡΑ
!Μέχρι και 3 ώρες              2   euro
!Πάνω από 3 έως και 5 ώρες     1,5
!Πάνω από 5 ώρες               1,3
!
!Ι. Να κατασκευάσετε πρόγραμμα το οποίο:
!α) περιλαμβάνει τμήμα δηλώσεων.
!β) για κάθε αυτοκίνητο που στάθμευσε στο πάρκινγκ:
!i.   διαβάζει τον αριθμό κυκλοφορίας μέχρι να δοθεί το 0.
!     Να θεωρήσετε ότι ο αριθμός κυκλοφορίας μπορεί να περιέχει τόσο
!     γράμματα όσο και αριθμούς.
!ii.  διαβάζει τη διάρκεια στάθμευσης σε ώρες και τη δέχεται
!     μόνο εφ’ όσον είναι μεγαλύτερη από το 0.
!iii. καλεί υποπρόγραμμα για τον υπολογισμό του ποσού που πρέπει
!     να πληρώσει ο κάτοχός του.
!iv.  εμφανίζει τον αριθμό κυκλοφορίας και το ποσό που αναλογεί.
!γ) εμφανίζει το πλήθος των αυτοκινήτων που έμειναν στο πάρκινγκ
!   μέχρι και δύο ώρες.
!ΙΙ. Να κατασκευάσετε το υποπρόγραμμα που καλείται στο ερώτημα β) iii.

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

  πλήθος_πάνω_από_2_ώρες <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε αριθμό κυκλοφορίας : '
    ΔΙΑΒΑΣΕ αριθμός_κυκλοφορίας
    ΑΝ αριθμός_κυκλοφορίας <> '0' ΤΟΤΕ
     !ii. διαβάζει τη διάρκεια στάθμευσης σε ώρες και τη δέχεται
                   !    μόνο εφ’ όσον είναι μεγαλύτερη από το 0.
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        ΓΡΑΨΕ 'Δώσε διάρκεια στάθμευσης'
        ΔΙΑΒΑΣΕ διάρκεια_στάθμευσης
      ΜΕΧΡΙΣ_ΟΤΟΥ διάρκεια_στάθμευσης > 0

!iii. καλεί υποπρόγραμμα για τον υπολογισμό του ποσού που πρέπει
                                !     να πληρώσει ο κάτοχός του.
      ποσό <- υπολογισμός (διάρκεια_στάθμευσης) 

!iv.  εμφανίζει τον αριθμό κυκλοφορίας και το ποσό που αναλογεί.
      ΓΡΑΨΕ αριθμός_κυκλοφορίας, ' ', ποσό

!γ) εμφανίζει το πλήθος των αυτοκινήτων που έμειναν στο πάρκινγκ
                                         !   μέχρι και δύο ώρες.
      ΑΝ διάρκεια_στάθμευσης >= 2 ΤΟΤΕ
        πλήθος_πάνω_από_2_ώρες <- πλήθος_πάνω_από_2_ώρες + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ αριθμός_κυκλοφορίας = '0'

  ΓΡΑΨΕ 'Πλήθος αυτοκινήτων πάνω από 2 ώρες: ', πλήθος_πάνω_από_2_ώρες
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ



!ΙΙ. Να κατασκευάσετε το υποπρόγραμμα που καλείται στο ερώτημα β) iii.
ΣΥΝΑΡΤΗΣΗ υπολογισμός (διάρκεια): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: διάρκεια
ΑΡΧΗ
  ΑΝ διάρκεια <= 3 ΤΟΤΕ
    υπολογισμός <- 2* διάρκεια
  ΑΛΛΙΩΣ_ΑΝ διάρκεια <= 5 ΤΟΤΕ
    υπολογισμός <- 2* 3 + (διάρκεια - 2)* 1.5
  ΑΛΛΙΩΣ
    υπολογισμός <- 2* 3 + 2* 1.5 + (διάρκεια - 5)* 1.3
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ