ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ
ΣΤΑΘΕΡΕΣ
  ΠΕΡΙΟΧΕΣ = 4
  ΔΕΙΓΜΑΤΑ = 10
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, Σ[ΠΕΡΙΟΧΕΣ], k
  ΧΑΡΑΚΤΗΡΕΣ: Π[ΠΕΡΙΟΧΕΣ], ΑΠ[ΠΕΡΙΟΧΕΣ, ΔΕΙΓΜΑΤΑ],Δ
ΑΡΧΗ
 !Δ1, Δ2
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΕΡΙΟΧΕΣ
    ΔΙΑΒΑΣΕ Π[i] 
    j <- 1
    ΔΙΑΒΑΣΕ Δ
    ΟΣΟ j <= ΔΕΙΓΜΑΤΑ ΚΑΙ Δ <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
      ΑΠ[i, j]<-Δ
      j <- j + 1
      ΑΝ j <= ΔΕΙΓΜΑΤΑ ΤΟΤΕ
        ΔΙΑΒΑΣΕ Δ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΙΑ k ΑΠΟ j ΜΕΧΡΙ ΔΕΙΓΜΑΤΑ
      ΑΠ[i, k] <- 'Χ'
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 !Δ3.Δημιουργία πίνακα συνόλων θετικών δειγμάτων ανα περιοχή
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΕΡΙΟΧΕΣ
    Σ[i] <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΔΕΙΓΜΑΤΑ
      ΑΝ ΑΠ[i, j] = 'Θ' ΤΟΤΕ
        Σ[i] <- Σ[i] + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 !Δ4.Κλήση διαδικασίας για την ταξινόμηση
  ΚΑΛΕΣΕ ΤΑΞΙΝΟΜΗΣΗ(Π, Σ) 
 !Δ3.Εκτύπωση των περιοχών με τα περισσότερα θετικά δείγματα
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΕΡΙΟΧΕΣ
    ΑΝ Σ[i] = Σ[1] ΤΟΤΕ
      ΓΡΑΨΕ Π[i] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 !Δ4.Εκτύπωση όλων των περιοχών σε φθίνουσα σειρά ως πρός τα θετικά δείγματα
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΕΡΙΟΧΕΣ
    ΓΡΑΨΕ Π[i], ' : ', Σ[i], ' ΘΕΤΙΚΑ ΔΕΙΓΜΑΤΑ'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΤΑΞΙΝΟΜΗΣΗ(Π, Σ) 
ΣΤΑΘΕΡΕΣ
  ΠΕΡΙΟΧΕΣ = 4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, Σ[ΠΕΡΙΟΧΕΣ], Τ1
  ΧΑΡΑΚΤΗΡΕΣ: Π[ΠΕΡΙΟΧΕΣ], Τ2
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ ΠΕΡΙΟΧΕΣ
    ΓΙΑ j ΑΠΟ ΠΕΡΙΟΧΕΣ ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ Σ[j - 1] < Σ[j] ΤΟΤΕ
        Τ1 <- Σ[j - 1] 
        Σ[j - 1] <- Σ[j] 
        Σ[j] <- Τ1
        Τ2 <- Π[j - 1] 
        Π[j - 1] <- Π[j] 
        Π[j] <- Τ2
      ΑΛΛΙΩΣ_ΑΝ Σ[j - 1] = Σ[j] ΚΑΙ Π[j - 1] > Π[j] ΤΟΤΕ
        Τ2 <- Π[j - 1] 
        Π[j - 1] <- Π[j] 
        Π[j] <- Τ2
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ