{Terminarlo a tu modo y espero sirva de ayuda }
program juego_de_la_vieja;
uses
crt;
const
eljugador1 = 'O';
eljugador2 = 'X';
type
tablero = array[1..3,1..3] of char;
var
tab : tablero;
x, y : integer;
procedure eltablero;
begin
gotoxy(10,4);write('Ú'); gotoxy(11,4);write('ÄÂÄÂÄ'); gotoxy(16,4);write('¿'); gotoxy(10,5);write('³ ³ ³ ³'); gotoxy(10,6);write('Ã'); gotoxy(11,6);write('ÄÅÄÅÄ'); gotoxy(16,6);write('´'); gotoxy(10,7);write('³ ³ ³ ³'); gotoxy(10,8);write('Ã'); gotoxy(11,8);write('ÄÅÄÅÄ'); gotoxy(16,8);write('´'); gotoxy(10,9);write('³ ³ ³ ³'); gotoxy(10,10);write('À'); gotoxy(11,10);write('ÄÁÄÁÄ'); gotoxy(16,10);write('Ù'); gotoxy(10,12);write('Jugador 1 = ',eljugador1); gotoxy(10,13);write('Jugador 2 = ',eljugador2); end;
procedure fichas(xn, yn : integer;jugador : char);
var
posx, posy : integer;
begin
case xn of
11 : posx := 1;
13 : posx := 2;
15 : posx := 3;
end;
case yn of
5 : posy := 1;
7 : posy := 2;
9 : posy := 3;
end;
if tab[posx,posy] = ' ' then
begin
gotoxy(xn,yn);write(jugador);
tab[posx,posy] := jugador;
end
else
begin
gotoxy(10,15);write('Casilla Ocupada'); end;
end;
procedure posiciones;
begin
gotoxy(18,5);write('11x5 ',' 13x5 ',' 15x5'); gotoxy(18,7);write('11x7 ',' 13x7 ',' 15x7'); gotoxy(18,9);write('11x9 ',' 13x9 ',' 15x9'); end;
procedure entradascordenadas(juga : char);
var
posx, posy, x1, y1 : integer;
begin
gotoxy(10,15);write('entre posicion x : el jugador = ',juga); gotoxy(29,15);
repeat
{$I-} readln(x1); {$I+} if ioresult <> 0 then
begin
x1 := 0;
gotoxy(29,15);
end;
until x1 in[11,13,15];
gotoxy(10,16);write('entre posicion y : el jugador = ',juga); gotoxy(29,16);
repeat
{$I-} readln(y1); {$I+} if ioresult <> 0 then
begin
y1 := 0;
gotoxy(29,16);
end;
until y1 in[5,7,9];
fichas(x1,y1,juga);
gotoxy(10,15);clreol;
gotoxy(10,16);clreol;
end;
function verificaposicioncolumna(h : char) : boolean;
var
ss : boolean;
begin
verificaposicioncolumna := false;
ss := false;
if (tab[1,1] = h) and (tab[1,2] = h) and
(tab[1,3] = h) and (ss = false) then
begin
verificaposicioncolumna := true;
ss := true;
end;
if (tab[2,1] = h) and (tab[2,2] = h) and
(tab[2,3] = h) and (ss = false )then
begin
verificaposicioncolumna := true;
ss := true;
end;
if (tab[3,1] = h) and (tab[3,2] = h) and
(tab[3,3] = h) and (ss = false) then
begin
verificaposicioncolumna := true;
ss := true;
end;
end;
function verificaposicionlinea(h : char) : boolean;
var
ss : boolean;
begin
verificaposicionlinea := false;
ss := false;
if (tab[1,1] = h) and (tab[2,1] = h) and
(tab[3,1] = h) and (ss = false) then
begin
verificaposicionlinea := true;
ss := true;
end;
if (tab[1,2] = h) and (tab[2,2] = h) and
(tab[3,2] = h) and (ss = false )then
begin
verificaposicionlinea := true;
ss := true;
end;
if (tab[1,3] = h) and (tab[2,3] = h) and
(tab[3,3] = h) and (ss = false) then
begin
verificaposicionlinea := true;
ss := true;
end;
end;
function verificaposicioninclider(h : char) : boolean;
var
ss : boolean;
begin
verificaposicioninclider := false;
ss := false;
if (tab[3,1] = h) and (tab[2,2] = h) and
(tab[1,3] = h) and (ss = false) then
begin
verificaposicioninclider := true;
end;
end;
function verificaposicionincliizq(h : char) : boolean;
var
ss : boolean;
begin
verificaposicionincliizq := false;
ss := false;
if (tab[1,1] = h) and (tab[2,2] = h) and
(tab[3,3] = h) and (ss = false) then
begin
verificaposicionincliizq := true;
end;
end;
procedure inicio_partida;
var
posx, posy, p1, p2, z, n, emp : integer;
fin, resuelto : boolean;
ju : char;
begin
randomize;
eltablero;
posiciones;
resuelto := false;
emp := random(60) + 1;
if emp mod 2 = 0 then
n := 1
else
n := 2;
if n = 1 then
begin
entradascordenadas('O'); entradascordenadas('X'); entradascordenadas('O'); entradascordenadas('X'); entradascordenadas('O'); entradascordenadas('X'); end;
if n = 2 then
begin
entradascordenadas('X'); entradascordenadas('O'); entradascordenadas('X'); entradascordenadas('O'); entradascordenadas('X'); entradascordenadas('O'); end;
if verificaposicioncolumna('O') = true then begin
gotoxy(12,18);write('Gana El Jugador [O]'); resuelto := true;
end;
if verificaposicioncolumna('X') = true then begin
gotoxy(12,18);write('Gana El Jugador [X]'); resuelto := true;
end;
if verificaposicionlinea('O') = true then begin
gotoxy(12,18);write('Gana El Jugador [O]'); resuelto := true;
end;
if verificaposicionlinea('X') = true then begin
gotoxy(12,18);write('Gana El Jugador [X]'); resuelto := true;
end;
if verificaposicioninclider('O') then begin
gotoxy(12,18);write('Gana El Jugador [O]'); resuelto := true;
end;
if verificaposicioninclider('X') then begin
gotoxy(12,18);write('Gana El Jugador [X]'); resuelto := true;
end;
if verificaposicionincliizq('O') then begin
gotoxy(12,18);write('Gana El Jugador [O]'); resuelto := true;
end;
if verificaposicionincliizq('X') then begin
gotoxy(12,18);write('Gana El Jugador [X]'); resuelto := true;
end;
if resuelto = false then
begin
z := n;
gotoxy(10,19);write('Termina entrando valor 27'); repeat
case z of
1 : ju := 'O';
2 : ju := 'X';
end;
gotoxy(10,20);write('juega el jugador ',ju); gotoxy(10,15);write('tomamos posicion x : el jugador = ',ju); gotoxy(31,15);
fin := false;
repeat
{$I-} readln(p1); {$I+} if ioresult <> 0 then
begin
p1 := 0;
gotoxy(29,15);
end;
until p1 in[11,13,15,27];
if p1 <> 27 then
begin
gotoxy(10,16);write('tomamos posicion y : el jugador = ',ju); gotoxy(31,16);
repeat
{$I-} readln(p2); {$I+} if ioresult <> 0 then
begin
p2 := 0;
gotoxy(29,16);
end;
until p2 in[5,7,9,27];
end;
if (p1 <> 27) and (p2 <> 27) then
begin
gotoxy(p1,p2);write(' '); case p1 of
11 : posx := 1;
13 : posx := 2;
15 : posx := 3;
end;
case p2 of
5 : posy := 1;
7 : posy := 2;
9 : posy := 3;
end;
if tab[posx,posy] = ' ' then
begin
tab[posx,posy] := ' ';
end
else
begin
gotoxy(10,15);write('Casilla Ocupada'); end;
entradascordenadas(ju);
end;
if (p1 <> 27) and (p2 <> 27) then
begin
inc(z);
if z > 2 then
z := 1;
case z of
1 : ju := 'O';
2 : ju := 'X';
end;
end;
until (p1 = 27) or (p2 = 27) or (fin = true);
end;
end;
begin
clrscr;
fillchar(tab,sizeof(tab),' ');
inicio_partida;
end.
Crear cuenta