Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

                       ◄Example►                 ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
'This example uses the EXP function to calculate the growth of a bacterial
'colony over a 15-day period. The program prompts you for an initial
'population and the rate of growth.
 
CLS    'Clear screen.
INPUT "Initial bacterial population"; Colony0
INPUT "Growth rate per day as a percentage of population"; Rate
R = Rate / 100 : Form$ = "##  ###,###,###,###"
PRINT : PRINT "Day        Population"
FOR T = 0 TO 15 STEP 5
    PRINT USING Form$; T, Colony0 * EXP(R * T)
NEXT
 
'Sample Output
'
'Initial bacterial population? 10000
'Growth rate per day as a percentage of population? 10
'
'Day        Population
' 0           10,000
' 5           16,487
'10           27,183
'15           44,817