tic tac toe Algo

Alghoithme tic_tac_toe
type
mat =tableau de [0..3,0..3] de caractere
variable
m:mat
i,l,c,res,k,joueur:entier
nom1,nom2,joueurnom:cc

debut
i ← 0
res ← 0
k ← 0
l ← 0
c ← 0
res ← 0
joueurnom ← ""
joueur ← ""
nom1 ← ""
nom2 ← ""
m[1,1] ← '1'
m[1,2] ← '2'
m[1,3] ← '3'
m[2,1] ← '4'
m[2,2] ← '5'
m[2,3] ← '6'
m[3,1] ← '7'
m[3,2] ← '8'
m[3,3] ← '9'
{entrer les noms des joueurs}
ecrire ("entrer le premier nom ")
lire (nom1)
ecrire ("entrer le deuxieme nom ")
lire (nom2)
pour i de 1 a 9 et (res=0) faire
    ecrire (" ",m[1,1]," | ",m[1,2]," | ",m[1,3])
    ecrire ("---+---+---")
    ecrire (" ",m[2,1]," | ",m[2,2]," | ",m[2,3])
    ecrire ("---+---+---")
    ecrire (" ",m[3,1]," | ",m[3,2]," | ",m[3,3])
    joueur:=i mod2 +1 {changement de joueur}
       repeter
          si (joueur =1) alors
             ecrire ("joueur ",joueur," c'est ton tour");
             ecrireln("ou tu va placer le X")
          sinon
             ecrire ("joueur ",joueur," c'est ton tour");
             ecrireln("ou tu va placer le O")
             lire (choix)
          fin si
       jusqu'a (choix dans [1..9])
       l ← l-choix div 3 {avoir l'indice de ligne}
       c ← choixmod 3    {avoir l'indice de colonne}
       tantque (choix<1 ou choix >10 ou m[l,c]>'9') faire
          si (joueur =1) alors
             m[l,c] ← 'X'
          sinon
             m[l,c] ← 'O'
          finsi
       fin tantque
       {verifier s'il ya gagnant}
       si ((m[1,1]= m[2,2]) et (m[1,1]= m[3,3] ))ou ((m[1,3]= m[2,2]) et (m[1,3]= m[3,1])) alors
          res ← joueur
       sinon
          pour k de 1 a 3 faire
             si (m[k,1]= m[k,2]) et (m[k,1]= m[k,3]) ou (m[k,1]= m[2,k]= m[3,k])
                res ← joueur
             fin si
          fin pour
       fin si
    si (joueur =1) alors
       joueurnom ← nom2
    sinon
       joueurnom ← nom2
    fin si
fin pour
{ affichae du table du jeu}
ecrireln
ecrire (" ",m[1,1]," | ",m[1,2]," | ",m[1,3])
ecrire ("---+---+---")
ecrire (" ",m[2,1]," | ",m[2,2]," | ",m[2,3])
ecrire ("---+---+---")
ecrire (" ",m[3,1]," | ",m[3,2]," | ",m[3,3])
{affichage nom du gagnant}
si (res=0) alors
    ecrire("Recemancer")
sinon
    ecrire("Bravo ",joueurnom," t'as gagné)
fin si
fin