Neste artigo temos um programa COBOL simples que solicita ao usuário que digite dois números e, em seguida, calcula e exibe o produto desses números (um número vezes o outro).

Para rodar e testar o programa, podemos compilar e executar o código em um ambiente Cobol adequado, como o GnuCobol ou outros compiladores Cobol modernos, ou ainda em um simulador online, como o OnlineGDB.

Segue o código abaixo e, logo após, a explicação. Fique atento à identação (colunas) das instruções!

Código

       IDENTIFICATION DIVISION.
       PROGRAM-ID. MultiplicacaoNumeros.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 Num1 PIC 9(5).
       01 Num2 PIC 9(5).
       01 Produto PIC 9(10).
       01 Resposta PIC X(15) VALUE SPACE.

       PROCEDURE DIVISION.
           DISPLAY "Digite o primeiro número: ".
           ACCEPT Num1.

           DISPLAY "Digite o segundo número: ".
           ACCEPT Num2.

           MULTIPLY Num1 BY Num2 GIVING Produto.

           MOVE FUNCTION NUMVAL (Produto) TO Resposta.

           DISPLAY "O produto dos números é: " Resposta.

           STOP RUN.

Teste

Digite o primeiro número: 
10
Digite o segundo número: 
15
O produto dos números é: 000000150

Explicação do Código

1. Começamos definindo a identificação do programa, com o nome MultiplicacaoNumeros.
2. Logo após definimos duas variáveis para armazenar os números digitados pelo usuário, Num1 e Num2.
3. Definimos também uma variável Produto para armazenar o resultado da multiplicação.
4. Usamos então a instrução ACCEPT para receber os números digitados pelo usuário.
5. Com a instrução MULTIPLY realizamos o cálculo do produto dos dois números e armazenamos o resultado na variável.
6. Usamos então a função NUMVAL para converter o valor de Produto em uma representação de texto, que é armazenada na variável Resposta.
7. Finalmente, exibimos a mensagem “O produto dos números é: ” seguida pelo valor armazenado em Resposta.
8. O programa finaliza com a instrução STOP RUN.

É isso aí! Nos próximos artigos e tutoriais veremos mais programas e dicas da linguagem Cobol.

Até!

O post Programa que multiplica dois números em Cobol apareceu primeiro em Bóson Treinamentos em Ciência e Tecnologia.