ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Triqui Matricez


Enviado por   •  19 de Junio de 2013  •  1.812 Palabras (8 Páginas)  •  385 Visitas

Página 1 de 8

Sub Main()

Dim c, h, m1, m2, num, pl(9) As Double

Dim M(3, 3), res, res2 As String

M(1, 1) = " "

M(1, 2) = " "

M(1, 3) = " "

M(2, 1) = " "

M(2, 2) = " "

M(2, 3) = " "

M(3, 1) = " "

M(3, 2) = " "

M(3, 3) = " "

res = "e"

res2 = "x"

Console.WriteLine("Este es el juego de triqui ")

Console.WriteLine(" 1 2 3 ")

Console.WriteLine("1 | " & M(1, 1) & " | " & M(1, 2) & " | " & M(1, 3) & " | ")

Console.WriteLine(" |___|___|___|")

Console.WriteLine("2 | " & M(2, 1) & " | " & M(2, 2) & " | " & M(2, 3) & " | ")

Console.WriteLine(" |___|___|___|")

Console.WriteLine("3 | " & M(3, 1) & " | " & M(3, 2) & " | " & M(3, 3) & " | ")

Console.WriteLine(" |___|___|___|")

c = 1

For z = 1 To 9

If c = 1 Then

Console.WriteLine("Jugador X Digite su moviento en un lugar vacio ")

If z = 1 Then

Console.WriteLine("Primero el numero de la fila luego el de la columna juntos ")

Console.WriteLine("Ej: 33 el juegador jugara en la esquina inferior derecha ")

End If

num = Console.ReadLine

h = h + 1

m1 = num \ 10

m2 = num Mod 10

If M(m1, m2) = "X" Or M(m1, m2) = "O" Then

Console.WriteLine("Error posicion ocupada ")

res2 = "R"

z = z - 1

Else

M(m1, m2) = "X"

res2 = "si"

End If

End If

If c = 2 Then

Console.WriteLine("Jugador O Digite su moviento en un lugar vacio ")

num = Console.ReadLine

m1 = num \ 10

m2 = num Mod 10

If M(m1, m2) = "X" Or M(m1, m2) = "O" Then

Console.WriteLine("Error posicion ocupada ")

res2 = "R"

z = z - 1

Else

M(m1, m2) = "O"

res2 = "si"

...

Descargar como (para miembros actualizados) txt (4 Kb)
Leer 7 páginas más »
Disponible sólo en Clubensayos.com