Δομή Επανάληψης - Άσκηση 4
ΘΕΜΑ 4ο(ΕΣΠΕΡΙΝΟΥ10 ΙΟΥΝΙΟΥ 2002)
Στο πλαίσιο προγράμματος προληπτικής ιατρικής για την αντιμετώπιση του νεανικού διαβήτη έγιναν αιματολογικές εξετάσεις στους 90 μαθητές (αγόρια και κορίτσια) ενός Γυμνασίου.
Για κάθε παιδί καταχωρίστηκαν τα ακόλουθα στοιχεία :
1. ονοματεπώνυμο μαθητή
2. κωδικός φύλου ("Α" για τα αγόρια και "Κ" για τα κορίτσια)
3. περιεκτικότητα σακχάρου στο αίμα.
Οι φυσιολογικές τιμές σακχάρου στο αίμα κυμαίνονται από 70 έως 110 mg/dl (συμπεριλαμβανομένων και των ακραίων τιμών). Nα αναπτύξετε αλγόριθμο που
α) θα διαβάζει τα παραπάνω στοιχεία (ονοματεπώνυμο, φύλο, περιεκτικότητα σακχάρου στο αίμα) και θα ελέγχει την αξιόπιστη καταχώρισή τους (δηλαδή το φύλο να είναι μόνο "Α" ή "Κ" και η περιεκτικότητα σακχάρου στο αίμα να είναι θετικός αριθμός),
β) θα εμφανίζει για κάθε παιδί του οποίου η περιεκτικότητα σακχάρου στο αίμα είναι εκτός των φυσιολογικών τιμών, το ονοματεπώνυμο, το φύλο και την περιεκτικότητα του σακχάρου,
γ) θα εμφανίζει το συνολικό αριθμό των αγοριών των οποίων η περιεκτικότητα σακχάρου στο αίμα δεν είναι φυσιολογική και
δ) θα εμφανίζει το συνολικό αριθμό των κοριτσιών των οποίων η περιεκτικότητα σακχάρου στο αίμα δεν είναι φυσιολογική.
ΛΥΣΗ
ΠΡΟΓΡΑΜΜΑ προληπτική_ιατρική
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ονομα, φυλλο
ΑΚΕΡΑΙΕΣ: σακχαρο, ι, αγορια, κοριτσια
ΑΡΧΗ
κοριτσια ← 0
αγορια ← 0
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 90
ΓΡΑΨΕ 'Δώσε το ονοματεπώνυμο'
ΔΙΑΒΑΣΕ ονομα
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το φύλλο Α ή Κ '
ΔΙΑΒΑΣΕ φυλλο
ΜΕΧΡΙΣ_ΟΤΟΥ φυλλο = 'Α' Η φυλλο = 'Κ'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε την περιεκτικότητα σακχάρου'
ΔΙΑΒΑΣΕ σακχαρο
ΜΕΧΡΙΣ_ΟΤΟΥ σακχαρο > 0
ΑΝ σακχαρο > 110 Η σακχαρο < 70 ΤΟΤΕ
ΓΡΑΨΕ 'Ο παρακάτω μαθητής είναι εκτός ορίου: ', ονομα
ΓΡΑΨΕ 'φύλλο: ', φυλλο, ' περιεκτηκότιτα: ', σακχαρο
ΑΝ φυλλο = 'Α' ΤΟΤΕ
αγορια ← αγορια+1
ΤΕΛΟΣ_ΑΝ
ΑΝ φυλλο = 'Κ' ΤΟΤΕ
κοριτσια ← κοριτσια+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Τα αγόρια εκτός ορίου είναι: ', αγορια
ΓΡΑΨΕ 'Τα κορίτσια εκτός ορίου είναι: ', κοριτσια
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ