Juego de 3 en rayas
//Elaborado por: Mario Castro Coello
Algoritmo Tic_tac_toe
Definir l,q,player Como Entero
Definir tic Como Caracter
Dimension tic[9]
para l=1 Hasta 9 Con Paso 1 Hacer
tic(l)= " "
FinPara
l=1
player = azar(2)+1
Mientras l<=9 Hacer
Escribir "Ingresa una posición jugador ",player
Escribir "1,2,3"," ",tic(1)," , ",tic(2)," , ",tic(3)
Escribir "4,5,6"," ",tic(4)," , ",tic(5)," , ",tic(6)
Escribir "7,8,9"," ",tic(7)," , ",tic(8)," , ",tic(9)
Leer q
si q>0 y q<10 Entonces
si player == 1 Entonces
si tic(q) == " " Entonces
tic(q) = "X"
player = 2
si tic(1) == "X" y tic(2) == "X" y tic(3) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 1 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(4) == "X" y tic(5) == "X" y tic(6) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 1 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(7) == "X" y tic(8) == "X" y tic(9) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 1 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "X" y tic(4) == "X" y tic(7) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 1 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(2) == "X" y tic(5) == "X" y tic(8) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 1 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(3) == "X" y tic(6) == "X" y tic(9) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 1 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "X" y tic(5) == "X" y tic(9) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 1 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(3) == "X" y tic(5) == "X" y tic(7) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 1 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "O" y tic(2) == "X" y tic(3) == "O" y tic(4) == "X" y tic(5) == "O" y tic(7) == "X" y tic(8) == "O" y tic(9) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "Es un empate"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "X" y tic(2) == "O" y tic(3) == "X" y tic(4) == "0" y tic(5) == "O" y tic(6) == "X" y tic(8) == "X" y tic(9) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "Es un empate"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "X" y tic(2) == "O" y tic(3) == "X" y tic(4) == "0" y tic(5) == "X" y tic(6) == "X" y tic(7) == "O" y tic(8) == "X" y tic(9) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "Es un empate"
Escribir "------------------------------------------------------"
l=9
FinSi
SiNo
Escribir "------------------------------------------------------"
Escribir "Esa posición esta ocupada"
Escribir "------------------------------------------------------"
FinSi
SiNo
si tic(q) == " " Entonces
tic(q) = "O"
player = 1
si tic(1) == "O" y tic(2) == "O" y tic(3) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 2 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(4) == "O" y tic(5) == "O" y tic(6) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 2 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(7) == "O" y tic(8) == "O" y tic(9) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 2 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "O" y tic(4) == "O" y tic(7) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 2 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(2) == "O" y tic(5) == "O" y tic(8) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 2 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(3) == "O" y tic(6) == "O" y tic(9) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 2 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "O" y tic(5) == "O" y tic(9) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 2 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(3) == "O" y tic(5) == "O" y tic(7) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "El jugador 2 ha ganado"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "O" y tic(2) == "X" y tic(3) == "O" y tic(4) == "X" y tic(5) == "O" y tic(7) == "X" y tic(8) == "O" y tic(9) == "X" Entonces
Escribir "------------------------------------------------------"
Escribir "Es un empate"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "X" y tic(2) == "O" y tic(3) == "X" y tic(4) == "0" y tic(5) == "O" y tic(6) == "X" y tic(8) == "X" y tic(9) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "Es un empate"
Escribir "------------------------------------------------------"
l=9
FinSi
si tic(1) == "X" y tic(2) == "O" y tic(3) == "X" y tic(4) == "0" y tic(5) == "X" y tic(6) == "X" y tic(7) == "O" y tic(8) == "X" y tic(9) == "O" Entonces
Escribir "------------------------------------------------------"
Escribir "Es un empate"
Escribir "------------------------------------------------------"
l=9
FinSi
SiNo
Escribir "------------------------------------------------------"
Escribir "Esa posición esta ocupada"
Escribir "------------------------------------------------------"
FinSi
FinSi
SiNo
Escribir "Posición no valida"
FinSi
l=l+1
FinMientras
Escribir "1,2,3"," ",tic(1)," , ",tic(2)," , ",tic(3)
Escribir "4,5,6"," ",tic(4)," , ",tic(5)," , ",tic(6)
Escribir "7,8,9"," ",tic(7)," , ",tic(8)," , ",tic(9)
FinAlgoritmo
__________________________________________________________________________________
Comentarios
Publicar un comentario