Άσκηση : φρουρός

Γράψτε αλγόριθμο που διαβάζει το φύλο (Α- άνδρας,
Γ - γυναίκα), το χρώμα μαλλιών και  το χρώμα ματιών
κάποιων ανθρώπων (η είσοδος δεδομένων ολοκληρώνεται
μόλις δοθεί ως φύλο το κενό διάστημα) και εμφανίζει:
α) το ποσοστό (%) των ανδρών (επί του συνόλου των
ανδρών) που είχαν μπλε μάτια,
β) το ποσοστό (%) των γυναικών (επί του συνόλου των
    γυναικών) που είχαν καστανά μαλλιά,
γ) το ποσοστό (%) των ανθρώπων που είχαν μαύρα
    μαλλιά και πράσινα μάτια.
Παρατηρήσεις
1. Δεν απαιτείται έλεγχος εγκυρότητας δεδομένων.
2. Όταν δεν είναι δυνατός ο υπολογισμός κάποιου
    ποσοστού, να εμφανίζεται κατάλληλο ενημερωτικό
    μήνυμα.

Λύση

     Αλγόριθμος Φρουρός
     Ανδ <-- 0
     ΑνδΜπ <-- 0
     Γυν <-- 0
     ΓυνΚαστ <-- 0
     ΜΠ <-- 0
     Αρχή_επανάληψης
          Διάβασε Φύλο
          Αν Φύλο < > '   '  τότε
              Διάβασε Μαλλιά
              Διάβασε Μάτια
              Αν Φύλο = 'Α' τότε
                   Ανδ <-- Ανδ+1
                   Αν Μάτια = 'ΜΠΛΕ' τότε
                        ΑνδΜπ <-- ΑνδΜπ+1
                   Τέλος_αν
              αλλιώς
                   Γυν <-- Γυν+1
                   Αν Μαλλιά = 'ΚΑΣΤΑΝΑ' τότε
                          ΓυνΚαστ <-- ΓυνΚαστ+1
                   Τέλος_αν
              Τέλος_αν
              Αν (Μαλλιά = 'ΜΑΥΡΑ') ΚΑΙ (Μάτια = 'ΠΡΑΣΙΝΑ')
              τότε
                    ΜΠ <-- ΜΠ+1
              Τέλος_αν
          Τέλος_αν
     Μέχρις_ότου (Φύλο = '   ')
     Πληθ <-- Ανδ+Γυν
     Αν Πληθ > 0 τότε
          ΠΟΣΜΠ <-- 100*ΜΠ/Πληθ
          Εμφάνισε ΠΟΣΜΠ
          Αν Ανδ > 0 τότε
              ΠοσΑνδ <-- 100*ΑνδΜπ/Ανδ
              Εμφάνισε ΠοσΑνδ
          αλλιώς
              Εμφάνισε 'Δεν υπάρχει κανένας άνδρας'
          Τέλος_αν
          Αν Γυν > 0 τότε
              ΠοσΓυν <-- 100*ΓυνΚαστ/Γυν
              Εμφάνισε ΠοσΓυν
          αλλιώς
              Εμφάνισε 'Δεν υπάρχει καμία γυναίκα'

          Τέλος_αν
     αλλιώς
          Εμφάνισε 'Δε δόθηκαν καθόλου δεδομένα'
     Τέλος_αν
     Τέλος Φρουρός