Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program to print numbers format using cobol

Critics Rating:

Users Rating:

* PROGRAM TO PRINT NUMBERS FORMAT

*********************************

   IDENTIFICATION DIVISION.

   PROGRAM-ID.

   ENVIRONMENT DIVISION.

   DATA DIVISION.

   WORKING-STORAGE SECTION.

   77 N PIC 9(2).

   77 I PIC 9(2).

   77 R PIC 9(2).

   77 J PIC 9(2).

   77 K PIC 9(2).

   77 S PIC 9(2) VALUE 1.

   77 P PIC Z(2).

   PROCEDURE DIVISION.

   MAIN-PARA.

      DISPLAY " ENTER N VALUE ".

      ACCEPT N.

      DISPLAY (1 , 1) ERASE.

      MOVE 1 TO COL.

      PERFORM X-PARA VARYING I FROM 1 BY 1 UNTIL I > N.

      STOP RUN.

   X-PARA.

      COMPUTE R = 40 - 3 * I.

      MOVE I TO LIN.

      PERFORM B-PARA R TIMES.

      MOVE R TO COL.

      PERFORM Y-PARA VARYING J FROM 1 BY 1 UNTIL J > I.

   B-PARA.

      COMPUTE COL = COL + 1.

   Y-PARA.

      IF (J = 0 OR I = 0)

       MOVE 1 TO S

      ELSE

       COMPUTE S = S * (I - J + 1) / J

       MOVE S TO P

       DISPLAY (LIN , COL) P.

      COMPUTE COL = COL + 1.

Courtesy, Source, References & Regards: Kishore AVGK

While using this site, you agree to have read and accepted our terms of use and privacy policy.
Copyright@2009-2011 by KuGuNi.com. All Rights Reserved.