Notices | Cast3M

$$$$ RESP     NOTICE  SP204843  24/11/04    21:15:05     12063          
                                             DATE     24/11/04
                                             
    Directive RESPRO                         Voir aussi : DEBP ARGU
    ----------------                                      FINP QUIT  
    RESPRO  OBJET1 OBJET2  ..... ;


    Objet :
    _______

    La directive RESPRO  permet a l'interieur d'une procedure de rendre
des resultats  OBJET1 OBJET2 .....

    Remarque :
    __________

    Il peut y avoir plusieurs ordres RESPRO dans une procedure.

    Ces resultats ne seront disponibles a la lecture qu'au moment de
l'appel a FINPRO.

    Le premier resultat rendu par RESP sera affecte au premier nom
devant le signe = , etc....


    Exemple :
    _________

    Procedure  creant les N premieres puissances entieres d'un nombre.



             DEBP PUISSANC ;
             ARGU X*FLOTTANT N*ENTIER  ;
             SI ( N <EG 0) ; QUITTER PUISSANC; FINSI;
             B = 1.;
             RESPRO  B;
             NN = N - 1 ;
             SI ( NN EGA 0) ; QUITTER PUISSANC; FINSI;
             REPETER PU NN;
             B = B * X ;
             RESPRO B;
             FIN    PU;
             FINPROC;

             A B C  = PUISSANC 4 3;
             AA = PUISSANC 2 20 PROG;

   Dans notre exemple A B C valent respectivement 1 4 16 et AA est un
objet LISTREEL contenant les 20 premieres puissances de 2 (1 2 4 8...).