ΠΡΟΓΡΑΜΜΑ Αραιός
! Ερώτημα 1
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Π[5, 5], Α[15]
ΑΡΧΗ
 ΚΑΛΕΣΕ sparse(Π)
 ΚΑΛΕΣΕ compress(Π,Α)
 ΚΑΛΕΣΕ output(Π,Α)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ sparse(Π)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, x, Π[5, 5]
ΑΡΧΗ
!i=γραμμή, j=στήλη, k=θέση στοιχείου, x=τιμή στοιχείου (<>0)
! Ερώτημα 2Α - Μηδενισμός στοιχείων στον πίνακα Π
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 5
      Π[i, j] <- 0
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ! Ερωτήματα 2Α, 2B - Γέμισμα του πίνακα Π
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ j
    ΜΕΧΡΙΣ_ΟΤΟΥ j >= 1 ΚΑΙ j <= 5 ΚΑΙ j <> i
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ x
    ΜΕΧΡΙΣ_ΟΤΟΥ x <> 0
    Π[i, j] <- x
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ compress(Π,Α)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, k, Π[5, 5], Α[15]
ΑΡΧΗ
! Ερώτημα 3 - Δημιουργία του πίνακα Α
  k <- 1                     ! k <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 5
      ΑΝ Π[i, j] <> 0 ΤΟΤΕ
        Α[k] <- i            ! Α[3*k+1] <- i
        Α[k + 1] <- j        ! Α[3*k+2] <- j
        Α[k + 2] <- Π[i, j]  ! Α[3*k+3] <- Π[i, j]
        k <- k + 3           ! k <- k + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ output(Π,Α)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, Π[5, 5], Α[15]
ΑΡΧΗ
! Ερώτημα 4 - Εκτύπωση των πινάκων Π και Α
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 5
      ΓΡΑΨΕ Π[i, j], "  "
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15
    ΓΡΑΨΕ Α[i], "  "
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ! Εκτύπωση μόνο των στοιχείων - δεν ζητείται
  ΓΡΑΨΕ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ Α[3*i], "  "
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ