Program4 Algorithme

Algorithme program4
var 
posReineX, posReineY : entier; 
posInitialDiag1, posInitialDiag2 : entier; // les position X initale du chaque diagonale
echiquier = tableu [8,8] : entier;
i , j : entier;  
debut 
     ecrire("entrer la position initial de la reine :"); 
     lire(posReineX, posReineY); 
     posInitialDiag1 <-- posReineX - (posReineY - 1); 
     posInitialDiag2 <-- posReineX + (posReineY - 1);  
     pour i <-- 1 à 8 faire
          pour j <-- 1 à 8 faire
               echiquier[i, j] <-- 0; // initialisation de l'echiquier par la valeur 0 
               si (posInitialDiag1 > 0 et posInitialDiag1 < 9) faire
                  echiquier[i ,posInitialDiag1 ] <-- 1;
               f.si 
               si (posInitialDiag2 > 0 et posInitialDiag2 < 9) faire
                  echiquier[i , posInitialDiag2] <-- 1; 
               f.si
               si (i =  posReineX ou j = posReineY) 
                  echiquier[i, j] <-- 1;
               f.si 
          f.pour
          posInitialDiag1 <-- posInitialDiag1 + 1; 
          posInitialDiag2 <-- posInitialDiag2 - 1;
      f.pour
      echiquier[posReineY,posReineX] <-- 2; // affectation de la position de la reine
      // affichage 
fin.