Θέμα 2ο : Επαναληπτικές Απολυτήριες εσπερινού λυκείου 2005

Να αναπτύξετε έναν αλγόριθμο, ώστε
α) να διαβάζει έναν πραγματικό αριθμό μεγαλύτερο του
     μηδενός και μικρότερο του 1000 και να κάνει έλεγχο
     ορθής καταχώρησης του αριθμού,
                                                                    Μονάδες 6
β) να ελέγχει αν είναι ακέραιος και να εμφανίζει τη λέξη
    «ΑΚΕΡΑΙΟΣ» αλλιώς να εμφανίζει τη λέξη
    «ΠΡΑΓΜΑΤΙΚΟΣ»,
                                                                    Μονάδες 6
γ) να ελέγχει, στην περίπτωση που ο αριθμός είναι ακέραιος,
    αν είναι άρτιος ή περιττός και να εμφανίζει τη λέξη
    «ΑΡΤΙΟΣ» ή «ΠΕΡΙΤΤΟΣ» αντίστοιχα.
                                                                    Μονάδες 8

Λύση

   Αλγόριθμος Θ2_ΕπανΕσπ2005
   Αρχή_επανάληψης
        Διάβασε Υ
   Μέχρις_ότου (Υ > 0) ΚΑΙ (Υ < 1000)
   Αν Α_Μ(Υ) = Υ τότε
        Εμφάνισε 'ΑΚΕΡΑΙΟΣ'
        Αν Α_Μ(Υ) mod 2 = 0 τότε
              Εμφάνισε 'ΑΡΤΙΟΣ'
        αλλιώς
              Εμφάνισε 'ΠΕΡΙΤΤΟΣ'
        Τέλος_αν
   αλλιώς
        Εμφάνισε 'ΠΡΑΓΜΑΤΙΚΟΣ'
   Τέλος_αν
   Τέλος Θ2_ΕπανΕσπ2005