Лабораторная работа: Расчёт зоны плавления

P:=Ts;

Plavlenie(j,P,Tb,Ts,Q,LamdaM,Phi,Zav,n,l,m,Cs);

end;

Ts:=25;

Zav:='Zavis. Zpl ot n';

for l:=1 to 5 do begin

n:=l*20;

P:=n;

Plavlenie(j,P,Tb,Ts,Q,LamdaM,Phi,Zav,n,l,m,Cs);

end;

n:=60;

Zav:='Zavis. Zpl ot Q';

for l:=1 to 5 do begin

Q:=l*0.01;

P:=Q;

Plavlenie(j,P,Tb,Ts,Q,LamdaM,Phi,Zav,n,l,m,Cs);

end;

Q:=0.01944;

Zav:='Zavis. Zpl ot LamdaM';

for l:=1 to 5 do begin

LamdaM:=l*0.1;

P:=LamdaM;

Plavlenie(j,P,Tb,Ts,Q,LamdaM,Phi,Zav,n,l,m,Cs);

end;

LamdaM:=0.25;

Zav:='Zavis. Zpl ot m';

for l:=1 to 5 do begin

m:=l*400;

P:=m;