ΠΑΡΑΚΑΤΩ ΔΙΝΩ ΜΙΑ ΥΛΟΠΟΙΗΣΗ ΤΟΥ ΠΡΟΒΛΗΜΑΤΟΣ ΜΕΣΩ ΤΗΣ ΤΑΞΙΝΟΜΗΣΗΣ (Δεύτερη εναλλακτική προσέγγιση όπως ανέφερε και ο gpapargi)
ΠΡΟΓΡΑΜΜΑ ΕύρεσηΔιαφορετικώνΣτοιχείωνΜέσωΤαξινόμησηςΦυσαλίδας
!Οι τιμές διαβάζονται από την καρτέλα «Αρχείο εισόδου
ΣΤΑΘΕΡΕΣ
Ν = 10
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ι, κ, pl, pos, j
ΑΚΕΡΑΙΕΣ: Α[Ν], προσ, B[Ν]
ΛΟΓΙΚΕΣ: done
ΑΡΧΗ
!Διάβασμα του πίνακα
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'Δώσε το Α[', ι, ']: '
ΔΙΑΒΑΣΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Ταξινόμηση του πίνακα
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ Ν
ΓΙΑ κ ΑΠΟ Ν ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1
ΑΝ Α[κ] < Α[κ - 1] ΤΟΤΕ
προσ <- Α[κ]
Α[κ] <- Α[κ - 1]
Α[κ - 1] <- προσ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Εμφάνιση του πίνακα
ΓΡΑΨΕ 'Ο ταξινομημένος πίνακας είναι:'
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'Α[', ι, '] = ', Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Εύρεση διαφορετικών αριθμών
B[1] <- Α[1]
pl <- 1
pos <- 1
ΟΣΟ pos < Ν ΕΠΑΝΑΛΑΒΕ
done <- ΨΕΥΔΗΣ
j <- pos
ΟΣΟ done=ΨΕΥΔΗΣ ΚΑΙ j <= Ν ΕΠΑΝΑΛΑΒΕ
ΑΝ Α[j] <> Α[pos] ΤΟΤΕ
done <- ΑΛΗΘΗΣ
pos <- j
ΑΛΛΙΩΣ
j <- j+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ done=ΑΛΗΘΗΣ ΤΟΤΕ
pl <- pl+1
B[pl] <- Α[pos]
ΑΛΛΙΩΣ
pos <- j
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΤΟ ΠΛΗΘΟΣ ΤΩΝ ΔΙΑΦΟΡΕΤΙΚΩΝ ΑΡΙΘΜΩΝ ΕΙΝΑΙ:', pl
!Εμφάνιση των διαφορετικών αριθμών
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ pl
ΓΡΑΨΕ 'Β[', ι, '] = ', B[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΕΠΙΣΗΣ ΠΑΡΑΤΗΡΗΣΑ ΟΤΙ Ο ΑΛΓΟΡΙΘΜΟΣ ΤΟΥ wizard ΣΤΗΝ ΔΕΥΤΕΡΗ ΕΚΔΟΧΗ ΤΟΥ (ΜΕ ΕΝΑ ΑΠΛΟ ΤΡΕΞΙΜΟ ΠΡΟΚΥΠΤΕΙ) ΔΕΝ ΕΙΝΑΙ ΣΩΣΤΟΣ.