Разработка модели технологического процесса получения ребристых труб / RASH / ZRF1

uses crt;
const A=3.7;
m=0.38;
k=0;

var
Co:real;
VremZal,TempZal,Tn,Tf,Bf,Tlikv,Ro1,Ro,C1:real;
T1,T3,x:real;
Le,Ro3,Tevt,Ue:real;
t:Longint;
fil:text;
{”г­ЄжЁп ў®§ўҐ¤Ґ­Ёп ў ¤а®Ў­го б⥯Ґ­м:
ўе®¤ ®б­®ў ­ЁҐ б⥯Ґ­Ё,б ¬  б⥯Ґ­м}
function pow(osnovanie,stepen:real):real;
begin
pow:=exp(stepen*ln(osnovanie));
end;

procedure out(per:real);
begin
Writeln(' ',per);
end;
begin

{Ќ з «м­лҐ ¤ ­­лҐ}

{“¤Ґ«м­ п ⥯«®Ґ¬Є®бвм ®в«ЁўЄЁ „¦/ЉЈ*Љ}
C1:=838;
{Џ«®в­®бвм а бЇ« ў  ЉЈ/¬3}
Ro1:=7000;
{ЏаЁўҐ¤Ґ­­л© а §¬Ґа ®в«ЁўЄЁ}
Ro:=0.004;
{’Ґ¬ЇҐа вга  § «ЁўЄЁ}
TempZal:=1643; {K.}
{’Ґ¬ЇҐаҐвга  «ЁЄўЁ¤гб }
Tlikv:=1473; {K.}
{Co Њ бб  ®в«ЁўЄЁ }
Co:=40; {ЄЈ.}
{Љ®нддЁжЁҐ­в ⥯«®ў®©  ЄЄг¬г«пжЁЁ д®а¬л}
Bf:=1377;
{’Ґ¬ЇҐа вга  д®а¬л }
Tf:=293; {K.}
{“¤Ґ«м­ п ⥯«®в  ЄаЁбв ««Ё§ жЁЁ ®в«ЁўЄЁ}
Le:=215e3; {„¦/ЉЈ}
{Џ«®в­®бвм ®в«ЁўЄЁ}
Ro3:=7500;
{’Ґ¬ЇҐа вга  нўвҐЄвЁЄЁ}
TEvt:=1470; {K.}
{*********************************************************************}
writeln;
writeln;
{‚аҐ¬п § Ї®«­Ґ­Ёп д®а¬л ¬Ґв ««®¬}
VremZal:=A*pow(Co,M);
Tn:=(TempZal+TLikv)/2;
T1:=sqr((C1*Ro1*Ro*(Tn-Tlikv)/(1.128*Bf*(Tn-Tf)))+sqrt(VremZal));
T3:=sqr(Le*Ro3*Ro/(1.13*Bf*(Tevt-Tf))+sqrt(T1));
assign(fil,'$$u$$2.dan');
rewrite(fil);
writeln(round(t1));
writeln(round(t3));
x:=0;
while x<=Ro do begin
{‹Ё­Ґ©­ п бЄ®а®бвм § вўҐа¤Ґў ­Ёп нЄўЁў «Ґ­в­®© Ї«®бЄ®бвЁ ®в«ЁўЄЁ}
Ue:=2*(k+1)*sqr(Bf*Tevt)/(Ro*sqr(sqrt(pi)*Le*Ro3))*
(1/(1+{-pow(}x/Ro{,k+1)}+(1.13*(k+1)*Bf*Tevt/(Le*Ro3*Ro))*sqrt(T1)));
{Ue:=2*(k+1)*sqr(Bf*Tevt)/(Ro*sqr(sqrt(pi)*Le*Ro3))*
(1/(1+pow(x/Ro,k+1)+(1.13*(k+1)*Bf*Tevt/(Le*Ro3*Ro))*sqrt(T1)));}
writeln(fil,ue*100000:2:3);
writeln(ue*100000:2:8,' ⥪г饥 ',x:2:6,' ўбҐЈ® ¤® ',Ro:2:6);
x:=x+0.0001;
end;
close(fil);
end.