Accueil | Cast3M

   1 : $$$$ RESP     NOTICE  SP204843  24/11/04    21:15:05     12063          
   2 :                                              DATE     24/11/04
   3 :                                              
   4 :   Directive RESPRO                         Voir aussi : DEBP ARGU
   5 :     ----------------                                      FINP QUIT  
   6 :     RESPRO  OBJET1 OBJET2  ..... ;
   7 : 
   8 : 
   9 :     Objet :
  10 :     _______
  11 : 
  12 :     La directive RESPRO  permet a l'interieur d'une procedure de rendre
  13 : des resultats  OBJET1 OBJET2 .....
  14 : 
  15 :     Remarque :
  16 :     __________
  17 : 
  18 :     Il peut y avoir plusieurs ordres RESPRO dans une procedure.
  19 : 
  20 :     Ces resultats ne seront disponibles a la lecture qu'au moment de
  21 : l'appel a FINPRO.
  22 : 
  23 :     Le premier resultat rendu par RESP sera affecte au premier nom
  24 : devant le signe = , etc....
  25 : 
  26 : 
  27 :     Exemple :
  28 :     _________
  29 : 
  30 :     Procedure  creant les N premieres puissances entieres d'un nombre.
  31 : 
  32 : 
  33 : 
  34 :              DEBP PUISSANC ;
  35 :              ARGU X*FLOTTANT N*ENTIER  ;
  36 :              SI ( N <EG 0) ; QUITTER PUISSANC; FINSI;
  37 :              B = 1.;
  38 :              RESPRO  B;
  39 :              NN = N - 1 ;
  40 :              SI ( NN EGA 0) ; QUITTER PUISSANC; FINSI;
  41 :              REPETER PU NN;
  42 :              B = B * X ;
  43 :              RESPRO B;
  44 :              FIN    PU;
  45 :              FINPROC;
  46 : 
  47 :              A B C  = PUISSANC 4 3;
  48 :              AA = PUISSANC 2 20 PROG;
  49 : 
  50 :    Dans notre exemple A B C valent respectivement 1 4 16 et AA est un
  51 : objet LISTREEL contenant les 20 premieres puissances de 2 (1 2 4 8...).
  52 :