Question

How to calculate simple interest in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT_NUMBERS.
DATA DIVISION.
    WORKING-STORAGE SECTION.
      77 PRINCIPALAMOUNT PIC 9(5).                                      
      77 RATE            PIC 9(2).                                      
      77 YEARS           PIC 9(2).                                      
      77 SIMPLEINTEREST  PIC 9(4).     
PROCEDURE DIVISION.
    ACCEPT PRINCIPALAMOUNT.                                             
    ACCEPT RATE.                                             
    ACCEPT YEARS.                                             
    COMPUTE SIMPLEINTEREST = (PRINCIPALAMOUNT * RATE * YEARS) / 100                       
    DISPLAY "SIMPLE INTEREST: " SIMPLEINTEREST
STOP RUN.


*> STDIN
*>    30000
*>    4
*>    3


*> run:
*>
*> SIMPLE INTEREST: 3600
*>

 

70+ SQL courses for beginners and professionals