Учебное пособие: Разработка компьютерной программы на языке Паскаль для проведения простого теплофизического расчета

tm100:=exp0(-Pd*fo)*(((Bi+1)/Bi)-x)+(A3*exp0(-Afo)-((A2-A3)/A-Pd)*exp(-A*fo)-exp0(-Pd*fo))*(((Bi+2)/Bi)-x*x);

A:=((10*Bi)/D)*(Bi*(3*k+1)+12*k);

A2:=20*(k-1)*Bi*(Bi+3)*D^(-1);

A3:=(1/(2*D))*(Bi*Bi*(7*k+18)+5*Bi*(7*k+13)+60*(k+1));;

tm100:=abs(round(tm100*10000)/10000.0);

x:=0.95;

tm095:=exp0(-Pd*fo)*(((Bi+1)/Bi)-x)+(A3*exp0(-Afo)-((A2-A3)/A-Pd)*exp(-A*fo)-exp0(-Pd*fo))*(((Bi+2)/Bi)-x*x);

A:=((10*Bi)/D)*(Bi*(3*k+1)+12*k);

A2:=20*(k-1)*Bi*(Bi+3)*D^(-1);

A3:=(1/(2*D))*(Bi*Bi*(7*k+18)+5*Bi*(7*k+13)+60*(k+1));;

tm095:=abs(round(tm095*10000)/10000.0);

o_rptngt[i]:=-lam*(t0-tc)*(tm100-tm095)/r/0.05;

for j:=1 to numx do begin

x:=o_pwtp[j];

o_masF [i,j]:=exp0(-Pd*fo)*(((Bi+1)/Bi)-x)+(A3*exp0(-Afo)-((A2-A3)/A-Pd)*exp(-A*fo)-exp0(-Pd*fo))*(((Bi+2)/Bi)-x*x);

A:=((10*Bi)/D)*(Bi*(3*k+1)+12*k);

A2:=20*(k-1)*Bi*(Bi+3)*D^(-1);

A3:=(1/(2*D))*(Bi*Bi*(7*k+18)+5*Bi*(7*k+13)+60*(k+1));;

o_masF [i,j]:=abs(round(o_masF [i,j]*10000)/10000.0);

end;

end;

p1:=o_rptngt[1]; if abs(p1)<1e-6 then p1:=1;

for i:=1 to numfo do

o_rptngt1[i]:=o_rptngt[i]/p1;

if m=0 then begin

for i:=1 to numfo do begin

tm:=o_masF [i,1]+o_masF [i,numx];

for j:=2 to numx-1 do

if (j mod 2)=0 then