COBOL - Funções intrínsecas


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.

 FUNCTION SQRT
   
  A função "FUNCTION SQRT" retorna um valor numérico da raiz quadrada do argumento fornecido.  
   
   Formato geral: FUNCTION SQRT (num)
                             num é um numérico ou um argumento inteiro cujo o valor deve ser igual ou maior que 0 (zero) 		 
   Regras:  
                               1. O tipo desta função é um numérico - PIC 9(X)V9(X)  
                               2. O valor retornado é a raiz quadrada do argumento fornecido.  
   
   

 Exemplo
  
       
      *-----------------------------------------------------------------
       WORKING-STORAGE SECIOTN.
      *-----------------------------------------------------------------

       01  WS-AUXILIARES.  
           05  WSS-RAIZ                  PIC 9(05)V9(005) VALUE ZEROES.
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * sintaxe do comando   

           COMPUTE WSS-RAIZ      = FUNCTION SQRT (4)  
           DISPLAY 'FUNCTION SQRT ....... - ' WSS-RAIZ

      * Resultado: FUNCTION SQRT ..... - 00002,00000
 
           COMPUTE WSS-RAIZ      = FUNCTION SQRT (77)  
           DISPLAY 'FUNCTION SQRT ....... - ' WSS-RAIZ

      * Resultado: FUNCTION SQRT ..... - 00008,77496
 
           MOVE 77,00000 TO WSS-RAIZ                       
           COMPUTE WSS-RAIZ      = FUNCTION SQRT (WSS-RAIZ)
           DISPLAY 'FUNCTION SQRT VARIA.. - ' WSS-RAIZ             

      * Resultado: FUNCTION SQRT ..... - 00008,77496