ΠΡΟΓΡΑΜΜΑ ΠΟΔΟΣΦΑΙΡΟ ΣΤΑΘΕΡΕΣ Ν = 5 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ΑΓΩΝΕΣ[Ν, Ν], Ι, Ξ, Κ, Λ, Μ, ΒΑΘΜ[Ν], ΤΕΜΠ, ΚΩΔ[Ν], ΔΤΕΡΜ[Ν], Α, Β, Γ, Δ, ΣΑΔ, ΣΒΓ ΧΑΡΑΚΤΗΡΕΣ: ΟΜΑΔΕΣ[Ν], ΤΕΜΠΧ ΛΟΓΙΚΕΣ: ΑΝΤ ΑΡΧΗ ! ΕΙΣΑΓΩΓΗ ΟΝΟΜΑΤΩΝ ΟΜΑΔΩΝ ! ΑΡΧΙΚΟΠΟΙΗΣΗ ΚΥΡΙΑΣ ΔΙΑΓΩΝΙΟΥ ΤΟΥ ΠΙΝΑΚΑ ΑΓΩΝΕΣ ! ΑΡΧΙΚΟΠΟΙΗΣΗ ΤΟΥ ΠΙΝΑΚΑ ΒΑΘΜ ΚΑΙ ΚΩΔ (ΚΩΔΙΚΟΙ ΟΜΑΔΩΝ) ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΟΝΟΜΑ ΤΗΣ ', Ι, 'ης ΟΜΑΔΑΣ' ΔΙΑΒΑΣΕ ΟΜΑΔΕΣ[Ι] ΑΓΩΝΕΣ[Ι, Ι] <- 0 ΒΑΘΜ[Ι] <- 0 ΚΩΔ[Ι] <- Ι ΔΤΕΡΜ[Ι] <- 0 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! ΕΙΣΑΓΩΓΗ ΑΠΟΤΕΛΕΣΜΑΤΩΝ ΣΤΟΝ ΠΙΝΑΚΑ ΑΓΩΝΕΣ ! ΚΑΘΕ ΟΜΑΔΑ ΠΑΙΖΕΙ 2 ΑΓΩΝΕΣ. ΕΝΑΝ ΕΝΤΟΣ ΚΑΙ ΕΝΑΝ ΕΚΤΟΣ ! ΥΠΟΛΟΓΙΣΜΟΣ ΒΑΘΜΟΛΟΓΙΑΣ ΟΜΑΔΩΝ ΣΤΟΝ ΠΙΝΑΚΑ ΒΑΘΜ ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν - 1 ΓΙΑ Ξ ΑΠΟ Ι + 1 ΜΕΧΡΙ Ν ΓΡΑΨΕ 'ΔΩΣΕ ΑΠΟΤΕΛΕΣΜΑ ΓΙΑ ΤΟΝ ΑΓΩΝΑ ', ΟΜΑΔΕΣ[Ι], '--', ΟΜΑΔΕΣ[Ξ], '' ΔΙΑΒΑΣΕ ΑΓΩΝΕΣ[Ι, Ξ] ΓΡΑΨΕ 'ΔΩΣΕ ΑΠΟΤΕΛΕΣΜΑ ΓΙΑ ΤΟΝ ΑΓΩΝΑ ', ΟΜΑΔΕΣ[Ξ], '--', ΟΜΑΔΕΣ[Ι], '' ΔΙΑΒΑΣΕ ΑΓΩΝΕΣ[Ξ, Ι] Α <- ΑΓΩΝΕΣ[Ι, Ξ] div 10 Β <- ΑΓΩΝΕΣ[Ι, Ξ] mod 10 Γ <- ΑΓΩΝΕΣ[Ξ, Ι] div 10 Δ <- ΑΓΩΝΕΣ[Ξ, Ι] mod 10 ΑΝ (Α > Β) ΤΟΤΕ ΒΑΘΜ[Ι] <- ΒΑΘΜ[Ι] + 3 ΑΛΛΙΩΣ_ΑΝ (Α < Β) ΤΟΤΕ ΒΑΘΜ[Ξ] <- ΒΑΘΜ[Ξ] + 3 ΑΛΛΙΩΣ ΒΑΘΜ[Ι] <- ΒΑΘΜ[Ι] + 1 ΒΑΘΜ[Ξ] <- ΒΑΘΜ[Ξ] + 1 ΤΕΛΟΣ_ΑΝ ΑΝ (Δ > Γ) ΤΟΤΕ ΒΑΘΜ[Ι] <- ΒΑΘΜ[Ι] + 3 ΑΛΛΙΩΣ_ΑΝ (Δ < Γ) ΤΟΤΕ ΒΑΘΜ[Ξ] <- ΒΑΘΜ[Ξ] + 3 ΑΛΛΙΩΣ ΒΑΘΜ[Ι] <- ΒΑΘΜ[Ι] + 1 ΒΑΘΜ[Ξ] <- ΒΑΘΜ[Ξ] + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΑΝΤ <- ΨΕΥΔΗΣ ΓΙΑ Ι ΑΠΟ Ν ΜΕΧΡΙ 2 ΜΕ_ΒΗΜΑ -1 ΑΝ ΒΑΘΜ[Ι] > ΒΑΘΜ[Ι - 1] ΤΟΤΕ ΤΕΜΠ <- ΒΑΘΜ[Ι] ΒΑΘΜ[Ι] <- ΒΑΘΜ[Ι - 1] ΒΑΘΜ[Ι - 1] <- ΤΕΜΠ ΤΕΜΠ <- ΚΩΔ[Ι] ΚΩΔ[Ι] <- ΚΩΔ[Ι - 1] ΚΩΔ[Ι - 1] <- ΤΕΜΠ ΤΕΜΠΧ <- ΟΜΑΔΕΣ[Ι] ΟΜΑΔΕΣ[Ι] <- ΟΜΑΔΕΣ[Ι - 1] ΟΜΑΔΕΣ[Ι - 1] <- ΤΕΜΠΧ ΑΝΤ <- ΑΛΗΘΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΕΧΡΙΣ_ΟΤΟΥ ΑΝΤ = ΨΕΥΔΗΣ Ι <- 1 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ Κ <- Ι ΟΣΟ (ΒΑΘΜ[Κ] = ΒΑΘΜ[Κ + 1]) ΚΑΙ (Κ < (Ν - 1)) ΕΠΑΝΑΛΑΒΕ Κ <- Κ + 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ Κ = Ν - 1 ΚΑΙ (ΒΑΘΜ[Κ] = ΒΑΘΜ[Κ + 1]) ΤΟΤΕ Κ <- Κ + 1 ΤΕΛΟΣ_ΑΝ ΑΝ Κ > Ι ΤΟΤΕ ΓΙΑ Λ ΑΠΟ Ι ΜΕΧΡΙ Κ ΔΤΕΡΜ[Λ] <- 0 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΣΑΔ <- 0 ΣΒΓ <- 0 ΓΙΑ Λ ΑΠΟ Ι ΜΕΧΡΙ Κ - 1 ΓΙΑ Μ ΑΠΟ Λ + 1 ΜΕΧΡΙ Κ Α <- ΑΓΩΝΕΣ[ΚΩΔ[Λ], ΚΩΔ[Μ]] div 10 Β <- ΑΓΩΝΕΣ[ΚΩΔ[Λ], ΚΩΔ[Μ]] mod 10 Γ <- ΑΓΩΝΕΣ[ΚΩΔ[Μ], ΚΩΔ[Λ]] div 10 Δ <- ΑΓΩΝΕΣ[ΚΩΔ[Μ], ΚΩΔ[Λ]] mod 10 ΣΑΔ <- ΣΑΔ + Α + Δ ΣΒΓ <- ΣΒΓ + Β + Γ ΔΤΕΡΜ[Λ] <- ΔΤΕΡΜ[Λ] + (ΣΑΔ - ΣΒΓ) ΔΤΕΡΜ[Μ] <- ΔΤΕΡΜ[Μ] + (ΣΒΓ - ΣΑΔ) ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΑΝΤ <- ΨΕΥΔΗΣ ΓΙΑ Λ ΑΠΟ Κ ΜΕΧΡΙ Ι + 1 ΜΕ_ΒΗΜΑ -1 ΑΝ ΔΤΕΡΜ[Λ] > ΔΤΕΡΜ[Λ - 1] ΤΟΤΕ ΤΕΜΠ <- ΔΤΕΡΜ[Λ] ΔΤΕΡΜ[Λ] <- ΔΤΕΡΜ[Λ - 1] ΔΤΕΡΜ[Λ - 1] <- ΤΕΜΠ ΤΕΜΠΧ <- ΟΜΑΔΕΣ[Λ] ΟΜΑΔΕΣ[Λ] <- ΟΜΑΔΕΣ[Λ - 1] ΟΜΑΔΕΣ[Λ - 1] <- ΤΕΜΠΧ ΑΝΤ <- ΑΛΗΘΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΕΧΡΙΣ_ΟΤΟΥ ΑΝΤ = ΨΕΥΔΗΣ Ι <- Κ + 1 ΑΛΛΙΩΣ Ι <- Ι + 1 ΤΕΛΟΣ_ΑΝ ΜΕΧΡΙΣ_ΟΤΟΥ Ι >= Ν ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν ΓΡΑΨΕ Ι, 'η ΘΕΣΗ Η ΟΜΑΔΑ ', ΟΜΑΔΕΣ[Ι], ' ΜΕ ΒΑΘΜΟΛΟΓΙΑ ', ΒΑΘΜ[Ι], ' ΚΑΙ ΔΙΑΦΟΡΑ ΤΕΡΜΑΤΩΝ (ΙΣΟΒΑΘΜΙΑ) ', ΔΤΕΡΜ[Ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ