home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s042 / 1.img / INTEREST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-08-24  |  384 b   |  11 lines
  1. 10  INPUT "PRINCIPAL?              $",PRINCIPAL
  2. 20  INPUT "ANNUAL INTEREST RATE(%)? ",ANNUALRATE
  3. 30  INPUT "NUMBER OF MONTHS?        ",MONTHS
  4. 40  MONTHRATE = ANNUALRATE/12
  5. 50  FACTOR = (MONTHRATE/100)+1
  6. 60  PRINT "THE COMPOUNDING FACTOR IS "FACTOR
  7. 70  FOR N = 1 TO MONTHS
  8. 80  PRINCIPAL = PRINCIPAL * FACTOR
  9. 90  PRINT "AFTER MONTH "N"THE NEW PRINCIPAL IS $"PRINCIPAL
  10. 100  NEXT N
  11.