Tic-Tac-Toe

1SubProceso DibujarTablero(tablero)2    Definir fila Como Entero3    Escribir ""4    Para fila <- 1 Hasta 3 Hacer5        Escribir " ", tablero[fila, 1], " | ", tablero[fila, 2], " | ", tablero[fila, 3]6        Si fila < 3 Entonces7            Escribir "---+---+---"8        FinSi9    FinPara10FinSubProceso1112Funcion gano <- HayTresEnLinea(tablero, jugador)13    Definir gano Como Logico14    Definir i Como Entero15    gano <- Falso16    Para i <- 1 Hasta 3 Hacer17        Si tablero[i, 1] = jugador Y tablero[i, 2] = jugador Y tablero[i, 3] = jugador Entonces18            gano <- Verdadero19        FinSi20        Si tablero[1, i] = jugador Y tablero[2, i] = jugador Y tablero[3, i] = jugador Entonces21            gano <- Verdadero22        FinSi23    FinPara24    Si tablero[1, 1] = jugador Y tablero[2, 2] = jugador Y tablero[3, 3] = jugador Entonces25        gano <- Verdadero26    FinSi27    Si tablero[1, 3] = jugador Y tablero[2, 2] = jugador Y tablero[3, 1] = jugador Entonces28        gano <- Verdadero29    FinSi30FinFuncion3132Algoritmo TaTeTi33    Definir tablero, jugador, ganador Como Caracter34    Definir fila, columna, jugadas, i, j Como Entero35    Definir valida Como Logico36    Dimension tablero[3, 3]37    Para i <- 1 Hasta 3 Hacer38        Para j <- 1 Hasta 3 Hacer39            tablero[i, j] <- " "40        FinPara41    FinPara42    jugador <- "X"43    ganador <- ""44    jugadas <- 045    Mientras ganador = "" Y jugadas < 9 Hacer46        DibujarTablero(tablero)47        Repetir48            Escribir "Turno de ", jugador, ". Fila (1 a 3):"49            Leer fila50            Escribir "Columna (1 a 3):"51            Leer columna52            valida <- fila >= 1 Y fila <= 3 Y columna >= 1 Y columna <= 353            Si valida Entonces54                Si tablero[fila, columna] <> " " Entonces55                    valida <- Falso56                FinSi57            FinSi58            Si NO valida Entonces59                Escribir "Esa casilla no está disponible."60            FinSi61        Hasta Que valida62        tablero[fila, columna] <- jugador63        jugadas <- jugadas + 164        Si HayTresEnLinea(tablero, jugador) Entonces65            ganador <- jugador66        FinSi67        Si jugador = "X" Entonces68            jugador <- "O"69        SiNo70            jugador <- "X"71        FinSi72    FinMientras73    DibujarTablero(tablero)74    Si ganador = "" Entonces75        Escribir "¡Empate!"76    SiNo77        Escribir "¡Ganó ", ganador, "!"78    FinSi79FinAlgoritmo