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