Αλγόριθμος   Επιδοτήσεις_2012Γ
 
! ------------------------------------------------------------------------------------------
! ΘΕΜΑ 2012 Γ
! Δημόσιος οργανισμός διαθέτει ένα συγκεκριμένο ποσό για την επιδότηση επενδυτικών έργων. 
! Η επιδότηση γίνεται κατόπιν αξιολόγησης και αφορά δύο συγκεκριμένες κατηγορίες έργων με
! βάση τον προϋπολογισμό τους. Οι κατηγορίες και τα αντίστοιχα ποσοστά επιδότησης επί του 
! προϋπολογισμού φαίνονται στον παρακάτω πίνακα.
! Κατηγορία έργου      Προϋπολογισμός έργου σε ευρώ    Ποσοστό Επιδότησης
!     Μικρή                   200.000 - 299.999                 60%
!    Μεγάλη                   300.000 - 399.999                 70%
! Η εκταμίευση των επιδοτήσεων των αξιολογηθέντων έργων γίνεται με βάση τη χρονική σειρά 
! υποβολής τους. Μετά από κάθε εκταμίευση μειώνεται το ποσό που διαθέτει ο οργανισμός. 
!
! Να αναπτύξετε αλγόριθμο ο οποίος:
! Γ1. Να διαβάζει το ποσό που διαθέτει ο οργανισμός για το πρόγραμμα επενδύσεων συνολικά, 
! ελέγχοντας ότι το ποσό είναι μεγαλύτερο από 5.000.000 ευρώ.  (Μονάδες 2)
!
! Γ2. Να διαβάζει το όνομα κάθε έργου. Η σειρά ανάγνωσης είναι η σειρά υποβολής των έργων. 
! Η επαναληπτική διαδικασία να τερματίζεται, όταν αντί για όνομα έργου δοθεί η λέξη «ΤΕΛΟΣ», 
! ή όταν το διαθέσιμο ποσό έχει μειωθεί τόσο, ώστε να μην είναι δυνατή η επιδότηση ούτε ενός 
! έργου μικρής κατηγορίας. Για κάθε έργο, αφού διαβάσει το όνομά του, να διαβάζει και τον 
! προϋπολογισμό του (δεν απαιτείται έλεγχος εγκυρότητας του προϋπολογισμού). (Μονάδες 6)
!
! Γ3. Για κάθε έργο να ελέγχει αν το διαθέσιμο ποσό καλύπτει την επιδότηση, και μόνον τότε 
! να γίνεται η εκταμίευση του ποσού. Στη συνέχεια, να εμφανίζει το όνομα του έργου και το 
! ποσό της επιδότησης που δόθηκε.  (Μονάδες 6)
!
! Γ4. Να εμφανίζει το πλήθος των έργων που επιδοτήθηκαν από κάθε κατηγορία καθώς και τη 
! συνολική επιδότηση που δόθηκε σε κάθε κατηγορία. (Μονάδες 4)
!
! Γ5. Μετά το τέλος της επαναληπτικής διαδικασίας να εμφανίζει το ποσό που δεν έχει διατεθεί, 
! μόνο αν είναι μεγαλύτερο του μηδενός. (Μονάδες 2)
! ------------------------------------------------------------------------------------------

! Αρχικοποιήσεις
πλήθος_μικρών_έργων <- 0
πλήθος_μεγάλων_έργων <- 0
συνολική_επιδότηση_μικρών <- 0
συνολική_επιδότηση_μεγάλων <- 0

! Γ1. Να διαβάζει το ποσό που διαθέτει ο οργανισμός για το πρόγραμμα επενδύσεων συνολικά, 
! ελέγχοντας ότι το ποσό είναι μεγαλύτερο από 5.000.000 ευρώ.
Αρχή_επανάληψης 
  Εμφάνισε 'Δώσε διαθέσιμο ποσό οργανισμού ( >5.000.000) :'
  Διάβασε διαθέσιμο_ποσό
Μέχρις_ότου διαθέσιμο_ποσό > 5000000

! Γ2. Να διαβάζει το όνομα κάθε έργου. Η σειρά ανάγνωσης είναι η σειρά υποβολής των έργων. 
Αρχή_επανάληψης 
    Εμφάνισε 'Δώστε όνομα έργου ή ΤΕΛΟΣ για τερματισμό'
    Διάβασε   όνομα_έργου

    Αν όνομα_έργου <> 'ΤΕΛΟΣ' τότε
       ! Για κάθε έργο, αφού διαβάσει το όνομά του, να διαβάζει και τον προϋπολογισμό του 
       !(δεν απαιτείται έλεγχος εγκυρότητας του προϋπολογισμού).
       Εμφάνισε 'Δώστε προϋπολογισμό έργου:'
       Διάβασε προϋπολογισμός_έργου

       ! Γ3. Για κάθε έργο να ελέγχει αν το διαθέσιμο ποσό καλύπτει την επιδότηση, και μόνον τότε 
       ! να γίνεται η εκταμίευση του ποσού. Στη συνέχεια, να εμφανίζει το όνομα του έργου και το 
       ! ποσό της επιδότησης που δόθηκε. 
       ποσό_επιδότησης <- 0
       Αν προϋπολογισμός_έργου >= 200000 και προϋπολογισμός_έργου <=299999 τότε 
          ποσό_επιδότησης  <- προϋπολογισμός_έργου * 0.6
       αλλιώς_αν προϋπολογισμός_έργου >= 300000 και προϋπολογισμός_έργου <=399999 τότε 
          ποσό_επιδότησης  <- προϋπολογισμός_έργου * 0.7
       Τέλος_αν 

       Αν ποσό_επιδότησης  <=  διαθέσιμο_ποσό τότε
         Εμφάνισε όνομα_έργου, ποσό_επιδότησης
         διαθέσιμο_ποσό <- διαθέσιμο_ποσό - ποσό_επιδότησης
      
         ! Γ4. Να εμφανίζει το πλήθος των έργων που επιδοτήθηκαν από κάθε κατηγορία καθώς και τη
         ! συνολική επιδότηση που δόθηκε σε κάθε κατηγορία.
         Αν προϋπολογισμός_έργου >= 200000 και προϋπολογισμός_έργου <=299999 τότε 
            πλήθος_μικρών_έργων <- πλήθος_μικρών_έργων + 1
            συνολική_επιδότηση_μικρών <- συνολική_επιδότηση_μικρών + ποσό_επιδότησης
         αλλιώς_αν προϋπολογισμός_έργου >= 300000 και προϋπολογισμός_έργου <=399999 τότε 
            πλήθος_μεγάλων_έργων <- πλήθος_μεγάλων_έργων + 1
            συνολική_επιδότηση_μεγάλων <- συνολική_επιδότηση_μεγάλων + ποσό_επιδότησης
         Τέλος_αν 
       Τέλος_αν 
! Η επαναληπτική διαδικασία να τερματίζεται, όταν αντί για όνομα έργου δοθεί η λέξη «ΤΕΛΟΣ», 
! ή όταν το διαθέσιμο ποσό έχει μειωθεί τόσο, ώστε να μην είναι δυνατή η επιδότηση ούτε ενός 
! έργου μικρής κατηγορίας. 
  Τέλος_αν 
Μέχρις_ότου (όνομα_έργου = 'ΤΕΛΟΣ') ή (διαθέσιμο_ποσό < 200000 * 0.6)

! Γ4 εμφάνιση
Εμφάνισε 'Πλήθος μικρών έργων :', πλήθος_μικρών_έργων
Εμφάνισε 'Συνολική επιδότηση μικρών :', συνολική_επιδότηση_μικρών 
Εμφάνισε 'Πλήθος μεγάλων έργων :',  πλήθος_μεγάλων_έργων
Εμφάνισε 'Συνολική επιδότηση μεγάλων: ', συνολική_επιδότηση_μεγάλων

! Γ5. Μετά το τέλος της επαναληπτικής διαδικασίας να εμφανίζει το ποσό που δεν έχει διατεθεί, 
! μόνο αν είναι μεγαλύτερο του μηδενός.
Αν διαθέσιμο_ποσό > 0 τότε 
  Εμφάνισε 'Ποσό που δεν έχει διατεθεί :' , διαθέσιμο_ποσό
Τέλος_αν 

Τέλος Επιδοτήσεις_2012Γ