Télécharger repe.notice

Retour à la liste thématique

Afficher cette notice en

Numérotation des lignes :
   1 : $$$$ REPE     NOTICE  JC220346  16/07/08    21:15:04     9008           
   2 :                                              DATE     16/07/08
   3 : 
   4 :     Directive REPETER                        Voir aussi : ITER QUIT
   5 :     -----------------                                     FIN  
   6 :     REPETER BLOC1 (N1) ;
   7 : 
   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 N1 (type ENTIER) fois
  17 :     l'execution de cet ensemble d'instructions.
  18 : 
  19 :     Un objet ENTIER s'appelant &BLOC1 est incremente a chaque iteration
  20 :     (compteur de la boucle valant 1 lors du premier passage).
  21 :     
  22 :     ATTENTION : seules les 7 premieres lettres du nom BLOC1 sont mises
  23 :                 derriere le caractere &.
  24 : 
  25 :     
  26 :     Remarque :
  27 :     __________
  28 : 
  29 :     Si N1 est specifie, il faut le mettre apres le nom de la boucle.
  30 :     
  31 :     Si N1 est nul, le code de la boucle n'est jamais execute.
  32 : 
  33 :     Si N1 est negatif ou s'il n'est pas specifie, la repetition se fait
  34 :     indefiniment.
  35 :     
  36 :     Il est possible dans tous les cas d'interrompre la repetition a
  37 :     l'aide de la directive QUITTER. L'instruction ITERER permet quant
  38 :     a elle de passer directement a l'iteration suivante, sans executer
  39 :     le reste du code present jusqu'a la fin du bloc.
  40 : 
  41 :     
  42 :     Exemple :
  43 :     _________
  44 :     
  45 :     
  46 :     * Calcul de la constante d'Euler
  47 : 
  48 :     I=0 ; CRIT= 1E-5; CRITM= CRIT*-1; C=0. ;
  49 :     EPS1= 0 ; OK = FAUX ;
  50 : 
  51 :     REPETER BLOTO 100 ;
  52 : 
  53 :     I = I + 1; C = C + (1./ I) ;
  54 :     EPS = C - (LOG I) ;
  55 :     D = EPS - EPS1 ;
  56 : 
  57 :     SI ( (D < CRIT) ET (D > CRITM) ) ;
  58 : 
  59 :     OK = VRAI ;
  60 :     MESS ' constante d'euler atteinte au bout de ' &BLOTO 'iterations';
  61 :     QUITTER BLOTO ;
  62 : 
  63 :     FINSI ;
  64 :     EPS1 = EPS ;
  65 : 
  66 :     FIN BLOTO ;
  67 : 
  68 :     SI OK ;
  69 :     LIST EPS ;
  70 :     SINON ;
  71 :     MESSAGE 'RATE' ;
  72 :     FINSI ;
  73 :     FIN;
  74 : 

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