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

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

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