ΛΥΣΗ ΕΠΑΝΑΛΗΠΤΙΚΗΣ ΑΣΚΗΣΗΣ 19

ΠΡΟΓΡΑΜΜΑ Τρίλιζα
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, j, γύροι
ΧΑΡΑΚΤΗΡΕΣ: Τ[3, 3]
ΛΟΓΙΚΕΣ: δες
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
Τ[i, j] <- '-'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
γύροι <- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ i, j
ΜΕΧΡΙΣ_ΟΤΟΥ Τ[i, j] = '-'
γύροι <- γύροι + 1
ΑΝ γύροι MOD 2 = 1 ΤΟΤΕ ! πρώτος παίκτης
Τ[i, j] <- 'Χ'
ΑΛΛΙΩΣ
Τ[i, j] <- 'Ο'
ΤΕΛΟΣ_ΑΝ
δες <- ΝΙΚΗΣΕ(Τ, i, j)
ΜΕΧΡΙΣ_ΟΤΟΥ γύροι = 9 Η δες = ΑΛΗΘΗΣ
ΑΝ δες = ΑΛΗΘΗΣ ΤΟΤΕ
ΑΝ γύροι MOD 2 = 1 ΤΟΤΕ
ΓΡΑΨΕ 'Κέρδισε ο πρώτος'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Κέρδισε ο δεύτερος'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Ισοπαλία'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ ΝΙΚΗΣΕ(Τ, Γ, Σ): ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Γ, Σ
ΧΑΡΑΚΤΗΡΕΣ: Τ[3, 3]
ΛΟΓΙΚΕΣ: υπάρχει
ΑΡΧΗ
υπάρχει <- ΨΕΥΔΗΣ ! έστω ότι δεν υπάρχει νικητής

AN Τ[Γ, 1] = Τ[Γ, 2] KAI Τ[Γ, 2] = Τ[Γ, 3] ΤΟΤΕ ! Β1
υπάρχει <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ

AN Τ[1, Σ] = Τ[2, Σ] KAI Τ[2, Σ] = Τ[3, Σ] ΤΟΤΕ ! Β2
υπάρχει <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ

AN (Γ = Σ) ΚΑΙ (Τ[1, 1] = Τ[2, 2] KAI Τ[2, 2] = Τ[3, 3]) ΤΟΤΕ ! Β3
υπάρχει <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ

AN (Γ + Σ = 4) ΚΑΙ (Τ[1, 3] = Τ[2, 2] KAI Τ[2, 2] = Τ[3, 1]) ΤΟΤΕ ! Β4
υπάρχει <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
! πραγματοποιούνται περιττοί έλεγχοι, που μπορούν να αποφευχθούν
ΝΙΚΗΣΕ <– υπάρχει
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ