fork download
copy 
  1. IDENTIFICATION DIVISION. 
  2. PROGRAM-ID. HELLO-WORLD. 
  3. AUTHOR. Antonio Neuton da Silva Júnior
  4. DATE-WRITTEN.   03/02/2011.                                      
  5.  
  6. ENVIRONMENT DIVISION. 
  7.  
  8. DATA DIVISION. 
  9. WORKING-STORAGE SECTION.
  10.        77  myvar PIC 999 .
  11.        77  a  PIC 99V999 VALUE 12.236 .
  12.        77  b  PIC 99V99  VALUE ZERO .
  13.        77  c  PIC 9V9    VALUE 3.9 .
  14.        77  d  PIC 9v9    VALUE 2.1 .
  15.  
  16.        PROCEDURE DIVISION.
  17.            display "Por favor insira um número"
  18.  
  19.            DISPLAY "O número é ", myvar
  20.            ADD a TO b ROUNDED
  21.            DISPLAY "b is ", b
  22.            ADD c TO d
  23.            DISPLAY "d is ", d
  24.  
  25. STOP RUN.
  26.  
Success #stdin #stdout 0.01s 3992KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Por favor insira um número
O número é 000
b is 12.24
d is 6.0
https://ideone.com/xsEkp
language:
COBOL 85 (tinycobol-0.65.9)
created:
14 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!