Assignment #6 - 90A

Assignment #6 - 90A


                        Assignment #6
                        =============
                                               Weight 25
                                               Due March 14 90

   The thermal energy Q, in joules, lost through the walls of a hot
water tank at temperature T1 into a room at temperature T2 over a
time period of t minutes is
                Q = U.A.t.(T1-T2)
where
        Q = quantity of heat in joules
        U = loss coefficient of the hot water tank walls in
            joules per minute per meter squared per degree Celsius
        A = surface area of the tank in meters squared
        t = time in minutes

Write a Pascal program that reports the cumulative heat lost each minute
over a period of ten minutes. The formula above cannot be used for
long lengths of time, because as heat is lost the temperature in the
tank drops and T1 must be adjusted. Read the values for the
temperatures, the loss coefficient, and the surface area from the
input file. You could test your program using the following data :
The temperature in the tank is 50 degrees Celsius, the temperature
in the room is 21 degrees Celsius, the loss coefficient is
0.17 J/min/m2/degree Celsius, and the surface area of the tank
is 4.0 m2.