ΠΡΟΓΡΑΜΜΑ Στατιστικά_Φοίτησης

ΜΕΤΑΒΛΗΤΕΣ

    ΑΚΕΡΑΙΕΣ: Αριθμός_Μαθητών, Αριθμός_Μαθημάτων, i, j

    ΑΚΕΡΑΙΕΣ: Σύνολο_Απουσιών, Δικαιολογημένες_Απουσίες, Απουσίες_Ασθένειας

    ΑΚΕΡΑΙΕΣ: Παραπέμπεται, Πλήθος_Ελλιπής, Πλήθος_Προαχθέντων, Πλήθος_Αριστούχων

    ΠΡΑΓΜΑΤΙΚΕΣ: Βαθμός, Άθροισμα_Βαθμών, ΜΟ_Μαθητή, Max_MO

    ΧΑΡΑΚΤΗΡΕΣ: Όνομα_Μαθητή, Φοίτηση

ΑΡΧΗ

    ! Αρχικοποίηση μεταβλητών

    Max_MO ← 0

    Πλήθος_Ελλιπής ← 0

    Πλήθος_Προαχθέντων ← 0

    Πλήθος_Αριστούχων ← 0

    ! Εισαγωγή δεδομένων

    ΓΡΑΨΕ "Δώσε τον αριθμό των μαθητών:"

    ΔΙΑΒΑΣΕ Αριθμός_Μαθητών

    ΓΡΑΨΕ "Δώσε τον αριθμό των μαθημάτων:"

    ΔΙΑΒΑΣΕ Αριθμός_Μαθημάτων

    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Αριθμός_Μαθητών

        ΓΡΑΨΕ "Δώσε το όνομα του μαθητή:"

        ΔΙΑΒΑΣΕ Όνομα_Μαθητή

        Άθροισμα_Βαθμών ← 0

        Παραπέμπεται ← 0

        ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Αριθμός_Μαθημάτων

            ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

                ΓΡΑΨΕ "Δώσε τον βαθμό του μαθήματος (0-20):"

                ΔΙΑΒΑΣΕ Βαθμός

            ΜΕΧΡΙΣ_ΟΤΟΥ Βαθμός > 0 ΚΑΙ Βαθμός <= 20

            Άθροισμα_Βαθμών ← Άθροισμα_Βαθμών + Βαθμός

            ΑΝ Βαθμός < 10 ΤΟΤΕ

                Παραπέμπεται ← Παραπέμπεται + 1

            ΤΕΛΟΣ_ΑΝ

        ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

        ΜΟ_Μαθητή ← Άθροισμα_Βαθμών / Αριθμός_Μαθημάτων

        ΓΡΑΨΕ "Δώσε το σύνολο των απουσιών:"

        ΔΙΑΒΑΣΕ Σύνολο_Απουσιών

        ΓΡΑΨΕ "Δώσε τις δικαιολογημένες απουσίες:"

        ΔΙΑΒΑΣΕ Δικαιολογημένες_Απουσίες

        ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

            ΓΡΑΨΕ "Δώσε τις απουσίες λόγω ασθένειας:"

            ΔΙΑΒΑΣΕ Απουσίες_Ασθένειας

        ΜΕΧΡΙΣ_ΟΤΟΥ Απουσίες_Ασθένειας <= Δικαιολογημένες_Απουσίες

        ΑΝ (Σύνολο_Απουσιών <= 50) Ή

           (Σύνολο_Απουσιών <= 114 ΚΑΙ Σύνολο_Απουσιών - Δικαιολογημένες_Απουσίες <= 50) Ή

           (Σύνολο_Απουσιών <= 164 ΚΑΙ Δικαιολογημένες_Απουσίες = Απουσίες_Ασθένειας ΚΑΙ

           Σύνολο_Απουσιών - Απουσίες_Ασθένειας <= 50 ΚΑΙ ΜΟ_Μαθητή > 15) ΤΟΤΕ

            Φοίτηση ← "Επαρκής"

        ΑΛΛΙΩΣ

            Φοίτηση ← "Ελλιπής"

            Πλήθος_Ελλιπής ← Πλήθος_Ελλιπής + 1

        ΤΕΛΟΣ_ΑΝ

        ΓΡΑΨΕ "Όνομα μαθητή: ", Όνομα_Μαθητή

        ΓΡΑΨΕ "Χαρακτηρισμός φοίτησης: ", Φοίτηση

        ΑΝ Φοίτηση = "Επαρκής" ΤΟΤΕ

            ΑΝ Παραπέμπεται = 0 Ή ΜΟ_Μαθητή > 13 ΤΟΤΕ

                ΓΡΑΨΕ "Προάγεται με μέσο όρο: ", ΜΟ_Μαθητή

                Πλήθος_Προαχθέντων ← Πλήθος_Προαχθέντων + 1

                ΑΝ ΜΟ_Μαθητή > 18 ΤΟΤΕ

                    Πλήθος_Αριστούχων ← Πλήθος_Αριστούχων + 1

                ΤΕΛΟΣ_ΑΝ

                ΑΝ ΜΟ_Μαθητή > Max_MO ΤΟΤΕ

                    Max_MO ← ΜΟ_Μαθητή

                ΤΕΛΟΣ_ΑΝ

            ΑΛΛΙΩΣ

                ΓΡΑΨΕ "Παραπέμπεται για επανεξέταση σε ", Παραπέμπεται, " μαθήματα"

            ΤΕΛΟΣ_ΑΝ

        ΤΕΛΟΣ_ΑΝ

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ "Ποσοστό μαθητών με ελλιπή φοίτηση: ", (Πλήθος_Ελλιπής / Αριθμός_Μαθητών) * 100

    ΓΡΑΨΕ "Ποσοστό αριστούχων μαθητών: ", (Πλήθος_Αριστούχων / Πλήθος_Προαχθέντων) * 100

    ΓΡΑΨΕ "Μεγαλύτερος μέσος όρος: ", Max_MO

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ