! ==============================================================================
! ΗΜΕΡΗΣΙΟ - ΙOYΛIΟΣ 2008 - ΘΕΜΑ 3
! ==============================================================================
! Μία εταιρεία αποφάσισε να δώσει βοηθητικό επίδομα στους υπαλλήλους της για το
! μήνα Ιούλιο. Το επίδομα διαφοροποιείται, ανάλογα με το φύλο του/της υπαλλήλου
! και τον αριθμό των παιδιών του/της, με βάση τους παρακάτω πίνακες:
!
! *--------------------------------*---------------------------------*
! | ΑΝΔΡΕΣ | ΓΥΝΑΙΚΕΣ |
! *--------------------------------*---------------------------------*
! | ΑΡΙΘΜΟΣ ΠΑΙΔΙΩΝ | ΕΠΙΔΟΜΑ ΣΕ € | ΑΡΙΘΜΟΣ ΠΑΙΔΙΩΝ | ΕΠΙΔΟΜΑ ΣΕ € |
! *-----------------*--------------*-----------------*---------------*
! | 1 | 20 | 1 | 30 |
! | 2 | 50 | 2 | 80 |
! | >= 3 | 120 | >= 3 | 160 |
! *-----------------*--------------*-----------------*---------------*
!
! Να γράψετε αλγόριθμο ο οποίος
! α. διαβάζει το φύλο ("Α" ή "Γ") το οποίο ελέγχεται ως προς την ορθότητα της
! εισαγωγής του. Επίσης διαβάζει τον μισθό και τον αριθμό των παιδιών του
! υπαλλήλου.
! β. υπολογίζει και εμφανίζει το επίδομα και το συνολικό ποσό που θα εισπράξει
! ο υπάλληλος τον μήνα Ιούλιο.
! γ. δέχεται απάντηση "ΝΑΙ" ή "ΟΧΙ" για τη συνέχεια ή τον τερματισμό της
! επανάληψης μετά την εμφάνιση σχετικού μηνύματος.
! δ. υπολογίζει και εμφανίζει το συνολικό ποσό επιδόματος που πρέπει να
! καταβάλει η Εταιρεία στους υπαλλήλους της.
! ==============================================================================
ΠΡΟΓΡΑΜΜΑ ΗΜ_2008_07_3
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : s , n , x
ΠΡΑΓΜΑΤΙΚΕΣ : pay
ΧΑΡΑΚΤΗΡΕΣ : gender , answer
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το φύλο του/της υπαλλήλου (Α ή Γ)'
ΔΙΑΒΑΣΕ gender
ΟΣΟ gender <> 'Α' ΚΑΙ gender <> 'Γ' ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Λάθος. Ξαναδώσε.'
ΔΙΑΒΑΣΕ gender
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το μισθό που παίρνει.'
ΔΙΑΒΑΣΕ pay
ΓΡΑΨΕ 'Πόσα παιδιά έχει;'
ΔΙΑΒΑΣΕ n
ΑΝ gender = 'Α' ΤΟΤΕ
ΑΝ n = 1 ΤΟΤΕ
x <-- 20
ΑΛΛΙΩΣ_ΑΝ n = 2 ΤΟΤΕ
x <-- 50
ΑΛΛΙΩΣ
x <-- 120
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΑΝ n = 1 ΤΟΤΕ
x <-- 30
ΑΛΛΙΩΣ_ΑΝ n = 2 ΤΟΤΕ
x <-- 80
ΑΛΛΙΩΣ
x <-- 160
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Επίδομα υπαλλήλου =' , x
ΓΡΑΨΕ 'Συνολικό ποσό προς είσπραξη =' , pay+x
s <-- s + x
ΓΡΑΨΕ 'Υπάρχει και άλλος ή άλλη;'
ΓΡΑΨΕ ' (ΝΑΙ ή ΟΧΙ)'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ answer
ΜΕΧΡΙΣ_ΟΤΟΥ answer = 'ΝΑΙ' ή answer = 'ΟΧΙ'
ΜΕΧΡΙΣ_ΟΤΟΥ answer = 'ΟΧΙ'
ΓΡΑΨΕ 'Συνολικό ποσό επιδομάτων =' , s
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ