END IF IF(ABS(T-X(K).LT.ABS(T-X(M)))THEN M=M+1 ENDIF END IF Z=00 DO30I-K.M S=1.0 DO20J-K.M IF(J.NE.I)THEN S=S*(T-X(J)Y(X(I)-X(J) END IE 20 CONTINUE Z=Z+S*Y(I) 30 CONTINUE RETurn END 4.运行结果。(12分) S623.00K>773.00K)=.161056E-01 Kp2(773.00K)=381.032 Pa-I B 1.计算原理（化学原理和计算方法）(12分) 化学反应速率方程： v=-de=ke dt 式中，y为化学反应速率，c为反应物浓度，1为时间，n为反应级数， k为反应速率常数，dcdu为反应物浓府随时间的变化率。 对气相反应 =p1 d 式中，p为反应物分压。 丙边取对数：hv=-当=h+nlhp 将实验所测得不同时间1的反应物分压P数据通过插值和差分法求出反应速率V。计算 nv和p后，用线性回归子程序计算反应级数n和反应速率常数k 2.程序框图(18分) 开始 END IF IF(ABS(T-X(K)).LT.ABS(T-X(M))) THEN K=K-1 ELSE M=M+1 END IF END IF Z=0.0 DO 30 I=K,M S=1.0 DO 20 J=K,M IF(J.NE.I)THEN S=S*(T-X(J))/(X(I)-X(J)) END IF 20 CONTINUE Z=Z+S*Y(I) 30 CONTINUE RETURN END 4．运行结果。（12 分） S(623.00K-->773.00K)=-.161056E-01 Kp2( 773.00K)= 381.032 Pa-1 B 1.计算原理（化学原理和计算方法）（12 分） 化学反应速率方程： n kc t c = − = d d ν 上式中，ν 为化学反应速率，c 为反应物浓度，t 为时间， n 为反应级数， k 为反应速率常数，dc/dt 为反应物浓度随时间的变化率。 对气相反应 n kp t p = − = d d ν 式中， p 为反应物分压。 上两边取对数： k n p t p ) ln ln d d lnν = ln(− = + 将实验所测得不同时间 t 的反应物分压 p 数据通过插值和差分法求出反应速率ν 。计算 lnν 和 lnp 后，用线性回归子程序计算反应级数 n 和反应速率常数 k。 2.程序框图（18 分） 开始