6 lines
158 B
QBasic
6 lines
158 B
QBasic
100 rem interest rate program page 33
|
|
110 read m,d,p,n
|
|
300 let r= m * d /(p*(n+1)) * 200
|
|
400 print "percent interest is",r
|
|
500 data 12, 320, 3000, 36
|
|
600 end
|