Θέμα 4ο : Απολυτήριες εξετάσεις εσπερινού ενιαίου λυκείου 2002

Στο πλαίσιο προγράμματος προληπτικής ιατρικής για την
αντιμετώπιση του νεανικού διαβήτη έγιναν αιματολογικές
εξετάσεις στους 90 μαθητές (αγόρια και κορίτσια) ενός
Γυμνασίου. Για κάθε παιδί καταχωρίστηκαν τα ακόλουθα
στοιχεία:
   1. ονοματεπώνυμο μαθητή
   2. κωδικός φύλου ("Α" για τα αγόρια και "Κ" για τα κορίτσια)
   3. περιεκτικότητα σακχάρου στο αίμα.
Οι φυσιολογικές τιμές σακχάρου στο αίμα κυμαίνονται από
70 έως 110 mg/dl (συμπεριλαμβανομένων και των ακραίων
τιμών).
Nα αναπτύξετε αλγόριθμο που
α) θα διαβάζει τα παραπάνω στοιχεία (ονοματεπώνυμο, φύλο,
    περιεκτικότητα σακχάρου στο αίμα) και θα ελέγχει την
    αξιόπιστη καταχώρισή τους (δηλαδή το φύλο να είναι
    μόνο "Α" ή "Κ" και η περιεκτικότητα σακχάρου στο αίμα
    να είναι θετικός αριθμός),
                                                                         Μονάδες 5
β) θα εμφανίζει για κάθε παιδί του οποίου η περιεκτικότητα
    σακχάρου στο αίμα είναι εκτός των φυσιολογικών τιμών,
    το ονοματεπώνυμο, το φύλο και την περιεκτικότητα
    του σακχάρου,
                                                                         Μονάδες 5
γ) θα εμφανίζει το συνολικό αριθμό των αγοριών των
    οποίων η περιεκτικότητα σακχάρου στο αίμα δεν είναι
    φυσιολογική και
                                                                        Μονάδες 5
δ) θα εμφανίζει το συνολικό αριθμό των κοριτσιών των
    οποίων η περιεκτικότητα σακχάρου στο αίμα δεν είναι
    φυσιολογική.
                                                                        Μονάδες 5

Λύση

     Αλγόριθμος Θ4_Εσπ2002
     Αγόρια <-- 0
     Κορίτσια <-- 0
     Για λ από 1 μέχρι 90
          Διάβασε Ον
          Αρχή_επανάληψης
               Διάβασε Φύλο
          Μέχρις_ότου (Φύλο = 'Α') Ή (Φύλο = 'Κ')
          Αρχή_επανάληψης
               Διάβασε Σάκχαρο
          Μέχρις_ότου Σάκχαρο > 0
          Αν (Σάκχαρο < 70) Ή (Σάκχαρο > 110) τότε
               Εμφάνισε Ον, Φύλο, Σάκχαρο
               Αν Φύλο = 'Α' τότε
                    Αγόρια <-- Αγόρια+1
               αλλιώς
                    Κορίτσια <-- Κορίτσια+1

               Τέλος_αν
          Τέλος_αν
     Τέλος_επανάληψης
     Εμφάνισε Αγόρια, Κορίτσια
     Τέλος Θ4_Εσπ2002