bill_kevin
Colaborador
Mensajes: 1584
Edad: 21
Pais: guatemala
Empleo/Ocio: estudiante
Registrado: 20/04/2009
 |  Tema: Re: Totito en pascal  Jue Sep 29, 2011 3:22 pm | |
| No me acuerdo cual de los 2 es :S
Codigo
| Código: |
program totito;
uses crt;
var
d: integer;
z:char;
b,bb,bbb:boolean;
va:array[1..3]of string;
vb:array[1..3]of string;
vc:array[1..3]of string;
jugador1,jugador2,s,ss:string;
c:integer;
procedure win1;
begin
gotoxy(10,42);write(jugador1+'(X) gana');
bbb:=true;
sound(300);
delay(800);
nosound;
delay(200);
sound(300);
delay(800);
sound(400);
delay(1600);
nosound;
repeat
ss:='';
gotoxy(10,40);write(' ');
gotoxy(10,40);write('¨Desea reiniciar o salir? (r/s): ');
readln(ss);
if(ss='s')or(ss='S')then
begin
z:='s';
bb:=true;
end;
if(ss='r')or(ss='R')then
begin
clrscr;
for c:=1 to 3do
va[c]:='';
for c:=1 to 3do
vb[c]:='';
for c:=1 to 3do
vc[c]:='';
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,20);write('Nombre de jugador 1: ');
readln(jugador1);
clrscr;
gotoxy(10,20);write('Nombre de jugador 2: ');
readln(jugador2);
clrscr;
for d:= 1 to 30 do
begin
gotoxy (30,3+d); writeln ('l');
end;
for d:= 1 to 30 do
begin
gotoxy (45,3+d); writeln ('l');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,12); writeln ('-');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,27); writeln ('-');
end;
end;
until(ss='r')or(ss='s')or(ss='R')or(ss='S');
end;
procedure win2;
begin
gotoxy(10,42);write(jugador2+'(O) gana');
bbb:=true;
sound(300);
delay(800);
nosound;
delay(200);
sound(300);
delay(800);
sound(400);
delay(1600);
nosound;
repeat
ss:='';
gotoxy(10,40);write(' ');
gotoxy(10,40);write('¨Desea reiniciar o salir? (r/s): ');
readln(ss);
if(ss='s')or(ss='S')then
begin
z:='s';
bb:=true;
end;
if(ss='r')or(ss='R')then
begin
clrscr;
for c:=1 to 3do
va[c]:='';
for c:=1 to 3do
vb[c]:='';
for c:=1 to 3do
vc[c]:='';
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,20);write('Nombre de jugador 1: ');
readln(jugador1);
clrscr;
gotoxy(10,20);write('Nombre de jugador 2: ');
readln(jugador2);
clrscr;
gotoxy(1,24);write('Para reiniciar presione "r"');
gotoxy(1,25);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+jugador1+' (O)');
for d:= 1 to 30 do
begin
gotoxy (30,3+d); writeln ('l');
end;
for d:= 1 to 30 do
begin
gotoxy (45,3+d); writeln ('l');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,12); writeln ('-');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,27); writeln ('-');
end;
end;
until(ss='r')or(ss='s')or(ss='R')or(ss='S');
end;
begin
clrscr;
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,20);write('Nombre de jugador 1 (X): ');
readln(jugador1);
clrscr;
gotoxy(10,20);write('Nombre de jugador 2 (O): ');
readln(jugador2);
clrscr;
gotoxy(10,40);write('Para reiniciar presione "r"');
gotoxy(10,40);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+jugador1+' (X)');
for d:= 1 to 30 do
begin
gotoxy (30,3+d); writeln ('l');
end;
for d:= 1 to 30 do
begin
gotoxy (45,3+d); writeln ('l');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,12); writeln ('-');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,27); writeln ('-');
end;
while (z<>'s')and(z<>'S') do
begin
z:=readkey;
case z of
'1':begin
if b=true then
begin
if va[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (X)');
b:=false;
gotoxy(22,32);write('O');
va[3]:='0';
end;
end
else
begin
if va[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(22,32);write('X');
va[3]:='x';
end;
end;
end;
'2':begin
if b=true then
begin
if vb[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
b:=false;
gotoxy(38,32);write('O');
vb[3]:='o';
end;
end
else
begin
if vb[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(38,32);write('X');
vb[3]:='x';
end;
end;
end;
'3':begin
if b=true then
begin
if vc[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
b:=false;
gotoxy(54,32);write('O');
vc[3]:='o';
end;
end
else
begin
if vc[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(54,32);write('X');
vc[3]:='x';
end;
end;
end;
'4':begin
if b=true then
begin
if va[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
b:=false;
gotoxy(20,20);write('O');
va[2]:='o';
end;
end
else
begin
if va[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(20,20);write('X');
va[2]:='x';
end;
end;
end;
'5':begin
if b=true then
begin
if vb[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
b:=false;
gotoxy(38,20);write('O');
vb[2]:='o';
end;
end
else
begin
if vb[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(38,20);write('X');
vb[2]:='x';
end;
end;
end;
'6':begin
if b=true then
begin
if vc[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
b:=false;
gotoxy(54,20);write('O');
vc[2]:='o';
end;
end
else
begin
if vc[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(54,20);write('X');
vc[2]:='x';
end;
end;
end;
'7':begin
if b=true then
begin
if va[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
b:=false;
gotoxy(20,10);write('O');
va[1]:='o';
end;
end
else
begin
if va[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(20,10);write('X');
va[1]:='x';
end;
end;
end;
'8':begin
if b=true then
begin
if vb[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
b:=false;
gotoxy(38,10);write('O');
vb[1]:='o';
end;
end
else
begin
if vb[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(38,10);write('X');
vb[1]:='x';
end;
end;
end;
'9':begin
if b=true then
begin
if vc[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
b:=false;
gotoxy(54,10);write('O');
vc[1]:='o';
end;
end
else
begin
if vc[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+jugador2+' (o)');
b:=true;
gotoxy(54,10);write('X');
vc[1]:='x';
end;
end;
end;
end;
if(va[1]=vb[1])and(vb[1]=vc[1])and(va[1]='x')then
begin
win1
end;
if(va[2]=vb[2])and(vb[2]=vc[2])and(va[2]='x')then
begin
win1
end;
if(va[3]=vb[3])and(vb[3]=vc[3])and(va[3]='x')then
begin
win1
end;
if(va[1]=va[2])and(va[2]=va[3])and(va[1]='x')then
begin
win1
end;
if(vb[1]=vb[2])and(vb[2]=vb[3])and(vb[1]='x')then
begin
win1
end;
if(vc[1]=vc[2])and(vc[2]=vc[3])and(vc[1]='x')then
begin
win1
end;
if(va[1]=vb[2])and(vb[2]=vc[3])and(va[1]='x')then
begin
win1
end;
if(va[3]=vb[2])and(vb[2]=vc[1])and(va[3]='x')then
begin
win1
end;
if(va[1]=vb[1])and(vb[1]=vc[1])and(va[1]='o')then
begin
win2
end;
if(va[2]=vb[2])and(vb[2]=vc[2])and(va[2]='o')then
begin
win2
end;
if(va[3]=vb[3])and(vb[3]=vc[3])and(va[3]='o')then
begin
win2
end;
if(va[1]=va[2])and(va[2]=va[3])and(va[1]='o')then
begin
win2
end;
if(vb[1]=vb[2])and(vb[2]=vb[3])and(vb[1]='o')then
begin
win2
end;
if(vc[1]=vc[2])and(vc[2]=vc[3])and(vc[1]='o')then
begin
win2
end;
if(va[1]=vb[2])and(vb[2]=vc[3])and(va[1]='o')then
begin
win2
end;
if(va[3]=vb[2])and(vb[2]=vc[1])and(va[3]='o')then
begin
win2
end;
if((va[1]<>'')and(va[2]<>'')and(va[3]<>''))and
((vb[1]<>'')and(vb[2]<>'')and(vb[3]<>''))and
((vc[1]<>'')and(vc[2]<>'')and(vc[3]<>''))and
(bbb=false)then
begin
gotoxy(20,39);write('Nadie gana');
repeat
ss:='';
gotoxy(10,40);write(' ');
gotoxy(10,40);write('¨Desea reiniciar o salir? (r/s): ');
readln(ss);
if(ss='s')or(ss='S')then
begin
z:='s';
bb:=true;
end;
if(ss='r')or(ss='R')then
begin
clrscr;
for c:=1 to 3do
va[c]:='';
for c:=1 to 3do
vb[c]:='';
for c:=1 to 3do
vc[c]:='';
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,20);write('Nombre de jugador 1: ');
readln(jugador1);
clrscr;
gotoxy(10,20);write('Nombre de jugador 2: ');
readln(jugador2);
clrscr;
gotoxy(10,40);write('Para reiniciar presione "r"');
gotoxy(10,40);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
for d:= 1 to 30 do
begin
gotoxy (30,3+d); writeln ('l');
end;
for d:= 1 to 30 do
begin
gotoxy (45,3+d); writeln ('l');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,12); writeln ('-');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,27); writeln ('-');
end;
end;
until(ss='r')or(ss='s')or(ss='R')or(ss='S');
end;
if(z='s')or(z='S')then
begin
if bb=false then
begin
repeat
gotoxy(10,40);write('¨Est seguro de salir? (s/n): ');
readln(s);
if(s='n')or(s='N')then
begin
gotoxy(10,40);write(' ');
z:='d';
end
else
begin
if(s<>'s')and(s<>'S')then
begin
s:='';
gotoxy(10,40);write(' ');
end;
end;
until(s='s')or(s='n')or(s='S')or(s='N');
end;
end;
if(z='r')or(z='R') then
begin
repeat
ss:='';
gotoxy(10,40);write(' ');
gotoxy(10,40);write('¨Est seguro de reiniciar? (s/n): ');
readln(ss);
if(ss='n')or(ss='N')then
begin
gotoxy(10,40);write(' ');
z:='d';
end;
if(ss='s')or(ss='S')then
begin
clrscr;
for c:=1 to 3do
va[c]:='';
for c:=1 to 3do
vb[c]:='';
for c:=1 to 3do
vc[c]:='';
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,20);write('Nombre de jugador 1: ');
readln(jugador1);
clrscr;
gotoxy(10,20);write('Nombre de jugador 2: ');
readln(jugador2);
clrscr;
gotoxy(10,40);write('Para reiniciar presione "r"');
gotoxy(10,40);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+jugador1+' (x)');
for d:= 1 to 30 do
begin
gotoxy (30,3+d); writeln ('l');
end;
for d:= 1 to 30 do
begin
gotoxy (45,3+d); writeln ('l');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,12); writeln ('-');
end;
for d:= 1 to 45 do
begin
gotoxy (12+d,27); writeln ('-');
end;
end;
until(ss='s')or(ss='n')or(ss='S')or(ss='N');
end;
end;
end.
|
| Código: |
program totito;
uses crt;{si falla, probar solo con fdelay o solo con crt}
var
z:char;
b,bb,bbb:boolean;
va:array[1..3]of string;
vb:array[1..3]of string;
vc:array[1..3]of string;
j1,j2,s,ss:string;
c:integer;
procedure win1;
begin
gotoxy(20,18);write(j1+'(x) gana');
bbb:=true;
sound(300);
delay(800);
nosound;
delay(200);
sound(300);
delay(800);
sound(400);
delay(1600);
nosound;
repeat
ss:='';
gotoxy(20,19);write(' ');
gotoxy(20,19);write('¨Desea reiniciar o salir? (r/s): ');
readln(ss);
if(ss='s')or(ss='S')then
begin
z:='s';
bb:=true;
end;
if(ss='r')or(ss='R')then
begin
clrscr;
for c:=1 to 3do
va[c]:='';
for c:=1 to 3do
vb[c]:='';
for c:=1 to 3do
vc[c]:='';
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,10);write('Nombre de jugador 1: ');
readln(j1);
clrscr;
gotoxy(10,10);write('Nombre de jugador 2: ');
readln(j2);
clrscr;
gotoxy(1,24);write('Para reiniciar presione "r"');
gotoxy(1,25);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
gotoxy(20,10);write('³');
gotoxy(20,11);write('Å');
gotoxy(20,12);write('³');
gotoxy(20,13);write('Å');
gotoxy(20,14);write('³');
gotoxy(22,10);write('³');
gotoxy(22,11);write('Å');
gotoxy(22,12);write('³');
gotoxy(22,13);write('Å');
gotoxy(22,14);write('³');
gotoxy(19,11);write('Ä');
gotoxy(21,11);write('Ä');
gotoxy(23,11);write('Ä');
gotoxy(19,13);write('Ä');
gotoxy(21,13);write('Ä');
gotoxy(23,13);write('Ä');
end;
until(ss='r')or(ss='s')or(ss='R')or(ss='S');
end;
procedure win2;
begin
gotoxy(20,18);write(j2+'(o) gana');
bbb:=true;
sound(300);
delay(800);
nosound;
delay(200);
sound(300);
delay(800);
sound(400);
delay(1600);
nosound;
repeat
ss:='';
gotoxy(20,19);write(' ');
gotoxy(20,19);write('¨Desea reiniciar o salir? (r/s): ');
readln(ss);
if(ss='s')or(ss='S')then
begin
z:='s';
bb:=true;
end;
if(ss='r')or(ss='R')then
begin
clrscr;
for c:=1 to 3do
va[c]:='';
for c:=1 to 3do
vb[c]:='';
for c:=1 to 3do
vc[c]:='';
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,10);write('Nombre de jugador 1: ');
readln(j1);
clrscr;
gotoxy(10,10);write('Nombre de jugador 2: ');
readln(j2);
clrscr;
gotoxy(1,24);write('Para reiniciar presione "r"');
gotoxy(1,25);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
gotoxy(20,10);write('³');
gotoxy(20,11);write('Å');
gotoxy(20,12);write('³');
gotoxy(20,13);write('Å');
gotoxy(20,14);write('³');
gotoxy(22,10);write('³');
gotoxy(22,11);write('Å');
gotoxy(22,12);write('³');
gotoxy(22,13);write('Å');
gotoxy(22,14);write('³');
gotoxy(19,11);write('Ä');
gotoxy(21,11);write('Ä');
gotoxy(23,11);write('Ä');
gotoxy(19,13);write('Ä');
gotoxy(21,13);write('Ä');
gotoxy(23,13);write('Ä');
end;
until(ss='r')or(ss='s')or(ss='R')or(ss='S');
end;
begin
clrscr;
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,10);write('Nombre de jugador 1 (x): ');
readln(j1);
clrscr;
gotoxy(10,10);write('Nombre de jugador 2 (o): ');
readln(j2);
clrscr;
gotoxy(1,24);write('Para reiniciar presione "r"');
gotoxy(1,25);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
gotoxy(20,10);write('³');
gotoxy(20,11);write('Å');
gotoxy(20,12);write('³');
gotoxy(20,13);write('Å');
gotoxy(20,14);write('³');
gotoxy(22,10);write('³');
gotoxy(22,11);write('Å');
gotoxy(22,12);write('³');
gotoxy(22,13);write('Å');
gotoxy(22,14);write('³');
gotoxy(19,11);write('Ä');
gotoxy(21,11);write('Ä');
gotoxy(23,11);write('Ä');
gotoxy(19,13);write('Ä');
gotoxy(21,13);write('Ä');
gotoxy(23,13);write('Ä');
while (z<>'s')and(z<>'S') do
begin
z:=readkey;
case z of
'1':begin
if b=true then
begin
if va[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(19,14);write('o');
va[3]:='o';
end;
end
else
begin
if va[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(19,14);write('x');
va[3]:='x';
end;
end;
end;
'2':begin
if b=true then
begin
if vb[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(21,14);write('o');
vb[3]:='o';
end;
end
else
begin
if vb[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(21,14);write('x');
vb[3]:='x';
end;
end;
end;
'3':begin
if b=true then
begin
if vc[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(23,14);write('o');
vc[3]:='o';
end;
end
else
begin
if vc[3]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(23,14);write('x');
vc[3]:='x';
end;
end;
end;
'4':begin
if b=true then
begin
if va[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(19,12);write('o');
va[2]:='o';
end;
end
else
begin
if va[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(19,12);write('x');
va[2]:='x';
end;
end;
end;
'5':begin
if b=true then
begin
if vb[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(21,12);write('o');
vb[2]:='o';
end;
end
else
begin
if vb[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(21,12);write('x');
vb[2]:='x';
end;
end;
end;
'6':begin
if b=true then
begin
if vc[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(23,12);write('o');
vc[2]:='o';
end;
end
else
begin
if vc[2]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(23,12);write('x');
vc[2]:='x';
end;
end;
end;
'7':begin
if b=true then
begin
if va[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(19,10);write('o');
va[1]:='o';
end;
end
else
begin
if va[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(19,10);write('x');
va[1]:='x';
end;
end;
end;
'8':begin
if b=true then
begin
if vb[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(21,10);write('o');
vb[1]:='o';
end;
end
else
begin
if vb[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(21,10);write('x');
vb[1]:='x';
end;
end;
end;
'9':begin
if b=true then
begin
if vc[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
b:=false;
gotoxy(23,10);write('o');
vc[1]:='o';
end;
end
else
begin
if vc[1]='' then
begin
gotoxy(1,1);write(' ');
gotoxy(1,1);write('Turno de: '+j2+' (o)');
b:=true;
gotoxy(23,10);write('x');
vc[1]:='x';
end;
end;
end;
end;
if(va[1]=vb[1])and(vb[1]=vc[1])and(va[1]='x')then
begin
win1
end;
if(va[2]=vb[2])and(vb[2]=vc[2])and(va[2]='x')then
begin
win1
end;
if(va[3]=vb[3])and(vb[3]=vc[3])and(va[3]='x')then
begin
win1
end;
if(va[1]=va[2])and(va[2]=va[3])and(va[1]='x')then
begin
win1
end;
if(vb[1]=vb[2])and(vb[2]=vb[3])and(vb[1]='x')then
begin
win1
end;
if(vc[1]=vc[2])and(vc[2]=vc[3])and(vc[1]='x')then
begin
win1
end;
if(va[1]=vb[2])and(vb[2]=vc[3])and(va[1]='x')then
begin
win1
end;
if(va[3]=vb[2])and(vb[2]=vc[1])and(va[3]='x')then
begin
win1
end;
if(va[1]=vb[1])and(vb[1]=vc[1])and(va[1]='o')then
begin
win2
end;
if(va[2]=vb[2])and(vb[2]=vc[2])and(va[2]='o')then
begin
win2
end;
if(va[3]=vb[3])and(vb[3]=vc[3])and(va[3]='o')then
begin
win2
end;
if(va[1]=va[2])and(va[2]=va[3])and(va[1]='o')then
begin
win2
end;
if(vb[1]=vb[2])and(vb[2]=vb[3])and(vb[1]='o')then
begin
win2
end;
if(vc[1]=vc[2])and(vc[2]=vc[3])and(vc[1]='o')then
begin
win2
end;
if(va[1]=vb[2])and(vb[2]=vc[3])and(va[1]='o')then
begin
win2
end;
if(va[3]=vb[2])and(vb[2]=vc[1])and(va[3]='o')then
begin
win2
end;
if((va[1]<>'')and(va[2]<>'')and(va[3]<>''))and
((vb[1]<>'')and(vb[2]<>'')and(vb[3]<>''))and
((vc[1]<>'')and(vc[2]<>'')and(vc[3]<>''))and
(bbb=false)then
begin
gotoxy(20,18);write('Nadie gana');
repeat
ss:='';
gotoxy(20,19);write(' ');
gotoxy(20,19);write('¨Desea reiniciar o salir? (r/s): ');
readln(ss);
if(ss='s')or(ss='S')then
begin
z:='s';
bb:=true;
end;
if(ss='r')or(ss='R')then
begin
clrscr;
for c:=1 to 3do
va[c]:='';
for c:=1 to 3do
vb[c]:='';
for c:=1 to 3do
vc[c]:='';
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,10);write('Nombre de jugador 1: ');
readln(j1);
clrscr;
gotoxy(10,10);write('Nombre de jugador 2: ');
readln(j2);
clrscr;
gotoxy(1,24);write('Para reiniciar presione "r"');
gotoxy(1,25);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
gotoxy(20,10);write('³');
gotoxy(20,11);write('Å');
gotoxy(20,12);write('³');
gotoxy(20,13);write('Å');
gotoxy(20,14);write('³');
gotoxy(22,10);write('³');
gotoxy(22,11);write('Å');
gotoxy(22,12);write('³');
gotoxy(22,13);write('Å');
gotoxy(22,14);write('³');
gotoxy(19,11);write('Ä');
gotoxy(21,11);write('Ä');
gotoxy(23,11);write('Ä');
gotoxy(19,13);write('Ä');
gotoxy(21,13);write('Ä');
gotoxy(23,13);write('Ä');
end;
until(ss='r')or(ss='s')or(ss='R')or(ss='S');
end;
if(z='s')or(z='S')then
begin
if bb=false then
begin
repeat
gotoxy(30,20);write('¨Est seguro de salir? (s/n): ');
readln(s);
if(s='n')or(s='N')then
begin
gotoxy(30,20);write(' ');
z:='d';
end
else
begin
if(s<>'s')and(s<>'S')then
begin
s:='';
gotoxy(30,20);write(' ');
end;
end;
until(s='s')or(s='n')or(s='S')or(s='N');
end;
end;
if(z='r')or(z='R') then
begin
repeat
ss:='';
gotoxy(20,19);write(' ');
gotoxy(20,19);write('¨Est seguro de reiniciar? (s/n): ');
readln(ss);
if(ss='n')or(ss='N')then
begin
gotoxy(20,19);write(' ');
z:='d';
end;
if(ss='s')or(ss='S')then
begin
clrscr;
for c:=1 to 3do
va[c]:='';
for c:=1 to 3do
vb[c]:='';
for c:=1 to 3do
vc[c]:='';
b:=false;
bb:=false;
bbb:=false;
gotoxy(10,10);write('Nombre de jugador 1: ');
readln(j1);
clrscr;
gotoxy(10,10);write('Nombre de jugador 2: ');
readln(j2);
clrscr;
gotoxy(1,24);write('Para reiniciar presione "r"');
gotoxy(1,25);write('Para salir presione "s"');
gotoxy(1,1);write('Turno de: '+j1+' (x)');
gotoxy(20,10);write('³');
gotoxy(20,11);write('Å');
gotoxy(20,12);write('³');
gotoxy(20,13);write('Å');
gotoxy(20,14);write('³');
gotoxy(22,10);write('³');
gotoxy(22,11);write('Å');
gotoxy(22,12);write('³');
gotoxy(22,13);write('Å');
gotoxy(22,14);write('³');
gotoxy(19,11);write('Ä');
gotoxy(21,11);write('Ä');
gotoxy(23,11);write('Ä');
gotoxy(19,13);write('Ä');
gotoxy(21,13);write('Ä');
gotoxy(23,13);write('Ä');
end;
until(ss='s')or(ss='n')or(ss='S')or(ss='N');
end;
end;
end.
|
|
|
TOTITO
