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

else

tm:=tm+2*o_masF [i,j];

tm:=tm/3/(numx-1);

tm:=abs(round(tm*1000)/1000.0);

o_masrf 1[i]:=abs(tm);

tm:=tm*(t0-tc)+tc;

o_masrf 2[i]:=tm;

o_masrf [i]:=he*de*(tm-t0);

end;

end;

if m=1 then begin

for i:=1 to numfo do begin

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

for j:=2 to numx-1 do

if (j mod 2)=0 then

tm:=tm+4*o_masF [i,j]*2*o_pwtp[j]

else

tm:=tm+2*o_masF [i,j]*2*o_pwtp[j];

tm:=tm/3/(numx-1);

tm:=abs(round(tm*1000)/1000.0);

o_masrf 1[i]:=tm;

tm:=tm*(t0-tc)+tc;

o_masrf 2[i]:=tm;

o_masrf [i]:=he*de*(tm-t0);

end;

end;

if m=2 then

begin

for i:=1 to numfo do