Thursday 27 February 2014

COBOL program to perform division of two numbers..

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
     02 B PIC 9(2).
     02 QUO PIC 9(2)V99.
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER THE TWO NUMBER".
     ACCEPT A.
     ACCEPT B.
     COMPUTE QUO = A + B.
     DISPLAY "QUOTIENT=", QUO.
     STOP RUN.

No comments:

Post a Comment