Given: 01 A PIC 999V999 VALUE 2. 01 B PIC 999 VALUE 22. 01 C PIC 99V99 VALUE 4.

Question

         Given:          01   A   PIC 999V999 VALUE 2.         01   B   PIC 999     VALUE 22.         01   C   PIC 99V99   VALUE 4.         01   X   PIC 99V9    VALUE 0.          What is the value of X after each of the following statements?                  A. COMPUTE X = B / 4 + A ** 3.           B. COMPUTE X = (25 + A) / 2 - C.           C. COMPUTE X ROUNDED = B + 7.39 + A.           E. DIVIDE B BY C GIVING A REMAINDER X.             GIVEN:         01  A  PIC 99 VALUE 30.         01  B  PIC 99 VALUE 5.         01  X  PIC 99 VALUE 0.         ............             COMPUTE X = A * B               ON SIZE ERROR  DISPLAY 'ERROR'.            ADD B TO X.            DISPLAY X.          F. DISPLAY THE OUTPUT FOR THE ABOVE SEGMENT:               G. CONSTRUCT ONE MOVE STATEMENT TO INITAILIZE THE DATA-NAMES            Unit-in, Price-in, Cost-in TO THE NUMERIC VALUE OF ZERO.  

Explanation / Answer

GIVEN DATA:

01 A PIC 999V999 VALUE 2.

01 B PIC 999 VALUE 22.

01 C PIC 99V99 VALUE 4.

01 X PIC 99V9 VALUE 0.

The value of X after each of the following staments:

(A) COMPUTE X=B/4+A**3.

IDENTIFICATION DIVISION.

PROGRAM-ID. COMPUT.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 A PIC 999V999 VALUE 2.

01 B PIC 999 VALUE 22.

01 C PIC 99V99 VALUE 4.

01 X PIC 99V9 VALUE 0.

PROCEDURE DIVISION.

COMPUTE X = B / 4 + A * 3. > CALCULATE 22/4+ A^3 i.e., 5.5+8=13.5

DISPLAY X.

STOP RUN.

OUTPUT:

13.5

(B) COMPUTE X = (25 + A) / 2 - C.

IDENTIFICATION DIVISION.

PROGRAM-ID. COMPUT.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 A PIC 999V999 VALUE 2.

01 B PIC 999 VALUE 22.

01 C PIC 99V99 VALUE 4.

01 X PIC 99V9 VALUE 0.

PROCEDURE DIVISION.

COMPUTE X = (25 + A) / 2 - C. *> CALCULATE FIRST PARANTHESE (27 /2)=13.5)-4=09.5

DISPLAY X.

STOP RUN.

OUTPUT:

09.5

(C) COMPUTE X ROUNDED = B + 7.39 + A.

IDENTIFICATION DIVISION.

PROGRAM-ID. COMPUT.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 A PIC 999V999 VALUE 2.

01 B PIC 999 VALUE 22.

01 C PIC 99V99 VALUE 4.

01 X PIC 99V9 VALUE 0.

PROCEDURE DIVISION.

COMPUTE X ROUNDED = B + 7.39 + A. *> CALCULATE 22+7.39+2=31.39 RESULT VALUE IS ROUNDED i.e., ROUND(31.39)=31.5

DISPLAY X.

STOP RUN.

OUTPUT:

31.5

(E) DIVIDE B BY C GIVING A REMAINDER X.

IDENTIFICATION DIVISION.

PROGRAM-ID. COMPUT.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 A PIC 999V999 VALUE 2.

01 B PIC 999 VALUE 22.

01 C PIC 99V99 VALUE 4.

01 X PIC 99V9 VALUE 0.

PROCEDURE DIVISION.

DIVIDE B BY C GIVING A REMAINDER X. *> CALCULATE A=B/C, BUT A IS THE CONSTANT VALUE , SO CAN NOT ASSIGN SAME A VARIABLE SO THAT RESULT IS 0

DISPLAY X.

STOP RUN.

OUTPUT:

00.0

SECOND PROGRAM

IDENTIFICATION DIVISION.

PROGRAM-ID. COMPUT.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 A PIC 99 VALUE 30.

01 B PIC 99 VALUE 5.

01 X PIC 99 VALUE 0.

PROCEDURE DIVISION.

COMPUTE X = A * B

ON SIZE ERROR DISPLAY 'ERROR'. *> IT IS CALCULATE X=150, BUT X PIC 99 SO NOT COMPETABLE, THEN RESULT IS ERROR

ADD B TO X. *> B=5, THE X=5 RESULT 05

DISPLAY X.

STOP RUN.

OUTPUT:

ERROR

05

Related Questions

Navigate

• Browse (All)
• Browse G
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.