Лабораторная работа: Охлаждение изолированного провода

for i:=1 to n1 do

t[i]:=20;

for i:=n1+1 to n do

t[i]:=250;

hr1:=rg/(n1–1);

hr2:=(ri-rg)/(n-n1–1);

hz1:=0.00001;

assign (f, 'tabl.txt');

rewrite(f);

for i:=1 to n do

begin

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

write (f, ' ');

end;

writeln(f);

l:=round (l1/hz1);

vanna (f, l, alpha1, tv1);

close(f);

assign (f1,'tabl1.txt');

rewrite(f1);

for i:=1 to n do

begin

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

write (f1,' ');

end;

writeln(f1);

l:=round (l2/hz1);

vanna (f1, l, alpha2, tv2);

close(f1);