Συχνότητα εμφάνισης στοιχείου σε πίνακα

Το παρακάτω πρόγραμμα βρίσκει το στοιχείο με την μεγαλύτερη συχνότητα εμφάνισης σε ένα δισδιάστατο πίνακα .

ΠΡΟΓΡΑΜΜΑ ευρευση_συχνοτερης_τιμης

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ: Α[5, 4], ι, κ, μετρ, αριθμ_εμφ[20, 2], μεγιστ, θεσ_μεγ, δ

ΛΟΓΙΚΕΣ: υπαρχει

ΑΡΧΗ

Α[1, 1] <- 4

Α[2, 1] <- 5

Α[3, 1] <- 10

Α[4, 1] <- 15

Α[5, 1] <- 19

Α[1, 2] <- 5

Α[2, 2] <- 5

Α[3, 2] <- 4

Α[4, 2] <- 5

Α[5, 2] <- 15

Α[1, 3] <- 1

Α[2, 3] <- 6

Α[3, 3] <- 9

Α[4, 3] <- 5

Α[5, 3] <- 5

Α[1, 4] <- 7

Α[2, 4] <- 4

Α[3, 4] <- 8

Α[4, 4] <- 5

Α[5, 4] <- 1

μετρ <- 0

ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 5

ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 4

υπαρχει <- ΨΕΥΔΗΣ

δ <- 1

ΟΣΟ (δ <= μετρ) ΚΑΙ ΟΧΙ(υπαρχει) ΕΠΑΝΑΛΑΒΕ

ΑΝ Α[ι, κ] = αριθμ_εμφ[δ, 1] ΤΟΤΕ

υπαρχει <- ΑΛΗΘΗΣ

αριθμ_εμφ[δ, 2] <- αριθμ_εμφ[δ, 2] + 1

ΤΕΛΟΣ_ΑΝ

δ <- δ + 1

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΑΝ ΟΧΙ(υπαρχει) ΤΟΤΕ

αριθμ_εμφ[δ, 1] <- Α[ι, κ]

αριθμ_εμφ[δ, 2] <- 1

μετρ <- μετρ + 1

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

μεγιστ <- αριθμ_εμφ[1, 2]

θεσ_μεγ <- 1

ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μετρ

ΓΡΑΨΕ "Το στοιχείο ", αριθμ_εμφ[ι, 1], " υπάρχει ", αριθμ_εμφ[ι, 2], " φορές"

ΑΝ αριθμ_εμφ[ι, 2] > μεγιστ ΤΟΤΕ

μεγιστ <- αριθμ_εμφ[ι, 2]

θεσ_μεγ <- ι

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΓΡΑΨΕ "Το στοιχείο που έχει την μεγαλύτερη συχνότητα εμφάνισης ειναι το ", αριθμ_εμφ[θεσ_μεγ, 1], " και υπάρχει ", αριθμ_εμφ[θεσ_μεγ, 2], " φορές"

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