home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / INTEREST.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  493 b   |  15 lines
  1. 1 REM - THIS PROGRAM CALCULATES SIMPLE AND COMPOUND INTEREST
  2. 10 PRINT "PROGRAM TO CALCULATE INTEREST OVER 10 YEARS"
  3. 20 PRINT "WHAT IS THE PRINCIPAL AMOUNT";
  4. 30 INPUT P
  5. 40 PRINT"WHAT IS THE RATE OF INTEREST (X.XX)";
  6. 50 INPUT R
  7. 60 PRINT"COMPOUNDED HOW MANY TIMES PER YEAR";
  8. 70 INPUT N
  9. 80 LET R=R/100 : LET A=P*R : LET S=P+A
  10. 90 PRINT : PRINT "YEAR","SIMPLE","COMPOUND"
  11. 100 FOR Y=1 TO 10 : FOR X=1 TO N
  12. 110 LET P=P*(1+R/N) : NEXT X
  13. 120 PRINT Y,S,P : LET S=S+A:NEXT Y
  14. 130 PRINT : END
  15.