! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 2003 - ΘΕΜΑ 3
! ===============================================================================================
! Κάποια δημοτική αρχή ακολουθεί την εξής τιμολογιακή πολιτική για την κατανάλωση νερού ανά μήνα:
! Χρεώνει πάγιο ποσό 2 ευρώ και εφαρμόζει κλιμακωτή χρέωση σύμφωνα με τον παρακάτω πίνακα :
! -------------------------------------------------
! Κατανάλωση σε κυβικά μέτρα Χρέωση ανά κυβικό
! -------------------------------------------------
! από 0 έως και 5 δωρεάν
! από 5 έως και 10 0,5 ευρώ
! από 10 έως και 20 0,7 ευρώ
! από 20 και άνω 1,0 ευρώ
! -------------------------------------------------
!
! Στο ποσό που προκύπτει από την αξία του νερού και το πάγιο υπολογίζεται ο Φ.Π.Α. με συντελεστή
! 18%. Το τελικό ποσό προκύπτει από την άθροιση της αξίας του νερού, το πάγιο, το Φ.Π.Α. και το
! δημοτικό φόρο που είναι 5 ευρώ.
! Να γράψετε αλγόριθμο ο οποίος:
! α. Να διαβάζει τη μηνιαία κατανάλωση του νερού.
! β. Να υπολογίζει την αξία του νερού που καταναλώθηκε σύμφωνα με την παραπάνω τιμολογιακή
! πολιτική.
! γ. Να υπολογίζει το Φ.Π.Α.
! δ. Να υπολογίζει και να εκτυπώνει το τελικό ποσό.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ΗΜ_2003_07_3
ΣΤΑΘΕΡΕΣ
pagio = 2
foros = 5
fpa = 18/100
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: a ,x , sfpa ,teliko_poso
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε πόσα κυβικά μέτρα νερού καταναλώθηκαν.'
ΔΙΑΒΑΣΕ x
ΑΝ x <= 5 ΤΟΤΕ
a <-- 0
ΑΛΛΙΩΣ_ΑΝ x <= 10 ΤΟΤΕ
a <-- (x-5)*0.5
ΑΛΛΙΩΣ_ΑΝ x <= 20 ΤΟΤΕ
a <-- 5*0.5 + (x-10)*0.7
ΑΛΛΙΩΣ
a <-- 5*0.5 + 10*0.7 + (x-20)*1
ΤΕΛΟΣ_ΑΝ
sfpa <-- (a + pagio)*fpa
teliko_poso <-- a + pagio + fpa + foros
ΓΡΑΨΕ 'Τελικό ποσό προς πληρωμή :',teliko_poso,'EURO.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ