e-ΜΑΘΗΜΑΤΑ
Ανάπτυξη Εφαρμογών σε Προγραμματιστικό περιβάλλον

Λύσεις ασκήσεων από θέματα Πανελλαδικών εξετάσεων


ΠΡΟΓΡΑΜΜΑ ΒΡΑΔΙΝΟ_ΚΤΕΟ
! Βραδινά 2010 Θ3
!Σε ΚΤΕΟ της χώρας το 2010 προσέρχονται οχήματα για έλεγχο.
!Τα οχήματα είναι τριών κατηγοριών ΦΟΡΤΗΓΟ, ΕΠΙΒΑΤΗΓΟ, ΔΙΚΥΚΛΟ
!και πληρώνουν 60 euro, 40 euro και 20 euro αντίστοιχα.
!Ένα όχημα χαρακτηρίζεται ως προς την προσέλευσή του
!"ΕΜΠΡΟΘΕΣΜΟ" ή "ΕΚΠΡΟΘΕΣΜΟ". Τα οχήματα που προσέρχονται εκπρόθεσμα
!επιβαρύνονται με πρόστιμο 15,80 euro.
!Να αναπτύξετε πρόγραμμα σε  "ΓΛΩΣΣΑ" το οποίο:
!Γ1. Περιλαμβάνει τμήμα δηλώσεων μεταβλητών.  Μονάδες 2
!Γ2. Για κάθε όχημα το οποίο προσέρχεται στο ΚΤΕΟ για έλεγχο
!    α. διαβάζει την κατηγορία του, το έτος της πρώτης κυκλοφορίας
!    και τον τύπο προσέλευσης χωρίς κανένα έλεγχο εγκυρότητας. (μονάδες 2)
!    β. υπολογίζει και εμφανίζει, με βάση την κατηγορία του και
!    την εμπρόθεσμη ή εκπρόθεσμη προσέλευσή του, το ποσό πληρωμής.
!    (μονάδες 4)
!    Η διαδικασία εισαγωγής δεδομένων τερματίζει όταν δοθεί η
!    τιμή "Τ" σαν κατηγορία οχήματος.
!Γ3. Εμφανίζει το πλήθος των φορτηγών που προσήλθαν στο ΚΤΕΟ.
!    Μονάδες 3
!Γ4. Εμφανίζει την κατηγορία του παλαιότερου οχήματος. Μονάδες 5
!Γ5. Εμφανίζει το συνολικό ποσό προστίμου. Μονάδες 4
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: κατηγορία, τύπος, κατηγορία_παλαιότερου
  ΑΚΕΡΑΙΕΣ: έτος, πλήθος_φορτηγών, παλαιότερο_έτος
  ΠΡΑΓΜΑΤΙΚΕΣ: ποσό_πληρωμής, συνολικό_πρόστιμο
  
ΑΡΧΗ
! αρχικοποίηση τιμών
  πλήθος_φορτηγών <- 0
  συνολικό_πρόστιμο <- 0.0
  παλαιότερο_έτος <- 2010
  κατηγορία_παλαιότερου <- '-'
  ποσό_πληρωμής <- 0.0
  
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε κατηγορία οχήματος : '
    ΔΙΑΒΑΣΕ κατηγορία
    
    ΑΝ κατηγορία <> 'Τ' ΤΟΤΕ
      ΓΡΑΨΕ 'Δώσε έτος της πρώτης κυκλοφορίας: '
      ΔΙΑΒΑΣΕ έτος
      
      ΓΡΑΨΕ 'Δώσε τύπο προσέλευσης (ΕΜΠΡΟΘΕΣΜΟ/ΕΚΠΡΟΘΕΣΜΟ): '
      ΔΙΑΒΑΣΕ τύπος


      ΑΝ κατηγορία = 'ΦΟΡΤΗΓΟ' ΤΟΤΕ
        ποσό_πληρωμής <- 60.0
      ΑΛΛΙΩΣ_ΑΝ κατηγορία = 'ΕΠΙΒΑΤΗΓΟ' ΤΟΤΕ
        ποσό_πληρωμής <- 40.0
      ΑΛΛΙΩΣ_ΑΝ κατηγορία = 'ΔΙΚΥΚΛΟ' ΤΟΤΕ
        ποσό_πληρωμής <- 20.0
      ΤΕΛΟΣ_ΑΝ
      ΑΝ τύπος = 'ΕΚΠΡΟΘΕΣΜΟ' ΤΟΤΕ
        ποσό_πληρωμής <- ποσό_πληρωμής + 15.80
      ΤΕΛΟΣ_ΑΝ
      
      ΓΡΑΨΕ 'Ποσό πληρωμής : ', ποσό_πληρωμής
      
      ΑΝ κατηγορία = 'ΦΟΡΤΗΓΟ' ΤΟΤΕ
        πλήθος_φορτηγών <- πλήθος_φορτηγών + 1
      ΤΕΛΟΣ_ΑΝ
      
      ΑΝ έτος < παλαιότερο_έτος ΤΟΤΕ
        παλαιότερο_έτος <- έτος
        κατηγορία_παλαιότερου <- κατηγορία
      ΤΕΛΟΣ_ΑΝ
      
      ΑΝ τύπος = 'ΕΚΠΡΟΘΕΣΜΟ' ΤΟΤΕ
        συνολικό_πρόστιμο <- συνολικό_πρόστιμο + 15.80
      ΤΕΛΟΣ_ΑΝ
      
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ κατηγορία = 'Τ'

  ΓΡΑΨΕ 'Πλήθος φορτηγών : ', πλήθος_φορτηγών
  ΓΡΑΨΕ 'Κατηγορία παλαιότερου οχήματος : ', κατηγορία_παλαιότερου
  ΓΡΑΨΕ 'Συνολικό πρόστιμο : ', συνολικό_πρόστιμο
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 


 

Κεντρική Σελίδα Αλλα e-μαθήματα ΑΕΠΠ Αλλη άσκηση Επιστροφή στην κορυφή της σελίδας
© 2010 - 2ο Γενικό Λύκειο Γέρακα - Βασίλειος Αναστόπουλος