Accueil | Cast3M

   1 : $$$$ QUIT     NOTICE  CHAT      11/09/12    21:17:48     7124           
   2 :                                              DATE     11/09/12
   3 :                                              
   4 :   Directive QUITTER                        Voir aussi : REPE DEBP
   5 :     -----------------                                     DEBM   
   6 :     QUITTER   OBJ1   ;
   7 : 
   8 : 
   9 :     Objet :
  10 :     _______
  11 : 
  12 :     La directive QUITTER sert a interrompre l'execution du bloc OBJ1,
  13 : ou de la procedure OBJ1. Le contrÔle est alors rendu a l'instruction
  14 : suivant la fin du bloc ou a l'instruction FINPRO de la procedure.
  15 : 
  16 :     Remarque :
  17 :     __________
  18 : 
  19 :     Si plusieurs blocs sont imbriques, il est possible de quitter celui
  20 : que l'on desire en indiquant son nom.
  21 : 
  22 :     Exemple :
  23 :     _________
  24 : 
  25 :     * calcul de la constante d'EULER
  26 : 
  27 :     * INITIALISATIONS
  28 :     I=0 ; CRIT= 1E-5; CRITM= CRIT*-1; C=0. ;
  29 :     EPS1= 0 ; OK = FAUX ;
  30 : 
  31 :     REPETER 50 BLOC1 ;
  32 : 
  33 :      I = I + 1; C = C + (1./ I) ;
  34 :      EPS = C - (LOG I) ;
  35 :      D = EPS - EPS1 ;
  36 : 
  37 :        SI ( (D < CRIT) ET (D > CRITM) ) ;
  38 : 
  39 :        OK = VRAI ;
  40 :        QUITTER BLOC1 ;
  41 : 
  42 :        FINSI ;
  43 : 
  44 :      EPS1 = EPS ;
  45 : 
  46 :      FIN BLOC1 ;
  47 : 
  48 :      SI OK ;
  49 :       LIST EPS ;
  50 :      SINON ;
  51 :       LIST 'RATE' ;
  52 :      FINSI ;
  53 :      FIN;
  54 : 
  55 :     Exemple d'utilisation de blocs imbriques :
  56 : 
  57 :     REPETER BLOC1 ;
  58 :        .....
  59 : 
  60 :     REPETER BLOC2  ;
  61 :        .......
  62 : 
  63 :       SI CONDITION ;
  64 :         QUITTER BLOC2 ;
  65 :       SINON ;
  66 :         QUITTER BLOC1 ;
  67 :       FIN BLOC2 ;
  68 :     FIN BLOC1 ;
  69 :