API tools faq
paste
Guest User

Untitled

a guest
Oct 17th, 2017
55
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 18.47 KB | None | 0 0
raw download clone embed print report
  1. program tateti;
  2. uses crt;
  3. type
  4. jug1=array[1..3 , 1..3] of integer;
  5.  
  6. var
  7. a:jug1;
  8.  
  9. u:real;
  10. nom1,nom2,trat1,trat2,pretuto:string;
  11. gano,jug,sig1,sig2,i,j,k,m,con,c,c2,x,y,turno,cont,tuto,banem,h:integer;
  12. voc1,sexo2,sexo1:char;
  13. begin
  14. c:=0;
  15. c2:=0;
  16. tuto:=0;
  17. cont:=0;
  18. banem:=0;
  19.      randomize;
  20.      repeat
  21.      u:=Random;
  22.      if u<0.5
  23.      then
  24.      con:=1
  25.      else
  26.      if u>0.5
  27.      then con:=2;
  28.      until u<>0.5;
  29.  
  30. gano:=0;
  31. turno:=0;
  32.  
  33. for i:= 10 to 11 do
  34.         for j:= 5 to 30 do
  35.             begin
  36.  
  37.             clrscr;
  38.  
  39. gotoxy (15,10); textcolor (i); writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
  40. gotoxy (15,11);textcolor (i); write ('º             ');
  41. gotoxy (50,11);textcolor (i); writeln('           º');
  42. gotoxy (15,12);textcolor (i); write ('º     ');
  43. gotoxy (55,12);textcolor (i); writeln('      º');
  44. gotoxy (15,13);textcolor (i); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
  45.        textcolor (j);
  46.  
  47.     gotoxy (17,11); writeln ('BIENVENIDOS AL FABULOSO JUEGO DEL TA-TE-TI');
  48.     gotoxy (17,12); writeln ('         created by Blankito, Mati, Ever');
  49.        delay(150);
  50.               end;
  51.   clrscr;
  52.   repeat
  53. textbackground (2);
  54. gotoxy(10,08); textcolor (14); writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
  55. gotoxy(10,09); textcolor (14); write ('º  '); textcolor (12); write ('         Desea ver el Tutorial del JUEGO? '); textcolor (14); writeln('             º');
  56. gotoxy(10,10); textcolor (14); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
  57. gotoxy(10,11); textbackground (8); textcolor (14); readln (pretuto);
  58. until (pretuto='Si') or (pretuto='si') or (pretuto='SI') or (pretuto='s') or (pretuto='No') or (pretuto='no') or (pretuto='No') or (pretuto='n');
  59.  
  60. if (pretuto='Si') or (pretuto='si') or (pretuto='SI') or (pretuto='s') then
  61.    tuto:=1
  62.    else
  63.    tuto:=0;
  64.  
  65.    clrscr;
  66.   while (tuto = 1) and (cont <= 2) do
  67. begin
  68.  
  69. textbackground (1);
  70. textcolor (10);
  71. gotoxy (35,03); writeln ('1');
  72. gotoxy (54,03); writeln ('2');
  73. gotoxy (71,03); writeln ('3');
  74. gotoxy (24,06); writeln ('1');
  75. gotoxy (24,13); writeln ('2');
  76. gotoxy (24,20); writeln ('3');
  77.  
  78. textcolor (12);
  79. gotoxy(25,04); writeln ('                  º                  º                  ');
  80. delay (250);
  81. gotoxy(25,05); writeln ('                  º                  º                  ');
  82. delay (255);            
  83. gotoxy(25,06); writeln ('                  º                  º                  ');
  84. delay (260);
  85. gotoxy(25,07); writeln ('                  º                  º                  ');
  86. delay (265);
  87. gotoxy(25,08); writeln ('                  º                  º                  ');
  88. delay (270);
  89. gotoxy(25,09); writeln ('                  º                  º                  ');
  90. delay (275);
  91. gotoxy(25,10); writeln ('ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ');
  92. delay (280);
  93. gotoxy(25,11); writeln ('                  º                  º                  ');
  94. delay (285);
  95. gotoxy(25,12); writeln ('                  º                  º                  ');
  96. delay (290);
  97. gotoxy(25,13); writeln ('                  º                  º                  ');
  98. delay (295);
  99. gotoxy(25,14); writeln ('                  º                  º                  ');
  100. delay (295);
  101. gotoxy(25,15); writeln ('                  º                  º                  ');
  102. delay (290);
  103. gotoxy(25,16); writeln ('                  º                  º                  ');
  104. delay (285);
  105. gotoxy(25,17); writeln ('ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ');
  106. delay (280);
  107. gotoxy(25,18); writeln ('                  º                  º                  ');
  108. delay (275);
  109. gotoxy(25,19); writeln ('                  º                  º                  ');
  110. delay (270);            
  111. gotoxy(25,20); writeln ('                  º                  º                  ');
  112. delay (100);
  113. gotoxy(25,21); writeln ('                  º                  º                  ');
  114. delay (150);
  115. gotoxy(25,22); writeln ('                  º                  º                  ');
  116. delay (100);
  117. gotoxy(25,23); writeln ('                  º                  º                  ');
  118.  
  119. textcolor (14);
  120. gotoxy (33,03); writeln ('-',chr(16));
  121. delay (2000);
  122. gotoxy (28,01); writeln ('En primer lugar, debe elegir la posicion');
  123. delay (250);
  124. gotoxy (28,02); writeln ('de los numeros del 1 al 3               ');
  125. delay (500);
  126. gotoxy (22,06); writeln ('-',chr(16));
  127. delay (500);
  128. gotoxy (0,08); writeln ('Las coordenadas       ');
  129. delay (500);
  130. gotoxy (0,9); writeln ('se ingresan           ');
  131. delay (500);
  132. gotoxy (0,10); writeln ('con un ENTER          ');
  133. delay (500);
  134. gotoxy (0,11); writeln ('de por medio.         ');
  135. delay (500);
  136. gotoxy (0,12); writeln ('Luego debe elegir la  ');
  137. delay (500);
  138. gotoxy (0,13); writeln ('coordenada de         ');
  139. delay (500);
  140. gotoxy (0,14); writeln ('la segundo posicion.  ');
  141. delay (500);
  142.  
  143.  
  144.  
  145.             textcolor (12);
  146.  
  147.           gotoxy (29,4); writeln (' ²²    ²² ');
  148.           delay (800);
  149.           gotoxy (29,5); writeln ('  ²²  ²²  ');
  150.           delay (800);
  151.           gotoxy (29,6); writeln ('   ²²²²   ');
  152.           delay (800);
  153.           gotoxy (29,7); writeln ('   ²²²²   ');
  154.           delay (800);
  155.           gotoxy (29,8); writeln ('  ²²  ²²  ');
  156.           delay (800);
  157.           gotoxy (29,9); writeln (' ²²    ²² ');
  158.  
  159.  
  160. cont:=cont +1;
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167. end;
  168.  
  169.        repeat
  170.   textbackground (8);
  171.        clrscr;
  172.  
  173. gotoxy(10,08); textcolor (10); writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
  174. gotoxy(10,09); textcolor (10); write ('º  '); textcolor (11); write ('Ingrese sexo del 1er jugador: Femenino=F / Masculino=M'); textcolor (10); writeln(' º');
  175. gotoxy(10,10); textcolor (10); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
  176. gotoxy(10,11); textcolor (12); readln (sexo1);
  177. clrscr;
  178. until (sexo1='F') or (sexo1='f') or (sexo1='m') or (sexo1='M');
  179.  
  180.  
  181. if (sexo1='f') or (sexo1='F')
  182.  
  183.       then
  184.    begin
  185.       trat1:='sra.';
  186.       voc1:='a';
  187.       sig1:=12
  188.    end
  189.       else
  190.       begin
  191.       trat1:='sr.';
  192.       voc1:='o';
  193.       sig1:=11
  194.       end;
  195.  
  196.  
  197.  
  198.  
  199.  
  200. clrscr;
  201. gotoxy (15,08); textcolor (10); writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
  202. gotoxy (15,09); textcolor (10); write ('º ');
  203. gotoxy (59,09); textcolor (10); writeln('  º');
  204. gotoxy (15,10); textcolor (10); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
  205. gotoxy (23,09); textcolor (11); write (trat1,'Ingrese nombre del 1er jugador');
  206. gotoxy (15,11); textcolor (12); readln (nom1);
  207. clrscr;
  208.  
  209. repeat
  210. gotoxy(10,08); textcolor (13); writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
  211. gotoxy(10,09); textcolor (13); write ('º  '); textcolor (11); write ('Ingrese sexo del 2do jugador: Femenino=F / Masculino=M'); textcolor (13); writeln(' º');
  212. gotoxy(10,10); textcolor (13); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
  213. gotoxy(10,11); textcolor (14); readln (sexo2);
  214. clrscr;
  215. until (sexo2='F') or (sexo2='f') or (sexo2='m') or (sexo2='M');
  216.  
  217. if (sexo2='f') or (sexo2='F')
  218.  
  219.       then
  220.    begin
  221.       trat2:='sra.';
  222.       sig2:=12
  223.    end
  224.       else
  225.       begin
  226.       trat2:='sr.';
  227.       sig2:=11
  228.       end;
  229.  
  230.  
  231.  
  232. clrscr;
  233. gotoxy (15,08); textcolor (13); writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
  234. gotoxy (15,09); textcolor (13); write ('º ');
  235. gotoxy (59,09); textcolor (13); writeln('  º');
  236. gotoxy (15,10); textcolor (13); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
  237. gotoxy (23,09); textcolor (11); write (trat2,'Ingrese nombre del 2do jugador');
  238. gotoxy (15,11); textcolor (14); readln (nom2);
  239.  
  240. clrscr;
  241. textbackground (2);
  242. gotoxy (15,08); textcolor (14); writeln ('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
  243. gotoxy (15,09); textcolor (14); write ('º             ');
  244. gotoxy (50,09); textcolor (14); writeln('           º');
  245. gotoxy (15,10); textcolor (14); write ('º     ');
  246. gotoxy (55,10); textcolor (14); writeln('      º');
  247. gotoxy (15,11); textcolor (14); writeln ('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
  248. gotoxy (22,09); textcolor (13); write ('Bienvenid',voc1,' ',trat1,' ',nom1,' y ',trat2,' ',nom2);
  249. gotoxy (21,10); textcolor (13); write (' Tecleen la tecla ENTER para jugar ');
  250. gotoxy (15,12); textcolor (12); readln;
  251. textbackground (8);
  252.  
  253. textcolor (7);
  254. clrscr;
  255. textbackground (1);
  256. gotoxy (35,03); writeln ('1');
  257. gotoxy (54,03); writeln ('2');
  258. gotoxy (71,03); writeln ('3');
  259. gotoxy (24,06); writeln ('1');
  260. gotoxy (24,13); writeln ('2');
  261. gotoxy (24,20); writeln ('3');
  262.  
  263. gotoxy(25,04); writeln ('                  º                  º                  ');
  264. delay (250);
  265. gotoxy(25,05); writeln ('                  º                  º                  ');
  266. delay (255);            
  267. gotoxy(25,06); writeln ('                  º                  º                  ');
  268. delay (260);
  269. gotoxy(25,07); writeln ('                  º                  º                  ');
  270. delay (265);
  271. gotoxy(25,08); writeln ('                  º                  º                  ');
  272. delay (270);
  273. gotoxy(25,09); writeln ('                  º                  º                  ');
  274. delay (275);
  275. gotoxy(25,10); writeln ('ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ');
  276. delay (280);
  277. gotoxy(25,11); writeln ('                  º                  º                  ');
  278. delay (285);
  279. gotoxy(25,12); writeln ('                  º                  º                  ');
  280. delay (290);
  281. gotoxy(25,13); writeln ('                  º                  º                  ');
  282. delay (295);
  283. gotoxy(25,14); writeln ('                  º                  º                  ');
  284. delay (295);
  285. gotoxy(25,15); writeln ('                  º                  º                  ');
  286. delay (290);
  287. gotoxy(25,16); writeln ('                  º                  º                  ');
  288. delay (285);
  289. gotoxy(25,17); writeln ('ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ');
  290. delay (280);
  291. gotoxy(25,18); writeln ('                  º                  º                  ');
  292. delay (275);
  293. gotoxy(25,19); writeln ('                  º                  º                  ');
  294. delay (270);            
  295. gotoxy(25,20); writeln ('                  º                  º                  ');
  296. delay (100);
  297. gotoxy(25,21); writeln ('                  º                  º                  ');
  298. delay (150);
  299. gotoxy(25,22); writeln ('                  º                  º                  ');
  300. delay (100);
  301. gotoxy(25,23); writeln ('                  º                  º                  ');
  302.  
  303. textcolor (9);
  304. gotoxy (21,01); writeln ('Û');
  305. gotoxy (21,02); writeln ('Û');
  306. gotoxy (21,03); writeln ('Û');
  307. gotoxy (21,04); writeln ('Û');
  308. gotoxy (21,05); writeln ('Û');
  309. gotoxy (21,06); writeln ('Û');
  310. gotoxy (21,07); writeln ('Û');
  311. gotoxy (21,08); writeln ('Û');
  312. gotoxy (21,09); writeln ('Û');
  313. gotoxy (21,10); writeln ('Û');
  314. gotoxy (21,11); writeln ('Û');
  315. gotoxy (21,12); writeln ('Û');
  316. gotoxy (21,13); writeln ('Û');
  317. gotoxy (21,14); writeln ('Û');
  318. gotoxy (21,15); writeln ('Û');
  319. gotoxy (21,16); writeln ('Û');
  320. gotoxy (21,17); writeln ('Û');
  321. gotoxy (21,18); writeln ('Û');
  322. gotoxy (21,19); writeln ('Û');
  323. gotoxy (21,20); writeln ('Û');
  324. gotoxy (21,21); writeln ('Û');
  325. gotoxy (21,22); writeln ('Û');
  326. gotoxy (21,23); writeln ('Û');
  327. gotoxy (21,24); writeln ('Û');
  328.  
  329. textbackground (8);
  330.  
  331. for k:= 1 to 3 do
  332.     for m:= 1 to 3 do
  333.     a[k,m]:=0;
  334.  
  335.  repeat
  336.  if con=1 then
  337.     begin
  338.          repeat
  339.                repeat
  340. c:=c+1;
  341.  
  342. textcolor (13);
  343. gotoxy (1,3); writeln ('ingrese su jugada');
  344. gotoxy (1,4); writeln (nom1,' ',chr(sig1));
  345. gotoxy (1,6); read (k,m);
  346. until ( (k=1) or (k=2) or (k=3) and (m=1) or (m=2) or (m=3) );
  347. until a[k,m]=0;
  348.  
  349.       case k of
  350.        1: x:= 30;
  351.        2: x:= 48;
  352.        3: x:= 66;
  353.        end;
  354.  
  355.        case m of
  356.        1: y:=4;
  357.        2: y:=11;
  358.        3: y:=18;
  359.        end;
  360.  
  361.  
  362.  
  363.  
  364.  
  365.           a[k,m]:=1;
  366.           textbackground (1);
  367.           textcolor (13);
  368.           gotoxy (x,y); writeln (' ²²    ²² ');
  369.           gotoxy (x,y+1); writeln ('  ²²  ²²  ');
  370.           gotoxy (x,y+2); writeln ('   ²²²²   ');
  371.           gotoxy (x,y+3); writeln ('   ²²²²   ');
  372.           gotoxy (x,y+4); writeln ('  ²²  ²²  ');
  373.           gotoxy (x,y+5); writeln (' ²²    ²² ');
  374.           textcolor (12);
  375.           textbackground (8);
  376.           con:=2;
  377.         end
  378.            else
  379.  
  380.            begin
  381.                 repeat
  382.                       repeat
  383.                       c2:=c2+1;
  384.                       textcolor (12);
  385.                       gotoxy (1,12); writeln ('ingrese su jugada');
  386.                       gotoxy (1,13); writeln (nom2,' ',chr(sig2));
  387.                       gotoxy (1,15); readln (k,m);
  388.  
  389.                       until ( (k=1) or (k=2) or (k=3) and (m=1) or (m=2) or (m=3) );
  390.                       until a[k,m]=0;
  391.                       a[k,m]:=2;
  392.  
  393.        case k of
  394.        1: x:= 30;
  395.        2: x:= 48;
  396.        3: x:= 66;
  397.        end;
  398.  
  399.        case m of
  400.        1: y:=4;
  401.        2: y:=11;
  402.        3: y:=18;
  403.        end;
  404.           textcolor (12);
  405.           textbackground (1);
  406.          gotoxy (x,y);writeln ('    ²²²    ');
  407.           gotoxy (x,y+1);writeln ('  ²²   ²²  ');
  408.           gotoxy (x,y+2);writeln (' ²²     ²² ');
  409.           gotoxy (x,y+3);writeln (' ²²     ²² ');
  410.           gotoxy (x,y+4);writeln ('  ²²   ²²  ');
  411.           gotoxy (x,y+5);writeln ('    ²²²    ');
  412.           textcolor (13);
  413.           con:=1;
  414.           textbackground (8);
  415.           end;
  416.  
  417.  
  418.  
  419.          for k:=1 TO 3 DO
  420.          if (a[k,1]=a[k,2])and(a[k,1]=a[k,3]) and ((a[k,1]<>0) and (a[k,2]<>0) and (a[k,3] <>0))
  421.             then gano:=1;
  422.      for m:=1 TO 3 DO
  423.          if (a[1,m]=a[2,m])and(a[1,m]=a[3,m])and ((a[1,m]<>0) and (a[2,m]<>0) and (a[3,m] <>0))
  424.             then gano:=1;
  425.      if (a[1,1]=a[2,2])and(a[1,1]=a[3,3])and ((a[1,1]<>0) and (a[2,2]<>0) and (a[3,3] <>0))
  426.         then gano:=1;
  427.      if (a[1,3]=a[2,2])and(a[1,3]=a[3,1])and ((a[3,1]<>0) and (a[2,2]<>0) and (a[1,3] <>0))
  428.         then gano:=1;
  429.      turno:=turno+1
  430.  
  431.  
  432.      until (gano=1) or (turno=9);
  433.      clrscr;
  434.      gotoxy(30,15);
  435.      if gano=1
  436.         then
  437.             begin
  438.             for k:=1 TO 3 DO
  439.                 if (a[k,1]=1) and (a[k,2]=1) and (a[k,3]=1)
  440.                        then jug:=1;
  441.                 for m:=1 TO 3 DO
  442.                     if (a[1,m]=1) and (a[2,m]=1) and (a[3,m]=1)
  443.                        then jug:=1;
  444.                 if (a[1,1]=1) and (a[2,2]=1) and (a[3,3]=1)
  445.                    then jug:=1;
  446.                 if (a[3,1]=1) and (a[2,2]=1) and (a[1,3]=1)
  447.                    then jug:=1;
  448.                 for k:=1 TO 3 DO
  449.                     if (a[k,1]=2) and (a[k,2]=2) and (a[k,3]=2)
  450.                        then jug:=2;
  451.                 for m:=1 TO 3 DO
  452.                     if (a[1,m]=2) and (a[2,m]=2) and (a[3,m]=2)
  453.                        then jug:=2;
  454.                 if (a[1,1]=2) and (a[2,2]=2) and (a[3,3]=2)
  455.                    then jug:=1;
  456.                 if (a[3,1]=2) and (a[2,2]=2) and (a[1,3]=2)
  457.                    then jug:=2;
  458.  
  459.                 case jug of
  460.                 0: banem:=1;
  461.                 1: begin
  462.                                                for i:= 1 to 10 do
  463. begin
  464. clrscr;
  465. textcolor (i);
  466. gotoxy (5,  i); writeln (' ²²     ²²           G A N O  :',nom1);
  467. gotoxy (5,i+1); writeln ('²    ²    ²           W I N   :',nom1);
  468. gotoxy (5,i+2); writeln ('                     G A N O  :',nom1);
  469. gotoxy (5,i+3); writeln ('   ²   ²              W I N   :',nom1);
  470. gotoxy (5,i+4); writeln ('    ²²²              G A N O  :',nom1);
  471. delay (76);
  472. end;
  473.  
  474. for j:= 1 to 10 do
  475. begin
  476. clrscr;
  477. textcolor (j);
  478. gotoxy (j+5,10); writeln (' ²²     ²²           G A N O  :',nom1);
  479. gotoxy (j+5,11); writeln ('²    ²    ²           W I N   :',nom1);
  480. gotoxy (j+5,12); writeln ('                     G A N O  :',nom1);
  481. gotoxy (j+5,13); writeln ('   ²   ²              W I N   :',nom1);
  482. gotoxy (j+5,14); writeln ('    ²²²              G A N O  :',nom1);
  483. delay (76);
  484.  
  485. end;
  486.                    end;
  487.                 2: begin
  488.                        for i:= 1 to 10 do
  489. begin
  490. clrscr;
  491. textcolor (i);
  492. gotoxy (5,  i); writeln (' ²²     ²²           G A N O  :',nom2);
  493. gotoxy (5,i+1); writeln ('²    ²    ²           W I N   :',nom2);
  494. gotoxy (5,i+2); writeln ('                     G A N O  :',nom2);
  495. gotoxy (5,i+3); writeln ('   ²   ²              W I N   :',nom2);
  496. gotoxy (5,i+4); writeln ('    ²²²              G A N O  :',nom2);
  497. delay (76);
  498. end;
  499.  
  500. for j:= 1 to 10 do
  501. begin
  502. clrscr;
  503. textcolor (j);
  504. gotoxy (j+5,10); writeln (' ²²     ²²           G A N O  :',nom2);
  505. gotoxy (j+5,11); writeln ('²    ²    ²           W I N   :',nom2);
  506. gotoxy (j+5,12); writeln ('                     G A N O  :',nom2);
  507. gotoxy (j+5,13); writeln ('   ²   ²              W I N   :',nom2);
  508. gotoxy (j+5,14); writeln ('    ²²²              G A N O  :',nom2);
  509. delay (76);
  510.  
  511. end;
  512.                    end
  513.                 end
  514.  
  515.            end
  516.  
  517.         else begin
  518.         banem:=1;
  519.             while banem = 1do
  520.             for h:= 1 to 10 do
  521. begin
  522. clrscr;
  523. textcolor (h);
  524. gotoxy (5,h); writeln   (' ²²     ²²         EMPATE -');
  525. gotoxy (5,h+1); writeln ('     ²               TIE  -');
  526. gotoxy (5,h+2); writeln ('                   EMPATE -');
  527. gotoxy (5,h+3); writeln ('    ²²²              TIE  -');
  528. gotoxy (5,h+4); writeln ('   ²   ²           EMPATE -');
  529. delay (100);
  530. banem:=2;
  531.  end;
  532. end;
  533.  
  534. repeat until keypressed;
  535. end.
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!