Τώρα είναι Πέμ 28 Μαρ 2024 11:08 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: Ημερήσιο - Θέμα 3
ΔημοσίευσηΔημοσιεύτηκε: Δευτ 28 Ιούλ 2008 12:34 pm 
Χωρίς σύνδεση

Εγγραφή: Κυρ 12 Οκτ 2003 01:52 am
Δημοσιεύσεις: 189
Τοποθεσία: ΝΙΚΑΙΑ - ΠΕΙΡΑΙΑΣ
Syntax: [ Download ] [ Hide ]
! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - Ι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
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
 


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 5 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: