! ===============================================================================================
! ΕΣΠΕΡΙΝΟ - ΙΟΥΝΙΟΣ 2007 - ΘΕΜΑ 3
! ===============================================================================================
! Μία εταιρεία ασφάλισης οχημάτων καθορίζει το ετήσιο κόστος ασφάλισης ανά τύπο οχήματος (δίκυκλο
! ή αυτοκίνητο) και κυβισμό, συμφωνά με τους παρακάτω πίνακες:
!     ----------------------------------------------------------------------------------------
!     |                  ΔΙΚΥΚΛΟ                |                  ΑΥΤΟΚΙΝΗΤΟ                |
!     ----------------------------------------------------------------------------------------
!     |     Κυβισμός        |  Κόστος Ασφάλισης |      Κυβισμός         | Κόστος Ασφάλισης   |
!     |(σε κυβικά εκατοστά) |    (σε ευρώ)      | (σε κυβικά εκατοστά)  |     (σε ευρώ)      |
!     ----------------------------------------------------------------------------------------
!     |   έως και 125       |      100          |     έως και 1400      |        400         |
!     |   πάνω από 125      |      140          | από 1401 έως και 1800 |        500         |
!     |                     |                   |     πάνω από 1800     |        700         |
!     ----------------------------------------------------------------------------------------
! Αν η ηλικία του οδηγού είναι από 18 έως και 24 ετών τότε το κόστος της ασφάλισης του οχήματος
! προσαυξάνεται κατά 10 % .
! Να αναπτύξετε αλγόριθμο, ο οποίος:
!  α. Να διαβάζει την ηλικία ενός οδηγού, τον τύπο του οχήματος και τον κυβισμό του, ελέγχοντας
!     ώστε ο τύπος του οχήματος να είναι "ΔΙΚΥΚΛΟ" ή "ΑΥΤΟΚΙΝΗΤΟ".
!  β. Να υπολογίζει και να εμφανίζει το ετήσιο κόστος ασφάλισης του οχήματος.
!
! Σημείωση: Να θεωρήσετε ότι η ηλικία του οδηγού είναι τουλάχιστον 18 ετών.
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ  ES_2007_3
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ : age , v
  ΧΑΡΑΚΤΗΡΕΣ : t
  ΠΡΑΓΜΑΤΙΚΕΣ : asf
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε την ηλικία του οδηγού'
  ΔΙΑΒΑΣΕ age
  ΓΡΑΨΕ 'Δώσε τον τύπο του οχήματος'
  ΔΙΑΒΑΣΕ t
  ΟΣΟ t <> 'ΔΙΚΥΚΛΟ' ΚΑΙ t <> 'ΑΥΤΟΚΙΝΗΤΟ' ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'Λάθος. Ξαναδώσε (ΔΙΚΥΚΛΟ ή ΑΥΤΟΚΙΝΗΤΟ)'
    ΔΙΑΒΑΣΕ t
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Πόσα κυβικά είναι;'
  ΔΙΑΒΑΣΕ v
  ΑΝ t = 'ΔΙΚΥΚΛΟ' ΤΟΤΕ
    ΑΝ v <= 125 ΤΟΤΕ
      asf <-- 100
    ΑΛΛΙΩΣ
      asf <-- 140
    ΤΕΛΟΣ_ΑΝ
  ΑΛΛΙΩΣ
    ΑΝ v <= 1400 ΤΟΤΕ
      asf <-- 400
    ΑΛΛΙΩΣ_ΑΝ v <= 1800 ΤΟΤΕ
      asf <-- 500
    ΑΛΛΙΩΣ
      asf <-- 700
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
  ΑΝ age <= 24 ΤΟΤΕ                                
    asf <-- asf + asf*10/100
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ 'Ετήσια ασφάλιστρα', asf , 'EURO'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ