{ Calcul de la somme des valeurs            }
{ d'une diagonale d'une matrice d'entiers   }

fonction sommeDiagonaleMatrice(t,d,sens) : entier
  Donnees t : tableau [N][N] de entier   { tableau traite                      }
          d : entier                     { diagonale de calcul                 }
          sens : booleen                 { sens de la diagonale                }
                                         { descendante ou montante             }
  Locales i : entier                   { indice de boucle pour                 }
          cumul : entier               { variable maximum resultat             }
          l : entier                   { numero le ligne                       }
  cumul := t[d][0]
  pour i de 1 à N-1 faire
    si sens alors
      l = (d+i) modulo N
      sinon
      l = (d+N-i) modulo N
    fsi
    cumul := cumul + t[l][i]
  fait
  Resultat : cumul
fin fonction