Лабораторная работа: Расчёт зоны загрузки

t[16]:=tb;

for i:=1 to 16 do

begin

write(f,t[i]:2:2);

write(f,' ');

end;

writeln(f);

z:=0;

j:=0;

while t[15]<=tm do

begin

j:=j+1;

for i:=2 to 15 do

t1[i]:=lamdas*hz/(cs*ps*u)*((t[i+1]-2*t[i]+t[i-1])/sqr(hr))+t[i];

t1[1]:=t1[2];

for i:=1 to 15 do t[i]:=t1[i];

if j mod 10=0 then

begin

for i:=1 to 16 do

begin

write(f,t[i]:2:2);

write(f,' ');

end;

writeln(f);

end;

z:=z+hz;

end;

close(f);

assign(f,'davl.txt');