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

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

К-во Просмотров: 389
Бесплатно скачать Лабораторная работа: Расчёт зоны плавления