! ===============================================================================================
! ΕΣΠΕΡΙΝΟ - ΙΟΥΝΙΟΣ 2003 - ΘΕΜΑ 4
! ===============================================================================================
! Για κάθε μαθητή δίνονται τα στοιχεία ονοματεπώνυμο, προφορικός και γραπτός βαθμός ενός μαθήματος.
! Να γραφεί αλγόριθμος, ο οποίος εκτελεί τις ακόλουθες λειτουργίες :
!   α. Διαβάζει τα στοιχεία πολλών μαθητών και σταματά όταν δοθεί ως ονοματεπώνυμο το κενό.
!   β. Ελέγχει αν ο προφορικός και ο γραπτός βαθμός είναι από 0 μέχρι και 20.
!   γ. Υπολογίζει τον τελικό βαθμό του μαθήματος, ο οποίος είναι το άθροισμα του 30% του
!      προφορικού βαθμού και του 70% του γραπτού βαθμού. Επίσης, τυπώνει το ονοματεπώνυμο του
!      μαθητή και τον τελικό βαθμό του μαθήματος.
!   δ. Υπολογίζει και τυπώνει το ποσοστό των μαθητών που έχουν βαθμό μεγαλύτερο του 18.
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ ES_2003_06_4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν , Κ
  ΠΡΑΓΜΑΤΙΚΕΣ: π , γ , τ
  ΧΑΡΑΚΤΗΡΕΣ: ονομα
ΑΡΧΗ
  Ν <-- 0 ! Πλήθος των μαθητών με βαθμό πάνω από 18
  Κ <-- 0 ! Πλήθος όλων των μαθητών
  ΓΡΑΨΕ 'Δώσε όνομα.'
  ΔΙΑΒΑΣΕ ονομα
  ΟΣΟ ονομα <> '' ΕΠΑΝΑΛΑΒΕ
    Κ <-- Κ + 1
    ΓΡΑΨΕ 'Δώσε προφορικό και γραπτό βαθμό'
    ΔΙΑΒΑΣΕ π , γ
    ΟΣΟ π < 0 ή π > 20 ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'Λάθος. Ξαναδώσε προφορικό βαθμό'
      ΔΙΑΒΑΣΕ π
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΟΣΟ γ < 0 ή γ > 20 ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'Λάθος. Ξαναδώσε γραπτό βαθμό'
      ΔΙΑΒΑΣΕ γ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    τ <-- π*30/100 + γ*70/100
    ΑΝ τ > 18 ΤΟΤΕ
      Ν <-- Ν + 1
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ ονομα,'ΤΕΛΙΚΟΣ ΒΑΘΜΟΣ =',τ
    ΓΡΑΨΕ 'Δώσε όνομα.'
    ΔΙΑΒΑΣΕ ονομα
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  π <-- Ν*100/Κ
  ΓΡΑΨΕ 'Ποσοστό μαθητών με βαθμό πάνω από 18 =',π,'%.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ