Multiplication Table
Problem Description
Print multiplication table for a given number.
Expected Output
Input: 5 -> Shows 5x1=5 through 5x10=50
Hints
Use PERFORM with MULTIPLY.
Solution
IDENTIFICATION DIVISION.
PROGRAM-ID. MULTABLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM PIC 9(2).
01 WS-COUNTER PIC 9(2).
01 WS-RESULT PIC 9(4).
PROCEDURE DIVISION.
DISPLAY "ENTER A NUMBER: ".
ACCEPT WS-NUM.
DISPLAY "MULTIPLICATION TABLE:".
PERFORM VARYING WS-COUNTER FROM 1 BY 1
UNTIL WS-COUNTER > 10
MULTIPLY WS-NUM BY WS-COUNTER GIVING WS-RESULT
DISPLAY WS-NUM " X " WS-COUNTER " = " WS-RESULT
END-PERFORM.
STOP RUN.
Explanation:
MULTIPLY A BY B GIVING C leaves A and B unchanged.