ΠΡΟΓΡΑΜΜΑ ΠΑΝΕΛ2002_Θ3
! Με το νέο σύστημα πληρωμής των διοδίων, οι οδηγοί των 
!τροχοφόρων έχουν τη δυνατότητα να πληρώνουν το αντίτιμο 
!των διοδίων με ειδική μαγνητική κάρτα. Υποθέστε ότι υπάρχει 
! μηχάνημα το οποίο διαθέτει είσοδο για την κάρτα και 
!φωτοκύτταρο. Το μηχάνημα διαβάζει από την κάρτα το υπόλοιπο 
!των χρημάτων και το αποθηκεύει σε μία μεταβλητή Υ και, με το 
!φωτοκύτταρο, αναγνωρίζει τον τύπο του τροχοφόρου και το 
!αποθηκεύει σε μία μεταβλητή Τ. Υπάρχουν τρεις τύποι τροχοφόρων: 
! δίκυκλα (Δ), επιβατικά (Ε) και φορτηγά (Φ),
!με αντίτιμο διοδίων 1, 2 και 3 ευρώ αντίστοιχα. 
!Να αναπτύξετε αλγόριθμο, ο οποίος: 
!α. ελέγχει τον τύπο του τροχοφόρου και εκχωρεί στη μεταβλητή Α 
!   το αντίτιμο των διοδίων, ανάλογα με τον τύπο του τροχοφόρου 
!β. ελέγχει την πληρωμή των διοδίων με τον παρακάτω τρόπο. 
! Αν το υπόλοιπο της κάρτας επαρκεί για την πληρωμή του 
!    αντιτίμου των διοδίων, αφαιρεί το ποσό αυτό από την κάρτα. 
! Αν η κάρτα δεν έχει υπόλοιπο, το μηχάνημα ειδοποιεί με μήνυμα 
!    για το ποσό που πρέπει να πληρωθεί. 
! Αν το υπόλοιπο δεν επαρκεί, μηδενίζεται η κάρτα και δίνεται 
!    με μήνυμα το ποσό που απομένει να πληρωθεί. 

ΜΕΤΑΒΛΗΤΕΣ 
  ΧΑΡΑΚΤΗΡΕΣ: τύπος 
  ΠΡΑΓΜΑΤΙΚΕΣ: Α, υπόλοιπο 
ΑΡΧΗ 
!α. διάβασμα τύπου του τροχοφόρου   και υπολοίπου κάρτας 
!   (Δε απαιτείται έλεγχος ορθότητας) 
  ΓΡΑΨΕ 'Δώσε τύπο του τροχοφόρου (Δ/Ε/Φ) : '
  ΔΙΑΒΑΣΕ τύπος 

  ΓΡΑΨΕ 'Δώσε το υπόλοιπο των χρημάτων της κάρτας : '
  ΔΙΑΒΑΣΕ υπόλοιπο 

! υπολογισμός αντίτιμου διοδίων 
  Α <- 0
  ΑΝ τύπος = 'Δ' ΤΟΤΕ
    Α <- 1 
  ΑΛΛΙΩΣ_ΑΝ τύπος = 'Ε' ΤΟΤΕ
    Α <- 2 
  ΑΛΛΙΩΣ_ΑΝ τύπος = 'Φ' ΤΟΤΕ
    Α <- 3 
  ΤΕΛΟΣ_ΑΝ 


!β έλεγχος  πληρωμής των διοδίων 
  ΑΝ υπόλοιπο > Α ΤΟΤΕ 
    υπόλοιπο <- υπόλοιπο - Α 
  ΑΛΛΙΩΣ_ΑΝ υπόλοιπο <= 0 ΤΟΤΕ 
    ΓΡΑΨΕ 'Πρέπει να πληρωθούν :', Α
  ΑΛΛΙΩΣ 
    ΓΡΑΨΕ 'Απομένουν να πληρωθούν : ', Α - υπόλοιπο
    υπόλοιπο <- 0 
  ΤΕΛΟΣ_ΑΝ 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ