Section courante

A propos

Section administrative du site

L'un des plus grand classique des jeux, c'est le jeu Tic-Tac-Toe, consistant à remplir des cases avec un symbole de O ou X avant le joueur adverse, a été écrit dans de nombreux langages de programmation, mais très peu de version existe en Turbo Pascal.

Pourtant, il s'agit d'un des jeux les plus simples a produire, sauf bien sure si vous voulez jouer contre l'ordinateur, alors les choses sont complexes. Ainsi, la plupart des jeux vise uniquement de faire jouer 2 humains l'autre contre l'autre. Mais cette option est peu pratique si vous n'êtes qu'un seul utilisateur.

Contrairement à la plupart des autres jeux vidéos, pour développez un jeu de Tic-Tac-Toe, vous n'avez pas besoin d'autre chose qu'un écran de texte. Ainsi, il s'agit d'un jeu que vous pourriez développez facilement en BASIC ou sur une machine ancienne, voir même un terminal ou sur un vieux VAX. En autre, pour appuyer ses dires, sachez que dès 1974, l'auteur David H. Ahl, dans son livre «101 BASIC Computer Games», avait déjà proposé un exemple de jeu de Tic-Tac-Toe.

Tout d'abord, il faut demander à l'utilisateur pour déterminer si c'est l'humain ou l'ordinateur devant commencé. Le fait de faire choisir le premier joueur aura un impacte par la suite dans la stratégie de l'ordinateur, car s'il commence, il visera l'attaque, tandis que s'il joue en deuxième il sera désavantagé et jouera en défensive.

Ensuite, on initialisera le tableau, nommé Board, avec des valeurs 0. Noté, que le tableau à une seule dimension et que les valeurs sont situés entre 0 et 8, correspondant à chacun des cases du tableau. Ainsi, la position 0, correspondra à la première colonne et première ligne, ensuite, la position 1, correspondra à la deuxième colonne, première ligne, jusqu'à la position 8, correspondant à la troisième colonne et troisième ligne.

Parmi les routines qu'on retrouve dans le programme, il y a bien sur ShowBoard, permettant de dessiner le tableau du Tic-Tac-Toe avec les positions actuelles de chacune des X ou O que les joueurs ont inscrits. Il ne s'agit pas d'une tâche complexe, il suffit simplement d'avoir deux boucles pour afficher chacune des coordonnées X et Y dans l'intervalle de 1 à 3. Ensuite, il faut vérifier la valeur du tableau, nommé Board, contenant la valeur 0 pour aucune marque, 1 pour l'humain, et 2 pour l'ordinateur.

Une routine non négligeable, nommé CheckIfWin, consiste à vérifier, si l'ordinateur ou le joueur à réussis à gagner. Le principe est simple, il faut vérifier si 3 chiffres identiques sont disposés sur une même ligne, une même colonne ou en diagonale.

Le problème le plus complexe réside dans le fait de faire jouer l'ordinateur. Dans un jeu de 3 cases par 3 cases, le nombre de possibilité de réponse d'un ordinateur est relativement limité. A vrai, dire, le nombre de choix est tellement limité, que contrairement à des jeux ayant des tailles de 4, 5 ou 6 cases, qu'il est préférable de lui apprendre par coeur les bonnes réponses plutôt que de chercher des formules complexes. Par conséquent, on se contentera de faire vérifier l'ordinateur s'il n'a pas déjà deux cases de prête et une troisième à venir pour pouvoir gagné. Ensuite, on cherchera les meilleures coups en fonction du nombre de coup ayant déjà été jouer, les 1 et 2 coups sont assez crucial dans le résultat de la partie. Enfin, on lui demandera de cherchez à trouver un coup défensif afin d'empêcher l'autre joueur d'avoir 3 cases de suites. Avec ces 3 niveaux de résolutions de problèmes, on arrivera la plupart du temps à avoir un joueur de Tic-Tac-Toe pouvant rivaliser avec un humain peu expérimenté.

L'exemple de jeu Tic-Tac-Toe suivant est développé en Turbo Pascal 7 et fonctionne également sous Free Pascal. Voici le code source en Turbo Pascal du jeu :

  1. Program TTT;
  2.  
  3. Uses CRT;
  4.  
  5. Var
  6.  Board:Array[0..8]of Byte;
  7.  Beginner:(Human,Computer);
  8.  
  9. Procedure InitGame;Begin
  10.  ClrScr;
  11.  GotoXY(34,1);
  12.  WriteLn('Tic-Tac-Toe');
  13.  WriteLn;
  14.  TextColor(LightRed);
  15.  Write(' O');
  16.  TextColor(7);
  17.  WriteLn(' = Ordinateur');
  18.  TextColor(LightGreen);
  19.  Write(' X');
  20.  TextColor(7);
  21.  WriteLn(' = Humain (vous)');
  22.  FillChar(Board,SizeOf(Board),0);
  23. End;
  24.  
  25. Procedure ChoiceBeginner;
  26. Var
  27.  K:Char;
  28. Begin
  29.  GotoXY(1,6);
  30.  Write('Quel joueur commence (O=Moi/X=Vous) ?');
  31.  K:=ReadKey;
  32.  If UpCase(K)='O'Then Beginner:=Computer Else
  33.  If UpCase(K)='X'Then Beginner:=Human;
  34.  GotoXY(1,6);
  35.  ClrEol;
  36. End;
  37.  
  38. Procedure ShowBoard;
  39. Var
  40.  I,J:Byte;
  41. Begin
  42.  GotoXY(1,6);
  43.  For J:=0 to 2 do Begin
  44.   Write(' ':8,'+');
  45.   For I:=0 to 2 do Begin
  46.    Write('---');
  47.    Write('+');
  48.   End;
  49.   WriteLn;
  50.   Write(' ':8,'|');
  51.   For I:=0 to 2 do Begin
  52.    Write(I+J*3+1:3);
  53.    Write('|');
  54.   End;
  55.   WriteLn;
  56.   Write(' ':8,'|');
  57.   For I:=0 to 2 do Begin
  58.    Case Board[I+J*3]of
  59.     1:Begin
  60.      TextColor(LightGreen);
  61.      Write(' X ');
  62.      TextColor(7);
  63.     End;
  64.     2:Begin
  65.      TextColor(LightRed);
  66.      Write(' O ');
  67.      TextColor(7);
  68.     End;
  69.     Else Write(' ':3);
  70.    End;
  71.    Write('|');
  72.   End;
  73.   WriteLn;
  74.  End;
  75.  Write(' ':8,'+');
  76.  For I:=0 to 2 do Begin
  77.   Write('---');
  78.   Write('+');
  79.  End;
  80.  WriteLn;
  81. End;
  82.  
  83. Function HumanPlay(P:Byte):Boolean;Begin
  84.  HumanPlay:=False;
  85.  If Board[P]=0 Then Begin
  86.   Board[P]:=1;
  87.   HumanPlay:=True;
  88.  End;
  89. End;
  90.  
  91. Function ComputerPlay:Boolean;
  92. Var
  93.  ComputerMove,HumanX,ComputerO:Integer;
  94.  I:Byte;
  95.  AllEmpty:Boolean;
  96. Begin
  97.  ComputerMove:=-1;
  98.  ComputerPlay:=False;
  99.  AllEmpty:=True;
  100.  For I:=0 to 8 do If Board[I]<>0Then AllEmpty:=False;
  101.  If(AllEmpty)Then ComputerMove:=2
  102.   Else
  103.  Begin
  104.   ComputerO:=0;
  105.   HumanX:=0;
  106.   For I:=0 to 8 do Begin
  107.    If Board[I]=1 Then Inc(HumanX);
  108.    If Board[I]=2 Then Inc(ComputerO);
  109.   End;
  110.   If(HumanX=1)and(ComputerO=0)Then Begin
  111.    If Board[4]=0 Then ComputerMove:=4;
  112.   End;
  113.    { Recherche une attaque }
  114.   If ComputerMove=-1Then Begin
  115.    If(Board[0]=2)and(Board[1]=2)and(Board[2]=0)Then ComputerMove:=2 Else
  116.    If(Board[0]=2)and(Board[1]=0)and(Board[2]=2)Then ComputerMove:=1 Else
  117.    If(Board[0]=2)and(Board[4]=2)and(Board[8]=0)Then ComputerMove:=8 Else
  118.    If(Board[0]=2)and(Board[4]=0)and(Board[8]=2)Then ComputerMove:=4 Else
  119.    If(Board[0]=2)and(Board[3]=2)and(Board[6]=0)Then ComputerMove:=6 Else
  120.    If(Board[1]=2)and(Board[4]=2)and(Board[7]=0)Then ComputerMove:=7 Else
  121.    If(Board[2]=2)and(Board[4]=2)and(Board[6]=0)Then ComputerMove:=6 Else
  122.    If(Board[2]=2)and(Board[4]=0)and(Board[6]=2)Then ComputerMove:=4 Else
  123.    If(Board[2]=2)and(Board[5]=2)and(Board[8]=0)Then ComputerMove:=8 Else
  124.    If(Board[2]=2)and(Board[5]=0)and(Board[8]=2)Then ComputerMove:=5 Else
  125.    If(Board[3]=2)and(Board[4]=2)and(Board[5]=0)Then ComputerMove:=5 Else
  126.    If(Board[3]=2)and(Board[4]=0)and(Board[5]=2)Then ComputerMove:=4 Else
  127.    If(Board[6]=2)and(Board[5]=2)and(Board[2]=0)Then ComputerMove:=2 Else
  128.    If(Board[6]=2)and(Board[7]=2)and(Board[8]=0)Then ComputerMove:=8 Else
  129.    If(Board[6]=2)and(Board[7]=0)and(Board[8]=2)Then ComputerMove:=7;
  130.   End;
  131.   If ComputerMove=-1Then Begin
  132.    If(Board[2]=2)and(Board[4]=0)and(Board[6]=0)and(ComputerO=1)Then ComputerMove:=6 Else
  133.    If(Board[2]=2)and(Board[6]=2)and(Board[8]=0)and(ComputerO=2)Then ComputerMove:=8 Else
  134.    If(Board[2]=2)and(Board[6]=2)and(Board[0]=0)Then ComputerMove:=0;
  135.   End;
  136.    { Recherche une d,fense }
  137.   If(ComputerMove=-1)Then Begin
  138.    If(Board[0]=0)and(Board[3]=1)and(Board[6]=1)Then ComputerMove:=0 Else
  139.    If(Board[0]=1)and(Board[3]=0)and(Board[6]=1)Then ComputerMove:=3 Else
  140.    If(Board[0]=1)and(Board[3]=1)and(Board[6]=0)Then ComputerMove:=6 Else
  141.    If(Board[0]=0)and(Board[1]=1)and(Board[2]=1)Then ComputerMove:=0 Else
  142.    If(Board[0]=1)and(Board[1]=0)and(Board[2]=1)Then ComputerMove:=1 Else
  143.    If(Board[0]=1)and(Board[1]=1)and(Board[2]=0)Then ComputerMove:=2 Else
  144.    If(Board[1]=0)and(Board[4]=1)and(Board[7]=1)Then ComputerMove:=1 Else
  145.    If(Board[1]=1)and(Board[4]=0)and(Board[7]=1)Then ComputerMove:=4 Else
  146.    If(Board[1]=1)and(Board[4]=1)and(Board[7]=0)Then ComputerMove:=7 Else
  147.    If(Board[2]=0)and(Board[4]=1)and(Board[6]=1)Then ComputerMove:=2 Else
  148.    If(Board[2]=1)and(Board[4]=0)and(Board[6]=1)Then ComputerMove:=4 Else
  149.    If(Board[2]=1)and(Board[4]=1)and(Board[6]=0)Then ComputerMove:=6 Else
  150.    If(Board[2]=0)and(Board[5]=1)and(Board[8]=1)Then ComputerMove:=2 Else
  151.    If(Board[2]=1)and(Board[5]=0)and(Board[8]=1)Then ComputerMove:=5 Else
  152.    If(Board[2]=1)and(Board[5]=1)and(Board[8]=0)Then ComputerMove:=8 Else
  153.    If(Board[3]=0)and(Board[4]=1)and(Board[5]=1)Then ComputerMove:=3 Else
  154.    If(Board[3]=1)and(Board[4]=0)and(Board[5]=1)Then ComputerMove:=4 Else
  155.    If(Board[3]=1)and(Board[4]=1)and(Board[5]=0)Then ComputerMove:=5 Else
  156.    If(Board[6]=0)and(Board[7]=1)and(Board[8]=1)Then ComputerMove:=6 Else
  157.    If(Board[6]=1)and(Board[7]=0)and(Board[8]=1)Then Computermove:=7 Else
  158.    If(Board[6]=1)and(Board[7]=1)and(Board[8]=0)Then ComputerMove:=8;
  159.   End;
  160.    { Recherche al,atoire }
  161.   If ComputerMove=-1 Then Begin
  162.    For I:=0 to 8 do If Board[I]=0 Then Begin
  163.     Board[I]:=2;
  164.     Break;
  165.    End;
  166.   End;
  167.  End;
  168.  If ComputerMove<>-1 Then Begin
  169.   If Board[ComputerMove]=0 Then Begin
  170.    Board[ComputerMove]:=2;
  171.    ComputerPlay:=True;
  172.   End;
  173.  End;
  174. End;
  175.  
  176. Function CheckIfWin:Byte;
  177. Var
  178.  I:Byte;
  179. Begin
  180.  For I:=1 to 2 do Begin
  181.   CheckIfWin:=I;
  182.   If(Board[0]=I)and(Board[1]=I)and(Board[2]=I)Then Exit;
  183.   If(Board[0]=I)and(Board[3]=I)and(Board[6]=I)Then Exit;
  184.   If(Board[1]=I)and(Board[4]=I)and(Board[7]=I)Then Exit;
  185.   If(Board[2]=I)and(Board[5]=I)and(Board[8]=I)Then Exit;
  186.   If(Board[2]=I)and(Board[4]=I)and(Board[6]=I)Then Exit;
  187.   If(Board[0]=I)and(Board[4]=I)and(Board[8]=I)Then Exit;
  188.   If(Board[3]=I)and(Board[4]=I)and(Board[5]=I)Then Exit;
  189.   If(Board[6]=I)and(Board[7]=I)and(Board[8]=I)Then Exit;
  190.  End;
  191.  CheckIfWin:=0;
  192. End;
  193.  
  194. Function MatchNull:Boolean;
  195. Var
  196.  I:Byte;
  197. Begin
  198.  MatchNull:=False;
  199.  For I:=0 to 8 do If Board[I]=0Then Exit;
  200.  MatchNull:=True;
  201. End;
  202.  
  203. Procedure RunGame;
  204. Var
  205.  K:Char;
  206. Begin
  207.  If(Beginner=Computer)Then ComputerPlay;
  208.  Repeat
  209.   ShowBoard;
  210.   WriteLn;
  211.   Write('Faites votre choix entre 1 et 9 : ');
  212.   K:=ReadKey;
  213.   Case K of
  214.    '1':If HumanPlay(0)Then Begin
  215.     If CheckIfWin=1 Then Begin
  216.      ShowBoard;
  217.      WriteLn('Vous avez gagne !');
  218.      Exit;
  219.     End;
  220.     ComputerPlay;
  221.     If CheckIfWin=2 Then Begin
  222.      ShowBoard;
  223.      WriteLn('Vous avez perdu !');
  224.      Exit;
  225.     End;
  226.    End;
  227.    '2':If HumanPlay(1)Then Begin
  228.     If CheckIfWin=1 Then Begin
  229.      ShowBoard;
  230.      WriteLn('Vous avez gagne !');
  231.      Exit;
  232.     End;
  233.     ComputerPlay;
  234.     If CheckIfWin=2 Then Begin
  235.      ShowBoard;
  236.      WriteLn('Vous avez perdu !');
  237.      Exit;
  238.     End;
  239.    End;
  240.    '3':If HumanPlay(2)Then Begin
  241.     If CheckIfWin=1 Then Begin
  242.      ShowBoard;
  243.      WriteLn('Vous avez gagne !');
  244.      Exit;
  245.     End;
  246.     ComputerPlay;
  247.     If CheckIfWin=2 Then Begin
  248.      ShowBoard;
  249.      WriteLn('Vous avez perdu !');
  250.      Exit;
  251.     End;
  252.    End;
  253.    '4':If HumanPlay(3)Then Begin
  254.     If CheckIfWin=1 Then Begin
  255.      ShowBoard;
  256.      WriteLn('Vous avez gagne !');
  257.      Exit;
  258.     End;
  259.     ComputerPlay;
  260.     If CheckIfWin=2 Then Begin
  261.      ShowBoard;
  262.      WriteLn('Vous avez perdu !');
  263.      Exit;
  264.     End;
  265.    End;
  266.    '5':If HumanPlay(4)Then Begin
  267.     If CheckIfWin=1 Then Begin
  268.      ShowBoard;
  269.      WriteLn('Vous avez gagne !');
  270.      Exit;
  271.     End;
  272.     ComputerPlay;
  273.     If CheckIfWin=2 Then Begin
  274.      ShowBoard;
  275.      WriteLn('Vous avez perdu !');
  276.      Exit;
  277.     End;
  278.    End;
  279.    '6':If HumanPlay(5)Then Begin
  280.     If CheckIfWin=1 Then Begin
  281.      ShowBoard;
  282.      WriteLn('Vous avez gagne !');
  283.      Exit;
  284.     End;
  285.     ComputerPlay;
  286.     If CheckIfWin=2 Then Begin
  287.      ShowBoard;
  288.      WriteLn('Vous avez perdu !');
  289.      Exit;
  290.     End;
  291.    End;
  292.    '7':If HumanPlay(6)Then Begin
  293.     If CheckIfWin=1 Then Begin
  294.      ShowBoard;
  295.      WriteLn('Vous avez gagne !');
  296.      Exit;
  297.     End;
  298.     ComputerPlay;
  299.     If CheckIfWin=2 Then Begin
  300.      ShowBoard;
  301.      WriteLn('Vous avez perdu !');
  302.      Exit;
  303.     End;
  304.    End;
  305.    '8':If HumanPlay(7)Then Begin
  306.     If CheckIfWin=1 Then Begin
  307.      ShowBoard;
  308.      WriteLn('Vous avez gagne !');
  309.      Exit;
  310.     End;
  311.     ComputerPlay;
  312.     If CheckIfWin=2 Then Begin
  313.      ShowBoard;
  314.      WriteLn('Vous avez perdu !');
  315.      Exit;
  316.     End;
  317.    End;
  318.    '9':If HumanPlay(8)Then Begin
  319.     If CheckIfWin=1 Then Begin
  320.      ShowBoard;
  321.      WriteLn('Vous avez gagne !');
  322.      Exit;
  323.     End;
  324.     ComputerPlay;
  325.     If CheckIfWin=2 Then Begin
  326.      ShowBoard;
  327.      WriteLn('Vous avez perdu !');
  328.      Exit;
  329.     End;
  330.    End;
  331.   End;
  332.   If(MatchNull)Then Begin
  333.    ShowBoard;
  334.    WriteLn('PARTIE NULLE !');
  335.    Exit;
  336.   End;
  337.  Until K=#27;
  338. End;
  339.  
  340. BEGIN
  341.  Beginner:=Computer;
  342.  InitGame;
  343.  ChoiceBeginner;
  344.  RunGame;
  345. END.

Code source

Voici le code source du jeu sur GitHub :

Lien Langage de programmation Projet
https://github.com/gladir/7iles/blob/main/TTT.PAS Turbo Pascal, Free Pascal 7iles


Dernière mise à jour : Jeudi, le 28 juillet 2022