Τώρα είναι Πέμ 28 Μαρ 2024 07:17 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
ΔημοσίευσηΔημοσιεύτηκε: Τρί 10 Απρ 2007 03:01 pm 
Χωρίς σύνδεση

Εγγραφή: Κυρ 12 Οκτ 2003 01:52 am
Δημοσιεύσεις: 189
Τοποθεσία: ΝΙΚΑΙΑ - ΠΕΙΡΑΙΑΣ
Syntax: [ Download ] [ Hide ]
! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 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.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ  
 


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 2 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: