2ο ΓΕΛ Γέρακα - ΑΣΚΗΣΕΙΣ ΑΕΠΠ - Επαναληπτικές Εσπερινών 2005

e-ΜΑΘΗΜΑΤΑ
Ανάπτυξη Εφαρμογών σε Προγραμματιστικό περιβάλλον
Λύσεις ασκήσεων από θέματα Πανελλαδικών εξετάσεων

Αλγόριθμος νοσοκομείο

! ΕΒ2005-Θ4

!Να αναπτύξετε έναν αλγόριθμο, ώστε

!α) να διαβάζει το πλήθος των ασθενών ενός νοσοκομείου, το οποίο δεν μπορεί να

!   δεχτεί περισσότερους από 500 ασθενείς,

!β) για κάθε ασθενή να διαβάζει τις ημέρες νοσηλείας του, τον κωδικό του ασφαλιστικού

!   του ταμείου και τη θέση νοσηλείας. Να ελέγχει την ορθότητα εισαγωγής των δεδομένων

!   σύμφωνα με τα παρακάτω:

!   -  οι ημέρες νοσηλείας είναι ακέραιος αριθμός μεγαλύτερος ή ίσος του 1,

!   - τα ασφαλιστικά ταμεία είναι 10 με κωδικούς από 1 μέχρι και 10,

!   - οι θέσεις νοσηλείας είναι Α ή Β ή Γ,

!γ) να υπολογίζει και να εμφανίζει το μέσο όρο ημερών νοσηλείας των ασθενών στο νοσοκομείο,

!δ) να υπολογίζει και να εμφανίζει για κάθε ασθενή το κόστος παραμονής που πρέπει να

!   καταβάλει στο νοσοκομείο το ασφαλιστικό του ταμείο σύμφωνα με τις ημέρες και τη

!   θέση νοσηλείας.

!   Το κόστος παραμονής στο νοσοκομείο ανά ημέρα και θέση νοσηλείας για κάθε ασθενή

!   φαίνεται στον ακόλουθο πίνακα:

!   Θέση Νοσηλείας   Κόστος παραμονής ανά ημέρα νοσηλείας για κάθε ασθενή

!          Α           125 

!          Β           90 

!          Γ           60 

! ε) να υπολογίζει και να εμφανίζει με τη χρήση πίνακα το συνολικό κόστος που

!    θα καταβάλει το κάθε ασφαλιστικό ταμείο στο νοσοκομείο,

! στ) να υπολογίζει και να εμφανίζει το συνολικό ποσό που οφείλουν όλα τα

!    ασφαλιστικά ταμεία στο νοσοκομείο.



! Αρχικοποιήσεις

άθροισμα_ημερών_νοσηλείας <- 0

Για i από 1 μέχρι 10

  κόστος_ταμείου[i] <- 0

Τέλος_επανάληψης

συνολικό_ποσό <- 0



!α

Αρχή_επανάληψης

  Εμφάνισε "Δώστε πλήθος των ασθενών νοσοκομείου (<=500)"

  Διάβασε πλήθος

Μέχρις_ότου πλήθος > 0 και πλήθος ≤ 500





!β) για κάθε ασθενή να διαβάζει τις ημέρες νοσηλείας του, τον κωδικό του ασφαλιστικού

!   του ταμείου και τη θέση νοσηλείας. Να ελέγχει την ορθότητα εισαγωγής των δεδομένων

!   σύμφωνα με τα παρακάτω:

!   -  οι ημέρες νοσηλείας είναι ακέραιος αριθμός μεγαλύτερος ή ίσος του 1,

!   - τα ασφαλιστικά ταμεία είναι 10 με κωδικούς από 1 μέχρι και 10,

!   - οι θέσεις νοσηλείας είναι Α ή Β ή Γ,

Για i από 1 μέχρι πλήθος



  Εμφάνισε "Ασθενής ", i

  Αρχή_επανάληψης

    Εμφάνισε "Δώστε ημέρες νοσηλείας: "

    Διάβασε ημέρες_νοσηλείας

  Μέχρις_ότου ημέρες_νοσηλείας ≥ 1



  Αρχή_επανάληψης

    Εμφάνισε "Δώστε κωδικός ταμείου: "

    Διάβασε κωδικός_ταμείου

  Μέχρις_ότου κωδικός_ταμείου ≥ 1 και κωδικός_ταμείου ≤ 10



  Αρχή_επανάληψης

    Εμφάνισε "Δώστε θέση νοσηλείας (Α/Β/Γ): "

    Διάβασε θέση_νοσηλείας

  Μέχρις_ότου θέση_νοσηλείας = "Α" ή θέση_νοσηλείας = "Β" ή θέση_νοσηλείας = "Γ"



!γ) να υπολογίζει και να εμφανίζει το μέσο όρο ημερών νοσηλείας των ασθενών στο νοσοκομείο,

  άθροισμα_ημερών_νοσηλείας <- άθροισμα_ημερών_νοσηλείας + ημέρες_νοσηλείας





!δ) να υπολογίζει και να εμφανίζει για κάθε ασθενή το κόστος παραμονής

  Αν θέση_νοσηλείας = "Α" τότε

    κόστος_παραμονής <- ημέρες_νοσηλείας* 125

  αλλιώς_αν θέση_νοσηλείας = "Β" τότε

    κόστος_παραμονής <- ημέρες_νοσηλείας* 90

  αλλιώς_αν θέση_νοσηλείας = "Γ" τότε

    κόστος_παραμονής <- ημέρες_νοσηλείας* 60

  Τέλος_αν

  Εμφάνισε "Κόστος παραμονής ασθενή: ", κόστος_παραμονής



! ε) να υπολογίζει και να εμφανίζει με τη χρήση πίνακα το συνολικό κόστος που

!    θα καταβάλει το κάθε ασφαλιστικό ταμείο στο νοσοκομείο,

  κόστος_ταμείου[κωδικός_ταμείου] <- κόστος_ταμείου[κωδικός_ταμείου] + κόστος_παραμονής



! στ) να υπολογίζει το συνολικό ποσό που οφείλουν όλα τα ασφαλιστικά ταμεία

  συνολικό_ποσό <- συνολικό_ποσό + κόστος_παραμονής

Τέλος_επανάληψης



!γ

μέσος_όρος_ημερών_νοσηλείας <- άθροισμα_ημερών_νοσηλείας/ πλήθος

Εμφάνισε "Μέσος όρος ημερών νοσηλείας: ", μέσος_όρος_ημερών_νοσηλείας



!ε

Εμφάνισε "Συνολικό κόστος ασφαλιστικού ταμείου"

Για i από 1 μέχρι 10

  Εμφάνισε i, " ", κόστος_ταμείου[i] 

Τέλος_επανάληψης





! στ)

Εμφάνισε "Συνολικό ποσό που οφείλουν όλα τα ασφαλιστικά ταμεία : ", συνολικό_ποσό



Τέλος νοσοκομείο