ΠΡΟΓΡΑΜΜΑ Ταξινόμηση_Διπλανού_Ανταλλαγής
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΟΝ[100], i, j, temp
ΑΡΧΗ
  ΓΡΑΨΕ 'ΕΙΣΑΓΕΤΕ ΤΑ ΣΤΟΙΧΕΙΑ ΤΟΥ ΠΙΝΑΚΑ ΟΝ ΜΕ 100 ΑΡΙΘΜΟΥΣ.'

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
    ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΣΤΟΙΧΕΙΟ ', i
    ΔΙΑΒΑΣΕ ΟΝ[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ! Ταξινόμηση με Ανταλλαγή Διπλανού (Insertion Sort)
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 100
    ΓΙΑ j ΑΠΟ 100 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ ΟΝ[j - 1] > ΟΝ[j] ΤΟΤΕ
        temp <-- ΟΝ[j - 1]
        ΟΝ[j - 1] <-- ΟΝ[j]
        ΟΝ[j] <-- temp
      ΤΕΛΟΣ ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'Ο ΠΙΝΑΚΑΣ ΜΕΤΑ ΤΗΝ ΤΑΞΙΝΟΜΗΣΗ ΕΙΝΑΙ:'

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
    ΓΡΑΨΕ ΟΝ[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

Εξήγηση 🔍

• ΓΙΑ j ΑΠΟ 100 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1 συγκρίνει κάθε στοιχείο ΟΝ[j] με το προηγούμενό του (ΟΝ[j-1]) ξεκινώντας από το τέλος του πίνακα και προχωρώντας προς τα πάνω, μέχρι τη θέση i.
• Αν ΟΝ[j - 1] > ΟΝ[j], τότε γίνεται ανταλλαγή των στοιχείων, ώστε το μικρότερο στοιχείο να μετακινείται προς τα αριστερά.

Μετά την ταξινόμηση, το πρόγραμμα εμφανίζει τον ταξινομημένο πίνακα.