| name | cobol-calculadora |
| description | Skill para criar calculadoras em COBOL usando GnuCOBOL. Use quando precisar criar uma calculadora ou operações matemáticas em COBOL. |
Skill: Calculadora COBOL
Este skill ensina como criar calculadoras em COBOL.
Use-o para criar programas matemáticos básicos.
Quando Usar Este Skill
- Criar um programa COBOL novo
- Implementar operações matemáticas
- Trabalhar com entrada e saída em COBOL
- Declarar e usar variáveis numéricas
Pré-requisitos
GnuCOBOL
brew install gnucobol
sudo apt-get install gnucobol
cobc --version
Estrutura Completa de uma Calculadora
Arquivo: src/CALCULADORA.cbl
******************************************************************
* Programa: CALCULADORA
* Descrição: Calculadora de soma em COBOL
* Autor: Copilot Agent
* Data: 2026
*
* Este programa demonstra:
* - Estrutura básica de um programa COBOL
* - Entrada e saída de dados
* - Operações aritméticas
* - Formatação de números para display
******************************************************************
IDENTIFICATION DIVISION.
******************************************************************
* A IDENTIFICATION DIVISION identifica o programa.
* É obrigatória e deve ser a primeira divisão.
******************************************************************
PROGRAM-ID. CALCULADORA.
AUTHOR. COPILOT-AGENT.
DATE-WRITTEN. 2026.
DATE-COMPILED.
ENVIRONMENT DIVISION.
******************************************************************
* A ENVIRONMENT DIVISION descreve o ambiente de execução.
* Para programas simples, pode conter apenas configurações básicas.
******************************************************************
CONFIGURATION SECTION.
SOURCE-COMPUTER. PC.
OBJECT-COMPUTER. PC.
DATA DIVISION.
******************************************************************
* A DATA DIVISION declara todas as variáveis do programa.
* WORKING-STORAGE SECTION contém variáveis de trabalho.
******************************************************************
WORKING-STORAGE SECTION.
******************************************************************
* Variáveis para os números de entrada
* PIC 9(5) significa: 5 dígitos numéricos (00000 a 99999)
******************************************************************
01 WS-NUMERO-1 PIC 9(5) VALUE ZEROS.
01 WS-NUMERO-2 PIC 9(5) VALUE ZEROS.
******************************************************************
* Variável para o resultado
* PIC 9(6) permite resultados até 999999
******************************************************************
01 WS-RESULTADO PIC 9(6) VALUE ZEROS.
******************************************************************
* Variável formatada para exibição
* Z suprime zeros à esquerda
* Z(5)9 = até 5 zeros suprimidos + 1 dígito obrigatório
******************************************************************
01 WS-RESULTADO-DISPLAY PIC Z(5)9.
******************************************************************
* Constantes para mensagens
******************************************************************
01 WS-LINHA PIC X(40) VALUE ALL "=".
PROCEDURE DIVISION.
******************************************************************
* A PROCEDURE DIVISION contém a lógica do programa.
* É dividida em parágrafos para organização.
******************************************************************
******************************************************************
* INICIO - Parágrafo principal que controla o fluxo
******************************************************************
INICIO.
PERFORM EXIBIR-CABECALHO.
PERFORM LER-NUMEROS.
PERFORM CALCULAR-SOMA.
PERFORM EXIBIR-RESULTADO.
STOP RUN.
******************************************************************
* EXIBIR-CABECALHO - Mostra o título do programa
******************************************************************
EXIBIR-CABECALHO.
DISPLAY WS-LINHA.
DISPLAY " CALCULADORA COBOL".
DISPLAY " Soma de Dois Numeros".
DISPLAY WS-LINHA.
******************************************************************
* LER-NUMEROS - Solicita os números ao usuário
******************************************************************
LER-NUMEROS.
DISPLAY " ".
DISPLAY "Digite o primeiro numero (0-99999): ".
ACCEPT WS-NUMERO-1.
DISPLAY "Digite o segundo numero (0-99999): ".
ACCEPT WS-NUMERO-2.
******************************************************************
* CALCULAR-SOMA - Realiza a operação de soma
******************************************************************
CALCULAR-SOMA.
ADD WS-NUMERO-1 TO WS-NUMERO-2
GIVING WS-RESULTADO.
MOVE WS-RESULTADO TO WS-RESULTADO-DISPLAY.
******************************************************************
* EXIBIR-RESULTADO - Mostra o resultado formatado
******************************************************************
EXIBIR-RESULTADO.
DISPLAY " ".
DISPLAY WS-LINHA.
DISPLAY "RESULTADO DA SOMA".
DISPLAY WS-LINHA.
DISPLAY WS-NUMERO-1 " + " WS-NUMERO-2 " = "
WS-RESULTADO-DISPLAY.
DISPLAY WS-LINHA.
DISPLAY " ".
DISPLAY "Programa encerrado com sucesso!".
Comandos para Compilar e Executar
mkdir -p src
cobc -x -o calculadora src/CALCULADORA.cbl
./calculadora
cobc -x -debug -o calculadora src/CALCULADORA.cbl
cobc -fsyntax-only src/CALCULADORA.cbl
Saída Esperada
========================================
CALCULADORA COBOL
Soma de Dois Numeros
========================================
Digite o primeiro numero (0-99999):
5
Digite o segundo numero (0-99999):
3
========================================
RESULTADO DA SOMA
========================================
00005 + 00003 = 8
========================================
Programa encerrado com sucesso!
Picture Clauses Úteis
* Números inteiros
PIC 9 → 1 dígito (0-9)
PIC 9(5) → 5 dígitos (00000-99999)
PIC 9(10) → 10 dígitos
* Números com sinal
PIC S9(5) → -99999 a +99999
* Números decimais
PIC 9(5)V99 → 5 inteiros + 2 decimais (V é decimal implícito)
PIC 9(3)V9(4) → 3 inteiros + 4 decimais
* Para exibição (suprime zeros)
PIC Z(5)9 → Suprime até 5 zeros, mantém pelo menos 1 dígito
PIC ZZZZ9 → Mesmo que acima
PIC -(4)9 → Como Z, mas mostra sinal negativo
* Texto
PIC X → 1 caractere
PIC X(20) → 20 caracteres
PIC A(10) → 10 letras (apenas alfabético)
Operações Matemáticas em COBOL
* SOMA
ADD A TO B. (B = B + A)
ADD A TO B GIVING C. (C = A + B)
ADD A B C TO D. (D = D + A + B + C)
* SUBTRAÇÃO
SUBTRACT A FROM B. (B = B - A)
SUBTRACT A FROM B GIVING C. (C = B - A)
* MULTIPLICAÇÃO
MULTIPLY A BY B. (B = B * A)
MULTIPLY A BY B GIVING C. (C = A * B)
* DIVISÃO
DIVIDE A INTO B. (B = B / A)
DIVIDE A INTO B GIVING C. (C = B / A)
DIVIDE A BY B GIVING C REMAINDER D.
* COMPUTE (para expressões complexas)
COMPUTE C = A + B.
COMPUTE C = A * B + D / E.
COMPUTE C = (A + B) * (D - E).
Dicas Importantes
- Colunas são críticas - COBOL é sensível a posição
- Pontos são obrigatórios - Toda sentença termina com ponto
- Área A vs Área B - Divisões e parágrafos na A, código na B
- Nomes descritivos - Use prefixos (WS-, etc) e hífens
- Documente tudo - Comentários são bem-vindos em COBOL
Divisão com Tratamento de Erro
A divisão exige verificação de divisão por zero — é a operação mais segura de se implementar com cuidado:
* Variáveis adicionais para divisão
01 WS-RESULTADO-DIVISAO PIC S9(10)V99 VALUE ZEROS.
01 WS-RESULTADO-DIV-DISPLAY PIC -(9)9.99.
******************************************************************
* CALCULAR-DIVISAO - Realiza a operação de divisão
* Verifica divisão por zero antes de calcular
******************************************************************
CALCULAR-DIVISAO.
IF WS-NUMERO-2 = ZERO
DISPLAY " "
DISPLAY "ERRO: Divisao por zero nao e permitida!"
DISPLAY " "
STOP RUN
ELSE
DIVIDE WS-NUMERO-1 BY WS-NUMERO-2
GIVING WS-RESULTADO-DIVISAO
MOVE WS-RESULTADO-DIVISAO
TO WS-RESULTADO-DIV-DISPLAY
END-IF.
⚠️ Nunca divida sem verificar o divisor! Em COBOL, divisão por zero causa abend (encerramento abrupto do programa).
COBOL: 65+ anos e ainda contando! 🖥️
