ΧΡΙΣΤΟΥΓΕΝΝΙΑΤΙΚΗ ΕΡΓΑΣΙΑ ΜΕΡΟΣ Β' (10-12)

10.
Αλγόριθμος ασκ10χρ
max ← -1
min ← 21
πλ10 ← 0
πλ ← 0
αθρ ← 0
Εμφάνισε 'δώσε όνομα'
Διάβασε ον
Όσο ον ≠ ' ' επανάλαβε
        Αρχή_επανάληψης
                 Εμφάνισε 'δώσε βαθμό'
                 Διάβασε βαθ
        Μέχρις_ότου βαθ ≥ 0 και βαθ ≤ 20
        Αν βαθ > max τότε
              max ← βαθ
              ονmax ← ον
        Τέλος_αν
        Αν βαθ < min τότε
              min ← βαθ
              ονmin ← ον
        Τέλος_αν
        Αν βαθ > 18 τότε
              Εμφάνισε ' πάνω από 18 ο/η: ' , ον
        Τέλος_αν
        Αν βαθ > 10 τότε
             πλ10 ← πλ10 + 1
        Τέλος_αν
        πλ ← πλ + 1
        αθρ ← αθρ + βαθ
        Εμφάνισε 'δώσε όνομα'
        Διάβασε ον
Τέλος_επανάληψης
Αν πλ > 0 τότε
      Εμφάνισε ονmax , ονmin
      μο ← αθρ/πλ
      Εμφάνισε μο
      ποσ10 ← πλ10/πλ*100
      Εμφάνισε ποσ10 , '%'
αλλιώς
      Εμφάνισε 'κανένα έγκυρο όνομα'
Τέλος_αν
Τέλος ασκ10χρ

11.
Αλγόριθμος ασκ11χρ
maxplanes ← -1
minpassengers ← 1000001
αθρ ← 0
πλ ← 0
πλ18 ← 0
Εμφάνισε 'δώσε όνομα εταιρείας'
Διάβασε ετ
Όσο ετ ≠ 'ΤΕΛΟΣ' επανάλαβε
        Αρχή_επανάληψης
                 Εμφάνισε 'δώσε πλήθος α/φ'
                 Διάβασε αφ
       Μέχρις_ότου αφ > 0
       Αρχή_επανάληψης
                 Εμφάνισε 'δώσε πλήθος επιβατών'
                 Διάβασε επιβ
       Μέχρις_ότου επιβ ≥ 0 και επιβ ≤ 1000000
       Αν αφ < 20 τότε
             Εμφάνισε '<20 α/φ η : ' , ετ
       Τέλος_αν
       Αν αφ < 10 και επιβ ≥ 20000 τότε
             Εμφάνισε '<10 α/φ και διακίνηση τουλάχιστον 20000 η : ' , ετ
       Τέλος_αν
       μο_ετ ← επιβ/αφ
       Εμφάνισε μο_ετ
       Αν αφ > maxplanes τότε
             maxplanes ← αφ
             ετπεραφ ← ετ
       Τέλος_αν
       Αν επιβ < minpassengers τότε
             minpassengers ← επιβ
             ετλιγεπιβ ← ετ
       Τέλος_αν
       αθρ ← αθρ + επιβ
       πλ ← πλ + 1
       Αν επιβ >18000 τότε
             πλ18 ← πλ18 + 1
       Τέλος_αν
       Εμφάνισε 'δώσε όνομα εταιρείας'
       Διάβασε ετ
Τέλος_επανάληψης
Αν πλ > 0 τότε
      μο ← αθρ/πλ
      Εμφάνισε μο
      Εμφάνισε ετπεραφ , ετλιγεπιβ , πλ18
αλλιώς
      Εμφάνισε 'κανένα έγκυρο όνομα εταιρείας'
Τέλος_αν
Τέλος ασκ11χρ

12.
Αλγόριθμος  ασκ12χριστ
Μοχι ← 0
ΜΑοχι ← 0
ΜΓοχι ← 0
αθρηλ ← 0
πλ ← 0
μεγηλ ← -1
Αρχή_επανάληψης
          Αρχή_επανάληψης
                    Εμφάνισε 'φύλο;'
                    Διάβασε φ
          Μέχρις_ότου φ = 'Α' ή φ = 'Γ'
          Αρχή_επανάληψης
                    Εμφάνισε 'ηλικία;'
                    Διάβασε ηλ
          Μέχρις_ότου ηλ > 0
          Αρχή_επανάληψης
                    Εμφάνισε 'απάντηση;'
                    Διάβασε απ
          Μέχρις_ότου απ = 'ΝΑΙ' ή απ = 'ΟΧΙ' ή απ = 'ΔΕΝ ΞΕΡΩ'
           Αν απ = 'ΟΧΙ' τότε
                 Μοχι ← Μοχι + 1
                 Αν φ = 'Α' τότε
                       ΜΑοχι ← ΜΑοχι + 1
                 αλλιώς
                       ΜΓοχι ← ΜΓοχι + 1
                 Τέλος_αν
            Τέλος_αν
            αθρηλ ← αθρηλ + ηλ
            πλ ← πλ + 1
            Αν ηλ > μεγηλ τότε
                  μεγηλ ← ηλ
            Τέλος_αν
            Εμφάνισε 'συνεχίζουμε με άλλον/-η;'
            Διάβασε απ1
Μέχρις_ότου απ1 = 'ΟΧΙ'
ΠΟΣ_Α_ΟΧΙ ← ΜΑοχι/πλ*100
ΠΟΣ_Γ_ΟΧΙ ← ΜΓοχι/πλ*100
ΜΟ_ηλ ← αθρηλ/πλ
Εμφάνισε ΠΟΣ_Α_ΟΧΙ, ΠΟΣ_Γ_ΟΧΙ, ΜΟ_ηλ, μεγηλ
Τέλος ασκ12χριστ