! ===============================================================================================
! ΕΣΠΕΡΙΝΟ - ΙΟΥΛΙΟΣ 2006 - ΘΕΜΑ 3
! ===============================================================================================
! Ένας αγρότης παράγει ένα μόνο προϊόν από τα δύο που επιδοτούνται.
! Να γραφεί αλγόριθμος ο οποίος:
! α) Διαβάζει το ονοματεπώνυμο του αγρότη, το είδος του προϊόντος που παράγει και την ποσότητα
! του προϊόντος σε κιλά, ελέγχοντας την ορθότητα εισαγωγής των δεδομένων σύμφωνα με τα
! παρακάτω:
! - Το είδος του προϊόντος είναι Α ή Β.
! - Η ποσότητα του προϊόντος είναι θετικός αριθμός.
! β) Υπολογίζει την επιδότηση που δικαιούται ο αγρότης για το είδος του προϊόντος που παράγει.
! Η επιδότηση υπολογίζεται κλιμακωτά ανάλογα με την ποσότητα και το είδος του προϊόντος
! σύμφωνα με τον παρακάτω πίνακα:
!
! Ποσότητα προϊόντος σε κιλά Επιδότηση ανά κιλό προϊόντος σε ευρώ
! Προϊόν Α Προϊόν Β
! έως και 1.000 0,8 0,7
! από 1.001 έως και 2.500 0,7 0,6
! από 2.501 και άνω 0,6 0,5
!
! γ) Εμφανίζει το ονοματεπώνυμο του αγρότη, το είδος του προϊόντος που παράγει και το ποσό
! της επιδότησης που δικαιούται.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ES_2006_07_3
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : ποσ , επιδ
ΧΑΡΑΚΤΗΡΕΣ : ονομα , πρ
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε το ονοματεπώνυμο του αγρότη'
ΔΙΑΒΑΣΕ ονομα
ΓΡΑΨΕ 'Ποιο προϊόν παράγει Α ή Β'
ΔΙΑΒΑΣΕ πρ
ΟΣΟ πρ <> 'Α' ΚΑΙ πρ <> 'Β' ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Λάθος. Ξαναδώσε Α ή Β ;'
ΔΙΑΒΑΣΕ πρ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Σε ποια ποσότητα (κιλά);'
ΔΙΑΒΑΣΕ ποσ
ΟΣΟ ποσ <= 0 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Λάθος. Ξαναδώσε'
ΔΙΑΒΑΣΕ ποσ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ποσ <= 1000 ΤΟΤΕ
ΑΝ πρ = 'Α' ΤΟΤΕ
επιδ <-- 0.8*ποσ
ΑΛΛΙΩΣ
επιδ <-- 0.7*ποσ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ ποσ <= 2500 ΤΟΤΕ
ΑΝ πρ = 'Α' ΤΟΤΕ
επιδ <-- 0.8*1000 + (ποσ-1000)*0.7
ΑΛΛΙΩΣ
επιδ <-- 0.7*1000 + (ποσ-1000)*0.6
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΑΝ πρ = 'Α' ΤΟΤΕ
επιδ <-- 0.8*1000 + 0.7*1500 + (ποσ-2500)*0.6
ΑΛΛΙΩΣ
επιδ <-- 0.7*1000 + 0.6*1500 + (ποσ-2500)*0.5
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Ο Αγρότης :',ονομα,'παράγει το προϊόν',πρ
ΓΡΑΨΕ 'και δικαιούται επιδότηση',επιδ,'EURO'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ