fork(3) download 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. calcev.
  3.  
  4.        ENVIRONMENT DIVISION.
  5.  
  6.        DATA DIVISION.
  7.        WORKING-STORAGE SECTION.
  8.        77 opcao PIC 99.
  9.        77 Num1  PIC 99.
  10.        77 Num2  PIC 99.
  11.        77 resultado PIC 99.
  12.  
  13.        PROCEDURE DIVISION.
  14.        MAIN-PARA.
  15.        DISPLAY "====== CALCULADORA EM COBOL ======".
  16.  
  17. 	   DISPLAY "1 - Adicao.".
  18. 	   DISPLAY "2 - Subtracao.".
  19. 	   DISPLAY "3 - Multiplicacao.".
  20. 	   DISPLAY "4 - Divisao.".
  21.        DISPLAY "5 - Sair.".
  22.        DISPLAY "==================================".
  23.  
  24.            ACCEPT opcao.
  25.            ACCEPT Num1. 
  26.            ACCEPT Num2.
  27.  
  28.            500-FINAL.
  29.  
  30.           EVALUATE opcao
  31. 	         WHEN  1 PERFORM 100-SOMA    
  32.              WHEN  2 PERFORM 200-SUB  
  33. 	         WHEN  3 PERFORM 300-MULT
  34.              WHEN  4 PERFORM 400-DIV
  35.           END-EVALUATE.
  36.  
  37.          100-SOMA.
  38.             ADD Num2 Num1 GIVING resultado.
  39.             DISPLAY "Soma: " resultado.
  40.          100-FIM. EXIT.
  41.  
  42.          200-SUB.
  43.             SUBTRACT Num2 FROM Num1 GIVING resultado.
  44.               DISPLAY 'Subtracao: ' resultado.
  45.          200-FIM. EXIT.
  46.  
  47.          300-MULT.
  48.             MULTIPLY Num1 BY Num2 GIVING resultado.
  49.             DISPLAY 'Multiplicacao: ' resultado.
  50.          300-FIM. EXIT.
  51.  
  52.          400-DIV.
  53.             DIVIDE Num1 BY Num2 GIVING resultado.
  54.             DISPLAY 'Divisao: ' resultado.
  55.          400-FIM. EXIT.
  56.  
  57.          500-FINAL.
  58.            STOP RUN.
  59.          500-FIM. EXIT.
Success #stdin #stdout 0s 5344KB
comments (?)
stdin 
2
6
7
stdout 
====== CALCULADORA EM COBOL ======
1 - Adicao.
2 - Subtracao.
3 - Multiplicacao.
4 - Divisao.
5 - Sair.
==================================
Subtracao: 06
Soma: 06
Subtracao: 06
Multiplicacao: 00
Divisao: 00
https://ideone.com/FMtuBW
language:
Cobol (gnucobol 2.2.0)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!