Question

by using fortran.90
Q)By using Select Case construct, write fortran. 90 program to calculate the heat capacity of air
in J/(mol K) for the range (0-2000), where T is valid only in the range 273 K<T<1800 K.
cp = 28.09+0.1965*10**2* T+0.4799 *10**-5* T**2 - 1.965*10**-9*T**3

Answer 1

PROGRAM HeatCapacity

IMPLICIT NONE

REAL :: Cp, T, T0, Tf

INTEGER :: i , n

T0 = 273

Tf= 1800

n= Tf - T0

do i=1, n

T= T0 + i

Cp = 28.09+(0.1965*10**2)* T+(0.4799 *10**-5)* T**2 - (1.965*10**-9)*T**3

Print *, T, " " ,Cp

end do

End program HeatCapacity