language: COBOL 85 (tinycobol-0.65.9)
date: 103 days 21 hours ago
link:
可見度: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

identification DIVISION. 
PROGRAM-ID. PROGRAM1. 
AUTHOR. Antonio Neuton da Silva Júnior
DATE-WRITTEN.   10/02/2011.   
                                   
 
 
data division. 
WORKING-STORAGE SECTION.
       77  nome   PIC A(010) value "João". 
       77  a      PIC 99V999 VALUE 12.236 .
       77  b      PIC 99V99  VALUE ZERO .
       77  c      PIC 9V9    VALUE 3.9 .
       77  d      PIC 9v9    VALUE 2.1 .
          
       PROCEDURE DIVISION.
          
           IF a < b
                display "A variável nome é",nome 
                ADD a TO b ROUNDED
                DISPLAY "b é ", b
           ELSE 
                ADD c TO d
                DISPLAY "d é ", d
           END-IF.
           
STOP RUN.