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 de remplir une matrice. Cette matrice est remplie de la ligne 1 à 5 et de la colonne 1 à 3 par la valeur 7.

L'existence de la matrice est testée avec MatExiste . La matrice est créée avec MatCrée . Le nom de la matrice est saisi par l'utilisateur dans un champ de saisie (NomMatrice).



// Déclaration des variables
ResExiste est un booléen
ResEcrase est un booléen
ResCréation est un booléen
ResRemplissage est un booléen
// Teste l'existence de la matrice
ResExiste = MatExiste(NomMatrice)
// La matrice existe
SI ResExiste = Vrai ALORS
   // Écrasement de la matrice ?
   ResEcrase = OuiNon("Cette matrice existe déjà. Voulez-vous l'écraser ?")
FIN
// La matrice n'existe pas ou doit être écrasée
SI ResExiste = Faux OU ResEcrase = Vrai ALORS
   // Création de la matrice
   ResCréation = MatCrée(NomMatrice)
FIN
// Erreur ?
SI ResCréation = Faux ALORS
   
// Affichage du message d'erreur
   Erreur(ErreurInfo(errMESSAGE))
SINON
   // Remplissage de la matrice.
   // Remplissage de la ligne 1 à 5 et de la colonne 1 à 3 par la valeur 7.
   ResRemplissage = MatRemplit (NomMatrice, 7, 5, 3)
   // Erreur ?
   SI ResRemplissage = Vrai ALORS
     
Info
("La matrice a été remplie")
   SINON
      // Affichage du message d'erreur
      Erreur(ErreurInfo(errMESSAGE))
FIN