! =============================================================================================== ! ΗΜΕΡΗΣΙΟ - ΙOYNIΟΣ 2008 - ΘΕΜΑ 3 ! =============================================================================================== ! Μία εταιρεία ενοικίασης αυτοκινήτων έχει νοικιάσει 30 αυτοκίνητα τα οποία κατηγοριοποιούνται ! σε οικολογικά και συμβατικά. Η πολιτική χρέωσης για την ενοικίαση ανά κατηγορία και ανά ημέρα ! δίνεται στον παρακάτω πίνακα. ! --------------------------------------------------- ! ΗΜΕΡΕΣ ΟΙΚΟΛΟΓΙΚΑ ΣΥΜΒΑΤΙΚΑ ! --------------------------------------------------- ! 1 - 7 30 € ανά ημέρα 40 € ανά ημέρα ! 8 - 16 20 € ανά ημέρα 30 € ανά ημέρα ! από 17 και άνω 10 € ανά ημέρα 20 € ανά ημέρα ! --------------------------------------------------- ! 1. Να αναπτύξετε πρόγραμμα το οποίο: ! α. Περιλαμβάνει τμήμα δηλώσεων μεταβλητών. ! β. Για κάθε αυτοκίνητο το οποίο έχει ενοικιαστεί: ! i. Διαβάζει την κατηγορία του ("ΟΙΚΟΛΟΓΙΚΑ" ή "ΣΥΜΒΑΤΙΚΑ") και τις ημέρες ενοικίασης. ! ii. Καλεί υποπρόγραμμα με είσοδο την κατηγορία του αυτοκινήτου και τις ημέρες ενοικίασης ! και υπολογίζει με βάση τον παραπάνω πίνακα τη χρέωση. ! iii. Εμφανίζει το μήνυμα "χρέωση" και τη χρέωση που υπολογίσατε. ! γ. Υπολογίζει και εμφανίζει το πλήθος των οικολογικών και των συμβατικών αυτοκινήτων. ! ! 2. Να κατασκευάσετε το κατάλληλο υποπρόγραμμα του ερωτήματος 1.β.ii . ! ! ΣΗΜΕΙΩΣΗ: 1) Δεν απαιτείται έλεγχος εγκυρότητας για τα δεδομένα εισόδου και ! 2) Ο υπολογισμός της χρέωσης δεν πρέπει να γίνει κλιμακωτά. ! =============================================================================================== ! ΠΡΟΓΡΑΜΜΑ ΗΜ_2008_06_3 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ : d , i , x , n1 , n2 ΧΑΡΑΚΤΗΡΕΣ : cat ΑΡΧΗ n1 <-- 0 ! ΠΛΗΘΟΣ ΟΙΚΟΛΟΓΙΚΩΝ ΑΥΤΟΚΙΝΗΤΩΝ n2 <-- 0 ! ΠΛΗΘΟΣ ΣΥΜΒΑΤΙΚΩΝ ΑΥΤΟΚΙΝΗΤΩΝ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30 ΓΡΑΨΕ 'Δώσε την κατηγορία του αυτοκινήτου Νο' , i ΔΙΑΒΑΣΕ cat ΓΡΑΨΕ 'Πόσες ημέρες νοικιάστηκε ;' ΔΙΑΒΑΣΕ d ΑΝ cat = 'ΟΙΚΟΛΟΓΙΚΟ' ΤΟΤΕ n1 <-- n1 + 1 ΑΛΛΙΩΣ n2 <-- n2 + 1 ΤΕΛΟΣ_ΑΝ x <-- poso(cat , d) ΓΡΑΨΕ 'ΧΡΕΩΣΗ =' , x ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'ΠΛΗΘΟΣ ΟΙΚΟΛΟΓΙΚΩΝ ΑΥΤΟΚΙΝΗΤΩΝ =' , n1 ΓΡΑΨΕ 'ΠΛΗΘΟΣ ΣΥΜΒΑΤΙΚΩΝ ΑΥΤΟΚΙΝΗΤΩΝ =' , n2 ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ poso(c , x) : ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ : x ΧΑΡΑΚΤΗΡΕΣ : c ΑΡΧΗ ΑΝ x <= 7 ΤΟΤΕ ΑΝ c = 'ΟΙΚΟΛΟΓΙΚΟ' ΤΟΤΕ poso <-- x*30 ΑΛΛΙΩΣ poso <-- x*40 ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ_ΑΝ x <= 16 ΤΟΤΕ ΑΝ c = 'ΟΙΚΟΛΟΓΙΚΟ' ΤΟΤΕ poso <-- x*20 ΑΛΛΙΩΣ poso <-- x*30 ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ ΑΝ c = 'ΟΙΚΟΛΟΓΙΚΟ' ΤΟΤΕ poso <-- x*10 ΑΛΛΙΩΣ poso <-- x*20 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ