Лабораторная работа: Расчёт зоны плавления
writeln(k,' ','Z=',Z:1:5,' ','sigma=',sigma:1:5,' ','X=',X:1:5,' ','omega=',omega:1:5);
writeln(fo,Z:1:5,' ',Omega:1:5);
readln;
end;
Z:=Z+Zpl/5;
end;close(fo);close(f1);
end;
Begin
clrscr;
Tb:=235;
Ts:=25;
n:=60;
Q:=0.01944;
LamdaM:=0.25;
m:=12000;
Cs:=2010;
Phi:=17.67*pi/180;
j:=true;
Plavlenie(j,P,Tb,Ts,Q,LamdaM,Phi,Zav,n,l,m,Cs);
j:=false;
Zav:='Zavis. Zpl ot Tb';
for l:=1 to 5 do begin
Tb:=l*50;
P:=Tb;
Plavlenie(j,P,Tb,Ts,Q,LamdaM,Phi,Zav,n,l,m,Cs);
end;
Tb:=235;
Zav:='Zavis. Zpl ot Ts';
for l:=1 to 5 do begin