Accueil | Cast3M

   1 : $$$$ REPE     NOTICE  GOUNAND   26/01/16    21:15:14     12451          
   2 :                                              DATE     26/01/16
   3 : 
   4 :   Directive REPETER                        Voir aussi : ITER QUIT
   5 :     -----------------                                     FIN  ENUM  
   6 :     REPETER BLOC1 | (N1)        | ;
   7 :                   | (LISTOBJ1)  |
   8 : 
   9 :     Objet :
  10 :     _______
  11 : 
  12 :     L'objet BLOC1 (de type BLOC) est constitue de l'ensemble des
  13 :     instructions comprises entre la directive REPETER BLOC1 et
  14 :     la directive FIN BLOC1.
  15 : 
  16 :     La directive REPETER permet de repeter plusieurs fois
  17 :     l'execution de cet ensemble d'instructions.
  18 : 
  19 :     Si l'entier N1 est specifie, il faut le mettre apres le nom de la
  20 :     boucle, et la boucle est repetee N1 fois.
  21 :     Un objet ENTIER s'appelant &BLOC1 est incremente a chaque iteration
  22 :     (compteur de boucle valant 1 lors du premier passage).
  23 : 
  24 :     Si une liste d'objets LISTOBJ1 est specifiee, la boucle est repetee
  25 :     pour chaque objet de la liste, et le nom &BLOC1 permet d'acceder a
  26 :     cet objet.
  27 : 
  28 : 
  29 :     ATTENTION : seules les 7 premieres lettres du nom BLOC1 sont mises
  30 :     _________   derriere le caractere &.
  31 : 
  32 : 
  33 :     Remarque :
  34 :     __________
  35 : 
  36 :     Si N1 est nul, le code de la boucle n'est jamais execute.
  37 : 
  38 :     Si N1 est negatif, la repetition se fait indefiniment.
  39 : 
  40 :     Si N1 et LISTOBJ1 ne sont pas specifies, la repetition se fait
  41 :     indefiniment.
  42 : 
  43 :     Il est possible dans tous les cas d'interrompre la repetition a
  44 :     l'aide de la directive QUITTER. L'instruction ITERER permet quant
  45 :     a elle de passer directement a l'iteration suivante, sans executer
  46 :     le reste du code present jusqu'a la fin du bloc.
  47 : 
  48 : 
  49 :     Exemple :
  50 :     _________
  51 : 
  52 :     I=0 ; CRIT= 1E-5; CRITM= CRIT*-1; C=0. ;
  53 :     EPS1= 0 ; OK = FAUX ;
  54 : 
  55 :     REPETER BLOTO 100 ;
  56 :        I = I + 1; C = C + (1./ I) ;
  57 :        EPS = C - (LOG I) ;
  58 :        D = EPS - EPS1 ;
  59 :        SI ( (D < CRIT) ET (D > CRITM) ) ;
  60 :           OK = VRAI ;
  61 :           MESS 'Constante d''Euler calculee en' &BLOTO ' iterations' ;
  62 :           QUITTER BLOTO ;
  63 :        FINSI ;
  64 :        EPS1 = EPS ;
  65 :     FIN BLOTO ;
  66 : 
  67 :     SI OK ;
  68 :        LIST EPS ;
  69 :     SINON ;
  70 :        MESSAGE 'Non convergence' ;
  71 :     FINSI ;
  72 : 
  73 :     FIN;
  74 :