A função COS

Retorna um valor numérico que aproxima o cosseno do ângulo ou arco especificado pelo argumento em radianos. O tipo de função é numérico.

FUNCTION COS (argument-1)

argument-1: Deve ser da classe numérica. O valor de argument-1 deve ser maior ou igual a -1 e menor ou igual a +1. O valor retornado é a aproximação do cosseno do argumento.

IDENTIFICATION DIVISION.
PROGRAM-ID. ExemploCos.

DATA DIVISION.
WORKING-STORAGE SECTION.
   01 ANGULO-PARA-COS PIC 9(3)V9(2) VALUE -0.5.
   01 RESULTADO-COS PIC 9(3)V9(6).

PROCEDURE DIVISION.
   MOVE FUNCTION COS(ANGULO-PARA-COS) TO RESULTADO-COS.

   DISPLAY "O cosseno de " ANGULO-PARA-COS " é: " RESULTADO-COS.

   STOP RUN.

Neste exemplo, a função COS é usada para calcular o cosseno de um ângulo especificado (neste caso, -0.5 radianos). O resultado é armazenado na variável RESULTADO-COS e exibido na tela.