algoritmo "hu3"
var
 mah: vetor[1..3, 1..3] de caractere
 fk: vetor [1..3, 1..3] de inteiro
 l, c: inteiro
 j, jj, z, x: caractere

inicio
 mah[1,1] <- "1"
 mah[1,2] <- "2"
 mah[1,3] <- "3"
 mah[2,1] <- "4"
 mah[2,2] <- "5"
 mah[2,3] <- "6"
 mah[3,1] <- "7"
 mah[3,2] <- "8"
 mah[3,3] <- "9"

 Escreval (" | ", mah[1,1], " | ", mah[1,2], " | ", mah[1,3], " | ")
 Escreval (" | ", mah[2,1], " | ", mah[2,2], " | ", mah[2,3], " | ")
 Escreval (" | ", mah[3,1], " | ", mah[3,2], " | ", mah[3,3], " | ")


 Repita
   //jogador 1
     Repita
      Escreva ("Jogador 1, faca sua jogada:")
      Leia (j)
        //1
        Se (j = "1" ) Entao
          mah[1,1] <- "X"
        FimSe
        //2
        Se (j = "2" ) Entao
          mah[1,2] <- "X"
        FimSe
        //3
        Se (j = "3" ) Entao
          mah[1,3] <- "X"
        FimSe
        //4
        Se (j = "4" ) Entao
          mah[2,1] <- "X"
        FimSe
        //5
        Se (j = "5" ) Entao
          mah[2,2] <- "X"
        FimSe
        //6
        Se (j = "6" ) Entao
          mah[2,3] <- "X"
        FimSe
        //7
        Se (j = "7" ) Entao
          mah[3,1] <- "X"
        FimSe
        //8
        Se (j = "8" ) Entao
          mah[3,2] <- "X"
        FimSe
        //9
        Se (j = "9" ) Entao
          mah[3,3] <- "X"
        FimSe


     Ate (j = j )
      LimpaTela
 Escreval (" | ", mah[1,1], " | ", mah[1,2], " | ", mah[1,3], " | ")
 Escreval (" | ", mah[2,1], " | ", mah[2,2], " | ", mah[2,3], " | ")
 Escreval (" | ", mah[3,1], " | ", mah[3,2], " | ", mah[3,3], " | ")
   //jogador 2
     Repita
      Escreva ("Jogador 2, faca sua jogada:")
      Leia (jj)
      //1
      Se (jj = "1" ) Entao
          mah[1,1] <- "O"
      FimSe
      //2
      Se (jj = "2" ) Entao
          mah[1,2] <- "O"
      FimSe
      //3
      Se (jj = "3" ) Entao
          mah[1,3] <- "O"
      FimSe
      //4
      Se (jj = "4" ) Entao
          mah[2,1] <- "O"
      FimSe
      //5
      Se (jj = "5" ) Entao
          mah[2,2] <- "O"
      FimSe
      //6
      Se (jj = "6" ) Entao
          mah[2,3] <- "O"
      FimSe
      //7
      Se (jj = "7" ) Entao
          mah[3,1] <- "O"
      FimSe
      //8
      Se (jj = "8" ) Entao
          mah[3,2] <- "O"
      FimSe
      //9
      Se (jj = "9" ) Entao
          mah[3,3] <- "O"
      FimSe


     Ate (jj = jj)
 LimpaTela
 Escreval (" | ", mah[1,1], " | ", mah[1,2], " | ", mah[1,3], " | ")
 Escreval (" | ", mah[2,1], " | ", mah[2,2], " | ", mah[2,3], " | ")
 Escreval (" | ", mah[3,1], " | ", mah[3,2], " | ", mah[3,3], " | ")
 //condicao de vitoria

Ate (c = 10)



fimalgoritmo