Δ3 θελει αλλαγη
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ι, ζ, μαξ, πλ, θεση, Σ[20], κ
ΧΑΡΑΚΤΗΡΕΣ: Π[20], δειγμα, ΑΠ[20, 100]
ΑΡΧΗ
!Δ2
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 20
ΔΙΑΒΑΣΕ Π[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 20
ζ <- 1
ΔΙΑΒΑΣΕ δειγμα
ΟΣΟ δειγμα <> 'ΤΕΛΟΣ' ΚΑΙ ζ <= 100 ΕΠΑΝΑΛΑΒΕ
ΑΠ[ι, ζ] <- δειγμα
ζ <- ζ + 1
ΔΙΑΒΑΣΕ δειγμα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ κ ΑΠΟ ζ ΜΕΧΡΙ 100
ΑΠ[ι, ζ] <- 'Χ'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Δ3
μαξ <- -1
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 20
πλ <- 0
ΓΙΑ ζ ΑΠΟ 1 ΜΕΧΡΙ 100
ΑΝ ΑΠ[ι, ζ] = 'Θ' ΤΟΤΕ
πλ <- πλ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Σ[ι] <- πλ
ΑΝ πλ > μαξ ΤΟΤΕ
μαξ <- πλ
θεση <- ι
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Περισότερα κρούσματα στην περιοχή:', Π[θεση]
!Δ4
ΚΑΛΕΣΕ ταξινομηση(Σ, Π)
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ Π[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!Δ5
ΔΙΑΔΙΚΑΣΙΑ ταξινομηση(Σ, Π)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Σ[20], ι, ζ, τεμπ
ΧΑΡΑΚΤΗΡΕΣ: Π[20], τομπ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 20
ΓΙΑ ζ ΑΠΟ 20 ΜΕΧΡΙ ι ΜΕ ΒΗΜΑ -1
ΑΝ Σ[ζ - 1] < Σ[ζ] ΤΟΤΕ
τεμπ <- Σ[ζ]
Σ[ζ] <- Σ[ζ - 1]
Σ[ζ - 1] <- τεμπ
τομπ <- Π[ζ]
Π[ζ] <- Π[ζ - 1]
Π[ζ - 1] <- τομπ
ΑΛΛΙΩΣ_ΑΝ Σ[ζ - 1] = Σ[ζ] ΤΟΤΕ
ΑΝ Π[ζ - 1] > Π[ζ] ΤΟΤΕ
τομπ <- Π[ζ]
Π[ζ] <- Π[ζ - 1]
Π[ζ - 1] <- τομπ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ