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

fonction sommeDiagonalePrincipale(t) : reel
  Donnees t : tableau [N][N] de reel   { tableau de recherche                  }
  Locales i : entier                   { indice de boucle pour                 }
          cumul : reel                 { variable maximum resultat             }
  cumul := 0.0
  pour i de 0 à N-1 faire
    cumul := cumul + t[i][i]
  fait
  Resultat : cumul
fin fonction