ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: sum_ασθενών, sum_ασθ_γρίπη, maxangel, sum_angel, max_γριπη, πλ_ασθ_κλιν, sum_ηλ_γριπ, πλ_ασθ_γριπη, max_ηλ, min_ηλ, sum_ηλ, i, κλινική, κλινική2
ΠΡΑΓΜΑΤΙΚΕΣ: Μο_ηλ, Μο_ηλ_γριπη, ποσ_γριπ, ποσοστό_με_γριπη, ποσoστό_angel
ΧΑΡΑΚΤΗΡΕΣ:απ1
, απ2 , ον
ΑΡΧΗ
sum_ασθενών ← 0
sum_ασθ_γρίπη ← 0
maxangel ← -1
sum_angel ← 0
max_γριπη ← -1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
πλ_ασθ_κλιν ← 0
sum_ηλ_γριπ ← 0
πλ_ασθ_γριπη ← 0
max_ηλ ← - 1
πλ_angel ← 0
min_ηλ ← 200
sum_ηλ ← 0
ΓΡΑΨΕ 'δώσε όνομα ασθενή'
ΔΙΑΒΑΣΕ ον
ΟΣΟ ον <>
'άδειο' ΚΑΙ πλ_ασθ_κλιν < 60 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Δώσε έτος γέννησης' !ερώτημα β1
ΔΙΑΒΑΣΕ έτος
ηλ ← 2013 - έτος
πλ_ασθ_κλιν ← πλ_ασθ_κλιν + 1 !πληθος ασθενών κλινικής
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Νοσηλεύεται για γρίπη;' !ερώτημα β2
ΔΙΑΒΑΣΕ απ1
ΜΕΧΡΙΣ_ΟΤΟΥ απ1='ναι' Ή απ1='όχι'
ΑΝ απ1='ναι' ΤΟΤΕ
ΓΡΑΨΕ 'Ποιας εταιρείας φάρμακο παίρνετε;'
!ερώτημα β3
ΔΙΑΒΑΣΕ απ2
ΑΝ απ2='ANGEL & FLU LABS' ΤΟΤΕ
πλ_angel ← πλ_angel + 1 !πληθ ασθενών με γρίπη που παίρνουν Angel
ΤΕΛΟΣ_ΑΝ
πλ_ασθ_γριπη ← πλ_ασθ_γριπη + 1 !πληθος ασθενών με γρίπη
sum_ηλ_γριπ ← sum_ηλ_γριπ + ηλ !άθροισμα ηλικιών ασθενών με
γρίπη
ΑΝ ηλ > max_ηλ ΤΟΤΕ
max_ηλ ← ηλ
max_ηλ_γρίπη ← oν !μεγαλύτερος σε ηλικία ασθενής με γρίπη
ΤΕΛΟΣ_ΑΝ
ΑΝ ηλ < min_ηλ ΤΟΤΕ
min_ηλ ← ηλ
min_ηλ_γρίπη ← ον !μικρότερος σε ηλικία ασθενής με
γρίπη
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
sum_ηλ ← sum_ηλ + ηλ !άθροισμα ηλικιών
όλων των ασθενών
ΓΡΑΨΕ 'δώσε όνομα ασθενή'
ΔΙΑΒΑΣΕ
ον
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ πλ_ασθ_γριπη <> 0 ΤΟΤΕ !αν υπάρχουν ασθενείς με γρίπη
Μο_ηλ_γριπη ← sum_ηλ_γριπ/πλ_ασθ_γριπη !ερώτημα β4
ΓΡΑΨΕ
Mο_ηλ_γριπη
ΓΡΑΨΕ max_ηλ_γρίπη , min_ηλ_γρίπη !ερώτημα β6
ΤΕΛΟΣ_ΑΝ
ΑΝ πλ_ασθ_κλιν <> 0 ΤΟΤΕ !αν υπάρχουν ασθενείς στην κλινική
Μο_ηλ ← sum_ηλ / πλ_ασθ_κλιν
ΓΡΑΨΕ Μο_ηλ !ερώτημα β4
ποσοστό_με_γριπη ← πλ_ασθ_γριπη/ πλ_ασθ_κλιν *100
ΓΡΑΨΕ ποσοστό_με_γριπη !ερώτημα β5
ΤΕΛΟΣ_ΑΝ
sum_ασθενών ← sum_ασθενών + πλ_ασθ_κλιν !σύνολο ασθενών
sum_ασθ_γρίπη ← sum_ασθ_γρίπη + πλ_ασθ_γριπη !σύνολο ασθενών με γρίπη
ΑΝ πλ_ασθ_γριπη > max_γριπη ΤΟΤΕ
max_γριπη ← πλ_ασθ_γριπη !ερώτημα α2
κλινική ← i
ΤΕΛΟΣ_ΑΝ
ΑΝ πλ_angel > maxangel ΤΟΤΕ
maxangel ← πλ_angel !ερώτημα α3
κλινική2 ← i
ΤΕΛΟΣ_ΑΝ
sum_angel ← sum_angel + πλ_angel !σύνολο όσων παίρνουν angel
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ sum_ασθενών <> 0 ΤΟΤΕ
ποσ_γριπ ← sum_ασθ_γρίπη / sum_ασθενών *100 !ερώτημα α1
ΓΡΑΨΕ ποσ_γρ
ΤΕΛΟΣ_ΑΝ
ΑΝ sum_ασθ_γρίπη <> 0 ΤΟΤΕ
ποσoστό_angel ← sum_angel / sum_ασθ_γρίπη *100
ΓΡΑΨΕ ποσoστό_angel !ερώτημα α4
ΤΕΛΟΣ_ΑΝ
ΑΝ max_γριπη <> - 1 ΤΟΤΕ
ΓΡΑΨΕ κλινική !ερώτημα α2
ΤΕΛΟΣ_ΑΝ
ΑΝ maxangel <> - 1 ΤΟΤΕ
ΓΡΑΨΕ κλινική2 !ερώτημα α3
ΤΕΛΟΣ_ΑΝ
ΑΝ ποσoστό_angel < 25 ΤΟΤΕ
ΓΡΑΨΕ ‘ Απαιτείται
δημιουργία νέου αντιγριπικού’
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου