pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet d'additionner deux matrices.

Pour cet exemple, on considère que les matrices ont été préalablement créées. L'existence des deux matrices est testée avec MatExiste . Les deux matrices doivent être de mêmes dimensions (même nombre de colonnes vérifié avec MatNbColonne , même nombre de lignes vérifié avec MatNbLigne ).



--Code de clic sur BtnAddition
// Déclaration des variables
ResAddition est un booléen
// Teste l'existence des matrices
SI MatExiste("Matrice1") ET MatExiste("Matrice2") ALORS
   // Même nombre de lignes ?
  
SI MatNbLigne("Matrice1") = MatNbLigne("Matrice2") ALORS
      // Même nombre de colonnes ?
     
SI MatNbColonne("Matrice1") = MatNbColonne("Matrice2") ALORS
         // Addition des deux matrices
        
ResAddition = MatAdditionne ("Matrice1", "Matrice2", "MatriceRésultat")
         SI ResAddition = Vrai ALORS
            Info("L'addition a été effectuée")
         SINON
            // Affichage du message d'erreur
           
Erreur(ErreurInfo(errMESSAGE))
         FIN
      SINON
         Info("Les matrices n'ont pas le même nombre de colonnes")
      FIN
   SINON
      Info("Les matrices n'ont pas le même nombre de lignes")
   FIN
SINON
   Info("Les matrices n'existent pas")
FIN