Télécharger debp.notice

Retour à la liste thématique

Afficher cette notice en

Numérotation des lignes :
   1 : $$$$ DEBP     NOTICE  CHAT      11/09/12    21:15:45     7124           
   2 :                                              DATE     11/09/12
   3 : 
   4 :     Operateur DEBPROC                        Voir aussi : FINP ARGU
   5 :     -----------------                                     RESP  QUIT  
   6 :     DEBPROC   PROC1 (OBJ1?TYP1  OBJ2?TYP2  .... ) ;
   7 : 
   8 : 
   9 :     Objet :
  10 :     -------
  11 : 
  12 :     L'operateur DEBPROC cree un objet de type PROCEDUR qui contient une
  13 : suite d'instructions elementaires, dont la premiere est DEBPROC et la
  14 : derniere est FINPROC.
  15 : 
  16 :     Commentaire :
  17 :     -------------
  18 : 
  19 :     La procedure peut avoir une liste d'arguments types (OBJ1,OBJ2,...).
  20 : ? peut prendre deux valeurs :
  21 : 
  22 :             *  qui rend la donnee de l'argument obligatoire au
  23 :                moment de l'appel de la procedure,
  24 : 
  25 :             /  qui la rend facultative.
  26 : 
  27 : Les types d'objet possibles sont:
  28 :  
  29 :    'MAILLAGE'     'AFFECTE '    'DEFORME '
  30 :    'CHPOINT '     'CHAMELEM'    'LISTREEL'
  31 :    'RIGIDITE'     'BLOQSTRU'    'LISTENTI'
  32 :    'ELEMSTRU'     'SOLUTION'    'CHARGEME'
  33 :    'STRUCTUR'     'TABLE   '    'MODELE  '
  34 :    'MAFFEC  '     'MSOSTU  '    'EVOLUTIO'
  35 :    'IMATRI  '     'MJONCT  '    'SUPERELE'
  36 :    'ATTACHE '     'MMATRI  '    'LOGIQUE '
  37 :    'FLOTTANT'     'ENTIER  '    'MOT     '
  38 :    'TEXTE   '     'LISTMOTS'    'VECTEUR '
  39 :    'VECTDOUB'     'POINT   '    'CONFIGUR'
  40 :    'LISTCHPO'     'BASEMODA'    'PROCEDUR'
  41 :    'BLOC    '     'MMODEL  '    'MCHAML  '
  42 :    'MINTE   '     'NUAGE   '    'MATRIK  '
  43 :   
  44 :     Il faut bien noter qu'en presence de plusieurs arguments
  45 : de Meme type seul l'ordre permet de les differencier.
  46 : 
  47 :     Remarques :
  48 :     -----------
  49 : 
  50 :     Une procedure a acces a tous les objets existants avant son
  51 :  appel mais ne peut pas les modifier. Tout objet dont le nom
  52 :  commence par ! ne sera pas initialise par un objet de meme nom
  53 :  defini en dehors de la procedure.
  54 : 
  55 :     Les objets crees lors de l'execution d'une procedure ne sont pas
  56 : accessibles a l'exterieur de la procedure.
  57 : 
  58 : 
  59 : 
  60 :     Exemple de procedure de calcul de la fonction MODULO :
  61 :     ------------------------------------------------------
  62 : 
  63 :                   DEBPROC  MODULO   I*ENTIER  J*ENTIER ;
  64 :                   MODERR='$$$$$';
  65 :                   SI (J EGA 0) :
  66 :                   MESSAGE  ' ON NE PEUT FAIRE I MODULO ZERO ';
  67 :                   RESPRO MODERR;
  68 :                   QUITTER MODULO ; FINSI;
  69 :                   K*ENTIER = I / J ;
  70 :                   MOD = I - ( K * J ) ;
  71 :                   FINPROC MOD;
  72 : 
  73 :     Exemple d'emploi de la procedure MODULO :
  74 :     -----------------------------------------
  75 : 
  76 : 
  77 :                   K = 8  MODULO 3 ;
  78 :                   SI ( K NEG 2 ) ;
  79 :                   MESSAGE ' ERREUR DANS LA RECOPIE DE L EXEMPLE |' ;
  80 :                   FINSI;
  81 : 
  82 : 
  83 :  

© Cast3M 2003 - Tous droits réservés.
Mentions légales