ΠΡΟΓΡΑΜΜΑ ΒΡΑΔ2004_Θ4
!Μία εταιρεία απασχολεί 30 υπαλλήλους. Οι μηνιαίες αποδοχές  
!κάθε υπαλλήλου κυμαίνονται από 0 € έως και 3.000 €.  
!Α. Να γράψετε αλγόριθμο που για κάθε υπάλληλο  
!1. να διαβάζει το ονοματεπώνυμο και τις μηνιαίες αποδοχές και  
!να ελέγχει την ορθότητα καταχώρησης των μηνιαίων αποδοχών του,  
!2. να υπολογίζει το ποσό του φόρου κλιμακωτά, σύμφωνα με τον  
!παρακάτω πίνακα:  
!  
!Μηνιαίες αποδοχές  Ποσοστό κράτησης φόρου  
!Έως και 700 €                       0%  
!Aνω των 700 € έως και 1.000 €       15%  
!Aνω των 1.000 € έως και 1.700 €     30%  
!Aνω των 1.700 €                     40%  
!3. να εμφανίζει το ονοματεπώνυμο, τις μηνιαίες αποδοχές,  
!το φόρο και τις καθαρές μηνιαίες αποδοχές, που προκύπτουν  
!μετά την αφαίρεση του φόρου.  
!Β. Τέλος, ο παραπάνω αλγόριθμος να υπολογίζει και να εμφανίζει  
!1.το συνολικό ποσό που αντιστοιχεί στο φόρο όλων των υπαλλήλων,  
!2.το συνολικό ποσό που αντιστοιχεί στις καθαρές μηνιαίες  
!αποδοχές όλων των υπαλλήλων.  


ΜΕΤΑΒΛΗΤΕΣ 
  ΧΑΡΑΚΤΗΡΕΣ: ονοματεπώνυμο 
  ΠΡΑΓΜΑΤΙΚΕΣ: μηνιαίες_αποδοχές, ποσό_φόρου, καθαρές_αποδοχές 
  ΠΡΑΓΜΑΤΙΚΕΣ: συνολικός_φόρος, συνολικές_καθαρές_αποδοχές 

  ΑΚΕΡΑΙΕΣ: Ι 
ΑΡΧΗ
  συνολικός_φόρος <- 0
  συνολικές_καθαρές_αποδοχές <- 0 

  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 30
    ΓΡΑΨΕ 'Δώσε ', Ι, 'ο ονοματεπώνυμο : '
    ΔΙΑΒΑΣΕ ονοματεπώνυμο 

    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ 
      ΓΡΑΨΕ 'Δώσε μηνιαίες αποδοχές : '
      ΔΙΑΒΑΣΕ μηνιαίες_αποδοχές 
    ΜΕΧΡΙΣ_ΟΤΟΥ μηνιαίες_αποδοχές > 0 ΚΑΙ μηνιαίες_αποδοχές <= 3000 

    ΑΝ μηνιαίες_αποδοχές <= 700 ΤΟΤΕ 
      ποσό_φόρου <- 0 
    ΑΛΛΙΩΣ_ΑΝ μηνιαίες_αποδοχές <= 1000 ΤΟΤΕ 
      ποσό_φόρου <- (μηνιαίες_αποδοχές - 700)* 0.15 
    ΑΛΛΙΩΣ_ΑΝ μηνιαίες_αποδοχές <= 1700 ΤΟΤΕ 
      ποσό_φόρου <- (300* 0.15) + (μηνιαίες_αποδοχές - 1000)*0.30 
    ΑΛΛΙΩΣ 
      ποσό_φόρου <- (300* 0.15) + (700* 0.30) +  (μηνιαίες_αποδοχές - 1700)*0.40
    ΤΕΛΟΣ_ΑΝ

    καθαρές_αποδοχές <- μηνιαίες_αποδοχές - ποσό_φόρου 

    συνολικός_φόρος <- συνολικός_φόρος + ποσό_φόρου 
    συνολικές_καθαρές_αποδοχές <- συνολικές_καθαρές_αποδοχές +  καθαρές_αποδοχές 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ 

  ΓΡΑΨΕ 'Συνολικός φόρος           :', συνολικός_φόρος
  ΓΡΑΨΕ 'Συνολικές καθαρές αποδοχές:', συνολικές_καθαρές_αποδοχές
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ