!============================================================
! Να γραφεί πρόγραμμα το οποίο να ζητά από το χρήστη:
! τα ονόματα n μαθητών (2-10), το όνομα του σχολείου τους
! και το βαθμό που έγραψαν σε ένα διαγώνισμα και να
! εμφανίζει όλα τα παραπάνω στοιχεία ταξινομημένα κατά
! όνομα μαθητή, όνομα σχολείου ή βαθμό, ανάλογα με την
! επιλογή του χρήστη.
!============================================================
! (panos giannakopoulos)
!============================================================

ΠΡΟΓΡΑΜΜΑ Στοιχεία_Μαθητών
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, n, Βαθμός[10], temp_Βαθμός
  ΧΑΡΑΚΤΗΡΕΣ: Ονομα[10], temp_Ονομα, Σχολείο[10], temp_Σχολείο, Ταξινόμηση, Answer
ΑΡΧΗ

  ! Εισαγωγή των στοιχείων των μαθητών από το χρήστη.
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Παρακαλώ δώσε τον αριθμό των μαθητών για ταξινόμηση:'
    ΔΙΑΒΑΣΕ n
  ΜΕΧΡΙΣ_ΟΤΟΥ  (n >=0)

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
    ΓΡΑΨΕ 'Δώσε το όνομα του μαθητή Νο : ', i
    ΔΙΑΒΑΣΕ Ονομα[i]
    ΓΡΑΨΕ 'Δώσε το σχολείο του μαθητή Νο : ', i
    ΔΙΑΒΑΣΕ Σχολείο[i]
    ΓΡΑΨΕ 'Δώσε το βαθμό του μαθητή Νο : ', i
    ΔΙΑΒΑΣΕ Βαθμός[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'Σε ποιον πίνακα θέλετε να γίνει ταξινόμηση;'
      ΓΡΑΨΕ 'Απάντηση μορφής: Ονομα, Σχολείο, Βαθμό'
      ΔΙΑΒΑΣΕ Ταξινόμηση
    ΜΕΧΡΙΣ_ΟΤΟΥ (Ταξινόμηση='Ονομα') Η (Ταξινόμηση='Σχολείο') Η (Ταξινόμηση='Βαθμό')

    ! Ταξινόμηση των στοιχείων των μαθητών κατά Ονομα.
    ΑΝ Ταξινόμηση='Ονομα' ΤΟΤΕ
      ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ n
        ΓΙΑ j ΑΠΟ n ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
          ΑΝ Ονομα[j-1] > Ονομα[j] ΤΟΤΕ
            temp_Ονομα <-- Ονομα[j-1]
            Ονομα[j-1] <-- Ονομα[j]
            Ονομα[j]   <-- temp_Ονομα

            temp_Σχολείο <-- Σχολείο[j-1]
            Σχολείο[j-1] <-- Σχολείο[j]
            Σχολείο[j]   <-- temp_Σχολείο

            temp_Βαθμός <-- Βαθμός[j-1]
            Βαθμός[j-1] <-- Βαθμός[j]
            Βαθμός[j]   <-- temp_Βαθμός
          ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

      ΓΡΑΨΕ 'Τα στοιχεία των μαθητών ταξινομημένα κατά Ονομα είναι:'
      ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
        ΓΡΑΨΕ Ονομα[i], ' ', Σχολείο[i], ' ', Βαθμός[i]
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ! Ταξινόμηση των στοιχείων των μαθητών κατά Σχολείο.
    ΑΝ Ταξινόμηση='Σχολείο' ΤΟΤΕ
      ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ n
        ΓΙΑ j ΑΠΟ n ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
          ΑΝ Σχολείο[j-1] > Σχολείο[j] ΤΟΤΕ
            temp_Ονομα <-- Ονομα[j-1]
            Ονομα[j-1] <-- Ονομα[j]
            Ονομα[j]   <-- temp_Ονομα

            temp_Σχολείο <-- Σχολείο[j-1]
            Σχολείο[j-1] <-- Σχολείο[j]
            Σχολείο[j]   <-- temp_Σχολείο

            temp_Βαθμός <-- Βαθμός[j-1]
            Βαθμός[j-1] <-- Βαθμός[j]
            Βαθμός[j]   <-- temp_Βαθμός
          ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

      ΓΡΑΨΕ 'Τα στοιχεία των μαθητών ταξινομημένα κατά Σχολείο είναι:'
      ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
        ΓΡΑΨΕ Ονομα[i], ' ', Σχολείο[i], ' ', Βαθμός[i]
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ! Ταξινόμηση των στοιχείων των μαθητών κατά Βαθμό.
    ΑΝ Ταξινόμηση='Βαθμό' ΤΟΤΕ
      ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ n
        ΓΙΑ j ΑΠΟ n ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
          ΑΝ Βαθμός[j-1] > Βαθμός[j] ΤΟΤΕ
            temp_Ονομα <-- Ονομα[j-1]
            Ονομα[j-1] <-- Ονομα[j]
            Ονομα[j]   <-- temp_Ονομα

            temp_Σχολείο <-- Σχολείο[j-1]
            Σχολείο[j-1] <-- Σχολείο[j]
            Σχολείο[j]   <-- temp_Σχολείο

            temp_Βαθμός <-- Βαθμός[j-1]
            Βαθμός[j-1] <-- Βαθμός[j]
            Βαθμός[j]   <-- temp_Βαθμός
          ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

      ΓΡΑΨΕ 'Τα στοιχεία των μαθητών ταξινομημένα κατά Βαθμό είναι:'
      ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
        ΓΡΑΨΕ Ονομα[i], ' ', Σχολείο[i], ' ', Βαθμός[i]
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ΓΡΑΨΕ 'Θέλετε να συνεχίσετε; (ναι/όχι)'
    ΔΙΑΒΑΣΕ Answer
  ΜΕΧΡΙΣ_ΟΤΟΥ (Answer = 'όχι')

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Στοιχεία_Μαθητών