|
News
Lab Schedule
QuickBasic Notes
Fortran Notes
Tutor Room
Winplot Manual
Lab Home
xxxxxxxxxxxxxxxxxx
| |
program interest
c This program computes simple interest.
real I, P, r
integer t
print *, "Enter the amount borrowed (in dollars) :"
read *, P
print *, "Enter the annual interest rate :"
read *, r
print *, "Enter the number of years of the loan :"
read *, t
I = P * r/100 * real(t)
print *
write (*,10) "Principal", "Rate", "# Years", "Interest"
10 format (t5,a,t25,a,t40,a,t55,a)
write (*,20) "$", P, r, "%", t, "$", I
20 format (t5,a,f8.2,t25,f4.2,a,t41,i3,t55,a,f8.2)
end
|
