Programa que multiplica dois números em Cobol
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
- Começamos definindo a identificação do programa, com o nome MultiplicacaoNumeros.
- Logo após definimos duas variáveis para armazenar os números digitados pelo usuário, Num1 e Num2.
- Definimos também uma variável Produto para armazenar o resultado da multiplicação.
- Usamos então a instrução ACCEPT para receber os números digitados pelo usuário.
- Com a instrução MULTIPLY realizamos o cálculo do produto dos dois números e armazenamos o resultado na variável.
- 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.
- Finalmente, exibimos a mensagem “O produto dos números é: ” seguida pelo valor armazenado em Resposta.
- 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é!