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

18.
Αλγόριθμος ασκ18_2007Γ
ξενα ← 0
ελλην ← 0
υπόλ ← 1500
Εμφάνισε 'δώσε τιμή'
Διάβασε τιμή
Όσο τιμή ≤ υπόλ επανάλαβε
         Εμφάνισε 'προέλευση;'
         Διάβασε προέλευση
         υπόλ ← υπόλ - τιμή
         Αν (προέλευση = "ελληνικό") τότε
               ελλην ← ελλην + 1
         αλλιώς
              ξενα ← ξενα + 1
         Τέλος_αν
         Εμφάνισε 'δώσε τιμή'
         Διάβασε τιμή
Τέλος_επανάληψης
Εκτύπωσε "ΤΕΛΟΣ ΑΓΟΡΩΝ"
Εκτύπωσε 1500 - υπόλ
Εκτύπωσε ελλην, ξενα
Αν (υπόλ = 0) τότε
      Εκτύπωσε "ΕΞΑΝΤΛΗΘΗΚΕ ΟΛΟ ΤΟ ΠΟΣΟ"
αλλιώς
      Εκτύπωσε "περίσσευμα", υπόλοιπο
Τέλος_αν
Τέλος ασκ18_2007Γ


19. 
Αλγόριθμος ασκ19_2008γεπαν
Σεπ ← 0
Αρχή_επανάληψης
          Αρχή_επανάληψης
                    Διάβασε φύλο
          Μέχρις_ότου φύλο = 'Α' ή φύλο = 'Γ'
          Διάβασε μισθός, παιδιά
          Αν φύλο = 'Α' τότε
                Αν παιδιά = 0 τότε
                      επίδομα ← 0
                Αλλιώς_αν παιδιά = 1 τότε
                      επίδομα ← 20
                Αλλιώς_αν παιδιά = 2 τότε
                      επίδομα ← 50
                Αλλιώς
                      επίδομα ← 120
                Τέλος_αν
           Αλλιώς
                Αν παιδιά = 0 τότε
                       επίδομα ← 0
                Αλλιώς_αν παιδιά = 1 τότε
                       επίδομα ← 30
                Αλλιώς_αν παιδιά = 2 τότε
                       επίδομα ← 80
                Αλλιώς
                       επίδομα ← 160
                Τέλος_αν
            Τέλος_αν
            συνμ ← μισθός + επίδομα
            Εμφάνισε επίδομα, συνμ
            Σεπ ← Σεπ + επίδομα
            Εμφάνισε 'Θέλετε να συνεχίσετε (Ναι/Όχι);'
            Διάβασε απάντηση
Μέχρις_ότου απάντηση = 'Όχι'
Εμφάνισε Σεπ
Τέλος ασκ19_2008γεπαν


20.
Αλγόριθμος ασκ20_2010Γ
Αρχή_επανάληψης
         Διάβασε ρεκόρ
Μέχρις_ότου ρεκόρ > 0 και ρεκόρ < 10
πλ ← 0
κοντά ← 0
Αρχή_επανάληψης
         Διάβασε Ν
Μέχρις_ότου Ν > 0 και Α_Μ(Ν) = Ν
Εμφάνισε 'δώσε όνομα και επίδοση του πρώτου'
Διάβασε όνομα, επίδοση
min ← επίδοση
όνομαmin ← όνομα
Αν επίδοση > ρεκόρ τότε
      Εμφάνισε όνομα
      πλ ← πλ + 1
Τέλος_αν
Αν ρεκόρ - επίδοση ≤ 0.5 τότε
      κοντά ← κοντά + 1
Τέλος_αν
επίδοση1 ← επίδοση
θέση ← 1
Για i από 2 μέχρι Ν
       Διάβασε όνομα, επίδοση
       Αν επίδοση < min τότε
             min ← επίδοση
             όνομαmin ← όνομα
       Τέλος_αν
       Αν επίδοση > ρεκόρ τότε
             Εμφάνισε όνομα
             πλ ← πλ + 1
       Τέλος_αν
       Αν ρεκόρ - επίδοση ≤ 0.5 τότε
             κοντά ← κοντά + 1
       Τέλος_αν
       Αν επίδοση > επίδοση1 τότε
             θέση ← θέση + 1
       Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε θέση
Αν πλ = 0 τότε
      Εμφάνισε κοντά
Τέλος_αν
Εμφάνισε θέση
Τέλος ασκ20_2010Γ


21.
Αλγόριθμος ασκ21_2011Γ
min ← 101
Εμφάνισε 'δώσε όνομα'
Διάβασε ον
Όσο  ον <> 'ΤΕΛΟΣ' επανάλαβε
          Διάβασε  Β1, Β2, Β3
          max ← Β1
          Αν Β2 > Μεγ τότε
                max ← Β2
          Τέλος_αν
          Αν Β3 > Μεγ τότε
                max ←  Β3
          Τέλος_αν
          Εμφάνισε max
          ΣΒ ← (Β1 + Β2 + Β3)/3
          Αν ΣΒ>=55 και Β1>=50 και Β2>=50 και Β3>=50 τότε
                Εμφάνισε ον, ΣΒ
                Αν ΣΒ < min τότε
                      min ← ΣΒ
                      ονmin ← ον
                Τέλος_αν
           Τέλος_αν
            Εμφάνισε 'δώσε όνομα'
            Διάβασε  ον
Τέλος_επανάληψης
Εμφάνισε  ονmin
Τέλος ασκ21_2011Γ