! ====================================================================================================
! ΠΡΟΣΟΜΟΙΩΣΗ 2008 - ΘΕΜΑ 3
! ====================================================================================================
! Μια εταιρία εμπορίας και πώλησης ηλεκτρονικών υπολογιστών απασχολεί έναν αριθμό υπαλλήλων στον
! τομέα της πώλησης οθονών. Κάθε ένας από τους υπαλλήλους αυτούς αμείβεται με βασικό μισθό 1000 ευρώ
! που προσαυξάνεται κλιμακωτά ανάλογα με τις μηνιαίες πωλήσεις που πραγματοποιεί.
! Το bonus που αντιστοιχεί σε κάθε υπάλληλο με βάση τον αριθμό των οθονών που πούλησε, υπολογίζεται
! με βάση τον παρακάτω πίνακα:
!
! Αριθμός Οθονών που πούλησε Βonus για κάθε οθόνη
! 1 - 50 1,5 €
! 51 - 100 3 €
! 101 και άνω 3,5 €
!
! Για παράδειγμα: Αν ένας υπάλληλος πούλησε 52 οθόνες σε ένα μήνα, το bonus που του αντιστοιχεί είναι:
! 50·1,5 + 2·3 = 75 + 6 = 81 €.
!
! 1. Να κατασκευάσετε πρόγραμμα το οποίο:
! α) περιλαμβάνει τμήμα δηλώσεων.
! β) Διαβάζει τα ονοματεπώνυμα πολλών υπαλλήλων και την ποσότητα των οθονών που πούλησε ο καθένας
! και σταματά μόλις δοθεί ως ονοματεπώνυμο ο χαρακτήρας *.
! γ) Καλεί υποπρόγραμμα που δέχεται ως είσοδο τον αριθμό των οθονών που πούλησε ο κάθε υπάλληλος
! και επιστρέφει το bonus που του αντιστοιχεί.
! δ) Εμφανίζει τον συνολικό μισθό κάθε υπαλλήλου (βασικό μισθό και bonus)
! ε) Εμφανίζει το ποσοστό των υπαλλήλων με συνολικό μισθό μεγαλύτερο από 1200€.
!
! 2. Να κατασκευάσετε το υποπρόγραμμα που καλείται στο ερώτημα 1γ.
!=====================================================================================================
ΠΡΟΓΡΑΜΜΑ PR_08_3
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : n , k , x
ΠΡΑΓΜΑΤΙΚΕΣ : s , b , y
ΧΑΡΑΚΤΗΡΕΣ : name
ΑΡΧΗ
n <-- 0 ! ΠΛΗΘΟΣ ΥΠΑΛΛΗΛΩΝ
k <-- 0 ! ΠΛΗΘΟΣ ΥΠΑΛΛΗΛΩΝ ΜΕ ΜΙΣΘΟ > 1200
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε ονοματεπώνυμο υπαλλήλου'
ΔΙΑΒΑΣΕ name
ΑΝ name <> '*' ΤΟΤΕ
n <-- n + 1
ΓΡΑΨΕ 'Πόσες οθόνες πούλησε;'
ΔΙΑΒΑΣΕ x
b <-- bonus(x)
s <-- 1000 + b
ΓΡΑΨΕ 'Ο υπάλληλος' , name , 'παίρνει' , s , 'ευρώ.'
ΑΝ s > 1200 ΤΟΤΕ
k <-- k + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ name = '*'
y <-- 100*k/n
ΓΡΑΨΕ 'το ποσοστό των υπαλλήλων με μισθό πάνω από 1200 ευρώ είναι' , y , '%'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
! ---- ΣΥΝΑΡΤΗΣΗ ----
ΣΥΝΑΡΤΗΣΗ bonus(x): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : x
ΑΡΧΗ
ΑΝ x <= 50 ΤΟΤΕ
bonus <-- x*1.5
ΑΛΛΙΩΣ_ΑΝ x <= 100 ΤΟΤΕ
bonus <-- 50*1.5 + (x-50)*3
ΑΛΛΙΩΣ
bonus <-- 50*1.5 + 50*3 + (x-100)*3.5
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ