ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ
ΣΤΑΘΕΡΕΣ
  ΠΕΡΙΟΧΕΣ = 4
  ΔΕΙΓΜΑΤΑ = 10
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, Σ[ΠΕΡΙΟΧΕΣ], k
  ΧΑΡΑΚΤΗΡΕΣ: Π[ΠΕΡΙΟΧΕΣ], ΑΠ[ΠΕΡΙΟΧΕΣ, ΔΕΙΓΜΑΤΑ], δειγματοληψία
ΑΡΧΗ
 !Δ1, Δ2
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΕΡΙΟΧΕΣ
    ΔΙΑΒΑΣΕ Π[i] 
    j <- 1
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ δειγματοληψία
      ΑΝ δειγματοληψία <> 'ΤΕΛΟΣ' ΤΟΤΕ
        ΑΠ[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
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ