ΠΡΟΓΡΑΜΜΑ μελη_συλλογων ΣΤΑΘΕΡΕΣ μελη = 100 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: μελος_α, μελος_εκ, ι ΧΑΡΑΚΤΗΡΕΣ: α[μελη], εκ[μελη] ΑΡΧΗ ΓΡΑΨΕ "δωσε αυτους που ανηκουν στον Αρχίλοχο" ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μελη ΔΙΑΒΑΣΕ α[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "δωσε αυτους που ανηκουν στην Εκατονταπυλιανή" ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μελη ΔΙΑΒΑΣΕ εκ[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΚΑΛΕΣΕ ταξινομηση(α) ΚΑΛΕΣΕ ταξινομηση(εκ) ΓΡΑΨΕ "ονοματα που ανηκουν στον Αρχίλοχο και οχι στην Εκατονταπυλιανή:" ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μελη μελος_εκ <- ελεγχος_αναζητησης(εκ, α[ι]) ΑΝ μελος_εκ = 0 ΤΟΤΕ ΓΡΑΨΕ α[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "οι παρακατω ειναι ολα τα μελη που μετασχουν σε τουλαχιστον εναν συλλογο:" ΓΡΑΨΕ "ονοματα που ανηκουν στην Εκατονταπυλιανή και οχι στον Αρχίλοχο :" ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μελη μελος_α <- ελεγχος_αναζητησης(α, εκ[ι]) ΑΝ μελος_α = 0 ΤΟΤΕ ΓΡΑΨΕ εκ[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ " στον αρχιλοχο ανηκουν οι εξης:" ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μελη ΓΡΑΨΕ α[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "και στους 2 συλλογους μετασχουν οι:" ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μελη μελος_α <- ελεγχος_αναζητησης(α, εκ[ι]) ΑΝ μελος_α = 1 ΤΟΤΕ ΓΡΑΨΕ εκ[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ ελεγχος_αναζητησης(πινακ, ον): ΑΚΕΡΑΙΑ ΣΤΑΘΕΡΕΣ μελη = 100 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, απ ΧΑΡΑΚΤΗΡΕΣ: πινακ[μελη], ον ΑΡΧΗ απ <- 0 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μελη ΑΝ ον = πινακ[ι] ΤΟΤΕ απ <- 1 ι <- μελη ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ελεγχος_αναζητησης <- απ ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ ΔΙΑΔΙΚΑΣΙΑ ταξινομηση(πινακ) ΣΤΑΘΕΡΕΣ μελη = 100 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ξ ΧΑΡΑΚΤΗΡΕΣ: πινακ[μελη], τεμπ ΑΡΧΗ ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ μελη ΓΙΑ ξ ΑΠΟ μελη ΜΕΧΡΙ ι ΜΕ ΒΗΜΑ -1 ΑΝ πινακ[ξ] < πινακ[ξ - 1] ΤΟΤΕ τεμπ <- πινακ[ξ] πινακ[ξ] <- πινακ[ξ - 1] πινακ[ξ - 1] <- τεμπ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ