ΠΡΟΓΡΑΜΜΑ ΓΕΛ2017Θ3a
! Γ1.α
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[5], ΒΟΗΘ2
  ΑΚΕΡΑΙΕΣ: i, j, ΒΟΗΘ1, Α[5, 3], k, ΥΠΕΡ, ΚΑΤΑ
ΑΡΧΗ
! Γ1.β
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΔΙΑΒΑΣΕ ΟΝ[i] 
! Γ1.γ
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
      Α[i, j] <- 0
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Γ2
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΙΑ j ΑΠΟ i + 1 ΜΕΧΡΙ 5
      ΓΡΑΨΕ ΟΝ[i], ' με ', ΟΝ[j], ':'
      ΔΙΑΒΑΣΕ ΥΠΕΡ, ΚΑΤΑ
      ΑΝ ΥΠΕΡ > ΚΑΤΑ ΤΟΤΕ
        Α[i, 1] <- Α[i, 1] + 2
        Α[j, 1] <- Α[j, 1] + 1
      ΑΛΛΙΩΣ
        Α[i, 1] <- Α[i, 1] + 1
        Α[j, 1] <- Α[j, 1] + 2
      ΤΕΛΟΣ_ΑΝ
      Α[i, 2] <- Α[i, 2] + ΥΠΕΡ
      Α[i, 3] <- Α[i, 3] + ΚΑΤΑ
      Α[j, 2] <- Α[j, 2] + ΚΑΤΑ
      Α[j, 3] <- Α[j, 3] + ΥΠΕΡ
      ΓΡΑΨΕ ΟΝ[i], ': ', Α[i, 1], '  ', Α[i, 2], '  ', Α[i, 3] 
      ΓΡΑΨΕ ΟΝ[j], ': ', Α[j, 1], '  ', Α[j, 2], '  ', Α[j, 3] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Γ3
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 5
    ΓΙΑ j ΑΠΟ 5 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ Α[j - 1, 1] < Α[j, 1] ΤΟΤΕ
        ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 3
          ΒΟΗΘ1 <- Α[j, k] 
          Α[j, k] <- Α[j - 1, k] 
          Α[j - 1, k] <- ΒΟΗΘ1
        ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
        ΒΟΗΘ2 <- ΟΝ[j] 
        ΟΝ[j] <- ΟΝ[j - 1] 
        ΟΝ[j - 1] <- ΒΟΗΘ2
      ΑΛΛΙΩΣ_ΑΝ Α[j, 1] = Α[j - 1, 1] ΤΟΤΕ ! Περίπτωση ισοβαθμίας
        ΑΝ Α[j - 1, 2] < Α[j, 2] ΤΟΤΕ
          ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 3
            ΒΟΗΘ1 <- Α[j, k] 
            Α[j, k] <- Α[j - 1, k] 
            Α[j - 1, k] <- ΒΟΗΘ1
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          ΒΟΗΘ2 <- ΟΝ[j] 
          ΟΝ[j] <- ΟΝ[j - 1] 
          ΟΝ[j - 1] <- ΒΟΗΘ2
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Γ4
  ΓΡΑΨΕ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ ΟΝ[i], ': '
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
      ΓΡΑΨΕ Α[i, j], '  '
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ