!===========================================================
! Να αναπτύξετε πρόγραμμα το οποίο δέχεται ένα διδιάστατο
! πίνακα ακεραίων Α[Ν,Ν], και τον ταξινομει κατά αύξουσα
! σειρά, συνολικα. Μεταθέτει δηλαδή τα στοιχεία του έτσι
! ώστε στο τέλος να ισχύει
! Α[1,1]<=Α[1,2]<=Α[1,3]<=....<=Α[2,1]<=Α[2,2]<=.....Α[5,5]
!                      
! Αν ο αρχικος πίνακας είναι ο παρακάτω:
!
!    1  1  2  2  3
!    1  1  4  3  5
!    2  1  0  6  6
!    3  0  4  3  5
!    2  5  0  7  8
!
! Ο τελικός θα πρέπει να είναι ο επόμενος:
!
!    0  0  0  1  1
!    1  1  1  2  2
!    2  2  3  3  3
!    3  4  4  5  5
!    5  6  6  7  8
!
!===========================================================

ΠΡΟΓΡΑΜΜΑ shorting_for_square_table
ΣΤΑΘΕΡΕΣ
  Ν=5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i,j,k, A[Ν,Ν],row,col, temp, min,Θi,Θj
  ΛΟΓΙΚΕΣ:change
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
      ΔΙΑΒΑΣΕ A[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

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

  row <-- 1
  col <-- 1
  ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ Ν*Ν
    min <-- A[row,col]
    Θi <-- row
    Θj <-- col

    j <-- col
    change <-- ψευδής
    ΓΙΑ i ΑΠΟ row ΜΕΧΡΙ Ν
      ΟΣΟ j<=Ν ΕΠΑΝΑΛΑΒΕ
        ΑΝ A[i,j]<min ΤΟΤΕ
          min <-- A[i,j]
          Θi <-- i
          Θj <-- j
          change <-- αληθης
        ΤΕΛΟΣ_ΑΝ
        j <-- j+1
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      j <-- 1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ change ΤΟΤΕ
      temp <-- A[Θi,Θj]
      A[Θi,Θj] <-- A[row,col]
      A[row,col] <-- temp
    ΤΕΛΟΣ_ΑΝ

    col <-- col+1
    ΑΝ col>Ν ΤΟΤΕ
      col <-- 1
      row <-- row+1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

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

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

 

!===========================================================
! Να αναπτύξετε πρόγραμμα το οποίο δέχεται ένα διδιάστατο
! πίνακα ακεραίων Α[Ν,Ν] και τον ταξινομεί κατά αύξουσα
! σειρά, ώστε στο τέλος να ισχύει
! Α[1,1]<=Α[1,2]<=Α[1,3]<=....<=Α[2,1]<=Α[2,2]<=.....Α[5,5]
!
! Αν ο αρχικος πίνακας είναι ο παρακάτω:
!
!    1  1  2  2  3
!    1  1  4  3  5
!    2  1  0  6  6
!    3  0  4  3  5
!    2  5  0  7  8
!
! Ο τελικός θα πρέπει να είναι ο επόμενος:
!
!    0  0  0  1  1
!    1  1  1  2  2
!    2  2  3  3  3
!    3  4  4  5  5
!    5  6  6  7  8
!
!===========================================================

ΠΡΟΓΡΑΜΜΑ Ταξινόμηση_διδιάστατου_πίνακα

ΣΤΑΘΕΡΕΣ
  Ν=5

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i,j, k, Α[Ν,Ν], Β[Ν*Ν], temp

ΑΡΧΗ

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

  ΓΡΑΨΕ 'Αρχικός:'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
      ΓΡΑΨΕ_ Α[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  k <-- 1
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
      Β[k] <-- Α[i,j]
      k <-- k+1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν*Ν
    ΓΙΑ j ΑΠΟ Ν*Ν ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ Β[j-1]>Β[j] ΤΟΤΕ
        temp <-- Β[j-1]
        Β[j-1] <-- Β[j]
        Β[j] <-- temp
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  k <-- 1
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
      Α[i,j] <-- Β[k]
      k <-- k+1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'Ταξινομημένος:'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
      ΓΡΑΨΕ_ Α[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Ταξινόμηση_διδιάστατου_πίνακα

 

ΠΡΟΓΡΑΜΜΑ ΤΑΞΙΝΟΜΗΣΗ_ΠΙΝΑΚΑ_3Χ5  
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Α[3,5],i,j,k,m,y
ΑΡΧΗ
  ΓΙΑ i από 1 μέχρι 3
    για j από 1 μέχρι 5
      διάβασε α[i,j]
    τέλος_επανάληψης
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  γράψε
  γραψε
  Για i από 1 μέχρι 3
    για j από 1 μέχρι 5
      για k από 1 μέχρι 3
        για m από 1 μέχρι 5
          αν α[i,j]<α[k,m] τότε
            y <-- α[i,j]
            α[i,j] <-- α[k,m]
            α[k,m] <-- y
          ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i  ΑΠΟ  1  ΜΕΧΡΙ  3
    ΓΙΑ j  ΑΠΟ  1  ΜΕΧΡΙ  5
      ΓΡΑΨΕ α[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ