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 MEAN
   
  A função "FUNCTION MEAN" retorna um valor numérico que é a média (average) dos argumento fornecido.  
   
   Formato geral: FUNCTION MEAN ({arg}......)
                             arg é um argumento numérico 		 
   Regras:  
                               1. O tipo desta função é um numérico - PIC 9(XXX)  
                               2. O valor retornado é média aritmética dos valores fornecidos de uma lista ou seja é a soma de todos os argumentos dividido pelo número dos mesmos.  
   
   

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

       01  WS-AUXILIARES.                                           
           05  WSS-RESULTADO             PIC 9(10) VALUE ZEROES.
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * sintaxe do comando   
           COMPUTE WSS-RESULTADO = FUNCTION MEAN (5, 10, 10, 5, 10)
           DISPLAY 'FUNCTION MEAN   - ' WSS-RESULTADO     
               
      * Resultado: FUNCTION MEAN   - 0000000008