Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $ SET SOURCEFORMAT"FREE"
- IDENTIFICATION DIVISION.
- PROGRAM-ID. Multiplier.
- AUTHOR. Michael Coughlan.
- * Example program using ACCEPT, DISPLAY and MULTIPLY to
- * get two single digit numbers from the user and multiply them together
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Num1 PIC 9 VALUE ZEROS.
- 01 Num2 PIC 9 VALUE ZEROS.
- 01 Result PIC 99 VALUE ZEROS.
- PROCEDURE DIVISION.
- DISPLAY "Enter first number (1 digit) : " WITH NO ADVANCING.
- ACCEPT Num1.
- DISPLAY "Enter second number (1 digit) : " WITH NO ADVANCING.
- ACCEPT Num2.
- MULTIPLY Num1 BY Num2 GIVING Result.
- DISPLAY "Result is = ", Result.
- STOP RUN.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement