∆ημόσιος οργανισμός διαθέτει ένα συγκεκριμένο ποσό για την επιδότηση επενδυτικών έργων. Η επιδότηση γίνεται κατόπιν αξιολόγησης και αφορά δύο συγκεκριμένες
κατηγορίες έργων με βάση τον προϋπολογισμό τους. Οι κατηγορίες και τα αντίστοιχα ποσοστά επιδότησης επί του προϋπολογισμού φαίνονται στον παρακάτω πίνακα.
Κατηγορία έργου Προϋπολογισμός έργου σε ευρώ Ποσοστό Επιδότησης
Μικρή 200.000 – 299.999 60%
Μεγάλη 300.000 – 399.999 70%
Η εκταμίευση των επιδοτήσεων των αξιολογηθέντων έργων γίνεται με βάση τη χρονική σειρά υποβολής τους. Μετά από κάθε εκταμίευση μειώνεται το ποσό που διαθέτει ο
οργανισμός. Να αναπτύξετε αλγόριθμο ο οποίος:
Γ1. Να διαβάζει το ποσό που διαθέτει ο οργανισμός για το πρόγραμμα επενδύσεων συνολικά, ελέγχοντας ότι το ποσό είναι μεγαλύτερο από 5.000.000 ευρώ.
Μονάδες 2
Γ2. Να διαβάζει το όνομα κάθε έργου. Η σειρά ανάγνωσης
είναι η σειρά υποβολής των έργων. Η επαναληπτική
διαδικασία να τερματίζεται, όταν αντί για όνομα έργου
δοθεί η λέξη «ΤΕΛΟΣ», ή όταν το διαθέσιμο ποσό έχει
μειωθεί τόσο, ώστε να μην είναι δυνατή η επιδότηση
ούτε ενός έργου μικρής κατηγορίας. Για κάθε έργο,
αφού διαβάσει το όνομά του, να διαβάζει και τον
προϋπολογισμό του (δεν απαιτείται έλεγχος
εγκυρότητας του προϋπολογισμού).
Μονάδες 6
Γ3. Για κάθε έργο να ελέγχει αν το διαθέσιμο ποσό
καλύπτει την επιδότηση, και μόνον τότε να γίνεται η
εκταμίευση του ποσού. Στη συνέχεια, να εμφανίζει το
όνομα του έργου και το ποσό της επιδότησης που
δόθηκε.
Μονάδες 6
Γ4. Να εμφανίζει το πλήθος των έργων που επιδοτήθηκαν
από κάθε κατηγορία καθώς και τη συνολική επιδότηση
που δόθηκε σε κάθε κατηγορία.
Μονάδες 4
Γ5. Μετά το τέλος της επαναληπτικής διαδικασίας να
εμφανίζει το ποσό που δεν έχει διατεθεί, μόνο αν είναι
μεγαλύτερο του μηδενός.
Μονάδες 2
ΠΡΟΓΡΑΜΜΑ Γ2012
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:ΜΙΚΡΑ,ΜΕΓΑΛΑ
ΠΡΑΓΜΑΤΙΚΕΣ:ΣΠΟΣΟ,Σ_ΜΙΚΡΩΝ,Σ_ΜΕΓΑΛΩΝ,ΠΡΟΥΠ
ΧΑΡΑΚΤΗΡΕΣ:ΟΝΟΜΑ
ΑΡΧΗ
!Γ1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΣΠΟΣΟ
ΜΕΧΡΙΣ_ΟΤΟΥ ΣΠΟΣΟ>5000000
ΜΙΚΡΑ<-0 !ΠΛΗΘΟΣ
ΜΙΚΡΩΝ ΠΟΥ ΕΠΙΔΟΤΗΘΗΚΑΝ
ΜΕΓΑΛΑ<-0 !ΠΛΗΘΟΣ
ΜΕΓΑΛΩΝ ΠΟΥ ΕΠΙΔΟΤΗΘΗΚΑΝ
Σ_ΜΙΚΡΩΝ<-0 !ΣΥΝΟΛΙΚΗ ΕΠΙΔΟΤΗΣΗ
ΜΙΚΡΩΝ
Σ_ΜΕΓΑΛΩΝ<-0 !ΣΥΝΟΛΙΚΗ ΕΠΙΔΟΤΗΣΗ ΜΕΓΑΛΩΝ
ΔΙΑΒΑΣΕ ΟΝΟΜΑ
ΟΣΟ ΟΝΟΜΑ<>‘ΤΕΛΟΣ’ ΚΑΙ ΣΠΟΣΟ>=120000 ΕΠΑΝΑΛΑΒΕ
ΔΙΑΒΑΣΕ ΠΡΟΥΠ
ΑΝ ΠΡΟΥΠ<=299999 ΤΟΤΕ
ΕΠΙΔ<-0.6*ΠΡΟΥΠ
ΑΛΛΙΩΣ
ΕΠΙΔ<-0.7*ΠΡΟΥΠ
ΤΕΛΟΣ_ΑΝ
ΑΝ ΕΠΙΔ<=ΣΠΟΣΟ ΤΟΤΕ
ΣΠΟΣΟ<-ΣΠΟΣΟ–ΕΠΙΔ
ΓΡΑΨΕ ΟΝΟΜΑ,ΕΠΙΔ
ΑΝ ΠΡΟΥΠ<=299999 ΤΟΤΕ
ΜΙΚΡΑ<-ΜΙΚΡΑ+1
Σ_ΜΙΚΡΩΝ<-Σ_ΜΙΚΡΩΝ+ΕΠΙΔ
ΑΛΛΙΩΣ
ΜΕΓΑΛΑ<-ΜΕΓΑΛΑ+1
Σ_ΜΕΓΑΛΩΝ<-Σ_ΜΕΓΑΛΩΝ+ΕΠΙΔ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΔΙΑΒΑΣΕ ΟΝΟΜΑ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΜΙΚΡΑ,ΜΕΓΑΛΑ,Σ_ΜΙΚΡΩΝ,Σ_ΜΕΓΑΛΩΝ
ΑΝ ΣΠΟΣΟ>0 ΤΟΤΕ
ΓΡΑΨΕ ΣΠΟΣΟ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ