Programa que multiplica dois números em Cobol

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

  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é!

Sobre Fábio dos Reis (1195 Artigos)
Fábio dos Reis trabalha com tecnologias variadas há mais de 30 anos, tendo atuado nos campos de Eletrônica, Telecomunicações, Programação de Computadores e Redes de Dados. É um entusiasta de Ciência e Tecnologia em geral, adora Viagens e Música, e estuda idiomas, além de ministrar cursos e palestras sobre diversas tecnologias em São Paulo e outras cidades do Brasil.
Contato: Website

Escreva um comentário

Seu e-mail não será divulgado


*