Учебное пособие: Разработка компьютерной программы на языке Паскаль для проведения простого теплофизического расчета

var

i,j: integer;

valcode: integer;

po,m,am,tc,t0,r,qv,lam,fo,x,tm,de,he,tm100,tm095,p1:real;

begin

m:=0;

if o_parcal[2]='Cylinder' then m:=1;

if o_parcal[2]='Ball' then m:=2;

am:=(m+1)*(m+5)/2;

val(o_parcal[9],qv,valcode);

val(o_parcal[7],t0,valcode);

val(o_parcal[6],tc,valcode);

val(o_parcal[5],lam,valcode);

val(o_parcal[8],r,valcode);

val(o_parcal[3],de,valcode);

val(o_parcal[4 ],he,valcode);

writeln(' am= ',am:5:2,' qv= ',qv:5:2,o_razm [9],' r= ',r:5:2,o_razm [8]);

writeln(' de= ',de:5:2,o_razm [3],' he= ',he:5:2,o_razm [4 ]);

writeln(' t0= ',t0:5:2,o_razm [7],' tc= ',tc:5:2,o_razm [6],' lam= ',lam:5:2,o_razm [5]);

po:=qv*r*r/lam/(tc-t0);

k:=R2/R1

Bi:=2;

fo:=0.1;

R1:=0.1;

R2:=0.12;

Pd:=5;

writeln(' Po= ',po:12:5);

for i:=1 to numfo do begin

fo:=o_Fur[i];