Skip to content

Instantly share code, notes, and snippets.

@AyoubOuddah
Last active April 29, 2018 19:58
Show Gist options
  • Save AyoubOuddah/696bee2e2a0108813db5c93fd9b19a41 to your computer and use it in GitHub Desktop.
Save AyoubOuddah/696bee2e2a0108813db5c93fd9b19a41 to your computer and use it in GitHub Desktop.
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.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment