program Oiltank
 
!-----------------------------------------------------
!Compiled by Ted Hertel
!ENGR 225 Fall 2010
!
!This program will calculate the cost of an oil tank in problem 2.17, given the radius
!       Inputs: radius (square meters)
!       Outputs: cost ($)
!-----------------------------------------------------
 
implicit none
real::cost,r,pi
pi = 3.1415
 
!get input
write (*,*) "Enter radius of oil tank"
read (*,*) r
 
!calculate cost
 
cost = (400 * (pi * (r**2) * sqrt (2.0) ) ) + (300 * (2 * pi * r * ((500 - ((pi * (r**3))/3))/(pi * (r**2)))))
 
!write outputs
write (*,*) "Cost of tank with radius r=" , r, " is "
write (*,*) "$" , cost
 
stop
end program Oiltank
 

cHJvZ3JhbSBPaWx0YW5rCgohLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KIUNvbXBpbGVkIGJ5IFRlZCBIZXJ0ZWwKIUVOR1IgMjI1IEZhbGwgMjAxMAohCiFUaGlzIHByb2dyYW0gd2lsbCBjYWxjdWxhdGUgdGhlIGNvc3Qgb2YgYW4gb2lsIHRhbmsgaW4gcHJvYmxlbSAyLjE3LCBnaXZlbiB0aGUgcmFkaXVzCiEgICAgICAgSW5wdXRzOiByYWRpdXMgKHNxdWFyZSBtZXRlcnMpCiEgICAgICAgT3V0cHV0czogY29zdCAoJCkKIS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgppbXBsaWNpdCBub25lCnJlYWw6OmNvc3QscixwaQpwaSA9IDMuMTQxNQoKIWdldCBpbnB1dAp3cml0ZSAoKiwqKSAiRW50ZXIgcmFkaXVzIG9mIG9pbCB0YW5rIgpyZWFkICgqLCopIHIKCiFjYWxjdWxhdGUgY29zdAoKY29zdCA9ICg0MDAgKiAocGkgKiAocioqMikgKiBzcXJ0ICgyLjApICkgKSArICgzMDAgKiAoMiAqIHBpICogciAqICgoNTAwIC0gKChwaSAqIChyKiozKSkvMykpLyhwaSAqIChyKioyKSkpKSkKCiF3cml0ZSBvdXRwdXRzCndyaXRlICgqLCopICJDb3N0IG9mIHRhbmsgd2l0aCByYWRpdXMgcj0iICwgciwgIiBpcyAiCndyaXRlICgqLCopICIkIiAsIGNvc3QKCnN0b3AKZW5kIHByb2dyYW0gT2lsdGFuawo=

NS4wNwo=

5.07