ExceptionTableauSelon NomDuSelecteur : NomDUnEnumere InflexionDonnee Faire Fin SelonArbreBinaireDe TypeElementaireCollectionDe TypeElementaireHachageDe TypeElementaireIterateurDe TypeElementaireListeDe TypeElementaireReferenceDe TypeElementaireResultatRequeteDe TypeElementaireResultatRequeteListeDe TypeElementaireTableau SuiteTableau[ TailleDuTableau ] De TypeElementaire( TypeElementaire )?JusquA TailleTaille :
CasParticulierDUnTypeOuVersion :
Version NumeroDeVersion . NumeroDeRevision FaireFin VersionFaire Fin CasCas NomDuCas Pour NomDUneValeurEnumereCas NomDuCas Dans ( ListeDeValeursDeCasDUnType )Cas NomDuCas Entre NomDUneValeurEnumere Et
NomDUneValeurEnumereDefaut Fin DefautContrainte Objet Comme ValeurDeContrainteContrainte Objet Dans ( ListeDeValeursDeContrainte )Contrainte Objet Entre ValeurDeContrainte Et ValeurDeContrainte[]CommeException ListeDExceptionsDefinitionDUneExceptionOuVersion :
Version NumeroDeVersion . NumeroDeRevision FaireFin Version( NumeroDErreur ExceptionSurTransaction ) ;, TransactionInchangee, TransactionInvalidee, TransactionToutesInvalidees[ Expression ]Entre Expression Et ExpressionDans ( ListeDExpressions )( ListeDExpressionsOption ){ ListeDExpressions }ArbreBinaireDe ( Expression , Expression )HachageDe ( Expression , Expression )CollectionDe ( ListeDExpressions )ListeDe ( Expression )ReferenceDe ( Expression )ResultatRequeteDe ( Expression )ResultatRequeteListeDe ( Expression )TableauDe ( Expression , Expression , Expression )SiNul ( ListeDExpressions )Decoder ( ListeDExpressions )ExceptionTableau. SuiteSelectionDefaut . SuiteSelection[]CommeEtSiOuSinonEcartTypeMaxMinMoyenneSommeVarianceSelon Expression Faire Fin SelonAttraperException ListeDInstructions TraiterExceptionFin AttraperExceptionCasParticulierDUneInstruction :
FaireFin Faire Cas Pour ExpressionCas Dans ( ListeDeValeursDeCasDUneInstruction )Cas Entre Expression Et Expression ListeDeValeursDeCasDUneInstruction :
Defaut Fin DefautAttraperException InflexionAppelFin AttraperExceptionAttraperException Implemente ;
Variable
/******/
Public :
A : Entier;
B : Reel;
C : Caractere;
E : Booleen;
F : Tableau[1 JusquA 10] De Nul Ou Entier;
G : ListeDe Entier;
H : ReferenceDe Entier;
Exception
/*******/
Public :
SessionImpossible("SessionImpossible", 100);
Protege :
TableInexistante("TableInexistante", 101);
ColonneInexistante("ColonneInexistante", 102);
Principal
/*******/
Debut
E=B Entre A Et A*2 Ou B Dans (Pi, e) ;
F[3]=Entier(-10*B);
E=C Comme "A%";
A=Min(A, 10);
G=G.Suivant();
H=ReferenceDe(A);
A=H.Valeur;
Selon A Faire
Cas 1 Ou 2 Faire
Ecran.Ecrire("A a pour valeur 1 ou 2");
Fin Cas
Cas Entre 3 Et 10 Faire
Ecran.Ecrire("A est entre 3 and 10");
Fin Cas
Defaut
Ecran.Ecrire("A a une autre valeur");
Fin Defaut
Fin Selon
Fin Principal