А8 Программа № 8

program lab_5;

var y,yl,al,bl,cp,ca,cb,ca0,cb0,cr0,kt,tau,dtau,ro:real;

var t,t0,tt,tt0,ttk,xa,k,k0,ft,e,r,H,V,x,vt,cpt,cpa,cpr:real;

var i,j,m:integer;

label 1,10; begin

t0:=301; tau:=6912; ca0:=1.8; cb0:=0; cr0:=10.8;

cpa:=62; q>r:=53;ro:=1000;

k0:=1.84E+5; e:=4.49E+4; h:=-448E+4; tt0:=284;

ttk:=293;kt:=0.320;

tau:=360; V:=0.283; FT:=14.16; cpt:=4.190;

cp:=ca0*cpa+cr0*cpr;

t:=t0; ca:=ca0; cb:=cb0; dtau:=0.01*tau;

for i:=l to 100 do begin

k:=exp(ln(k0)~E/(8.31*t));

r:=k*ca;

ca:=ca-dtau*r;

cb:=cb+dtau*r;

t:=t+dtau*(H*r)/(q)*ro);

if (i=10)or(i=30)or(i=50)or(i=100) then writeln(i,ca,t,cp,r); end;

xa:⁼(ca0-ca)/ca0;

writeln('xa=',xa); end.

А9 Программа № 9

program lab_6;

const n=20;const m=4;

var kl,k2,dt,sl,s2,zm,tsr,edt,za,pa,e,z,p,f:real;

var i:integer;

var c,t:array[l..n] of real;

var al, tmod, fmod: array[l..m] of real;

var 16:text;

begin

assign(16,'c:\tp\oxtlab\16_2.dat');

al[l]:=0; al[2]:=0,03; al[3]:==0.05; al[4]:=0.2;

kl:=0.01; k2:=0.007;

dt:=2;

sl:=0; s2:=0;

reset (16);

for i:=l to n do begin

read(16,t[i],c[i]);

si:=sl+c[i];s2:=s2+c[i]*t[i];end;

zm:=sl*dt;

tsr:=s2/sl; edt:=O; za:=0;pa:=0;

for i:=l to n do begin

e:=c[i]/zm;

edt:=edt+e*dt;

z:=e*(k2/(k2-kl)*exp(-kl*t[i]));

p:=e*(kl/(k2-kl)*exp(-k2*t[i]));

za:=za+dt*z;pa:=pa+dt*p;

{ writeln(i,t[i],c[i]);}

end;

f:=edt-za+pa;

writeln ('tsr(experim)=',tsr,' fs=',f);

writeln ('alfa (model) tsr fs');

for i:=l to m do begin

tmod[i]:=tsr/(l-al[i]);

fmod[i]:=kl*k2*sqr(tmod[i])/((l-al[i])*(l+kl*tmod[i])*(l+k2*tmod[i]));

writeln(al[i],tmod[i],fmod[i]);

end;

close(16); end.

Багров Геннадий Венидиктович

Севодина Галина Ивановна

Кравцова ОКсана Юрьевна

ОБЩАЯ ХИМИЧЕСКАЯ ТЕХНОЛОГИЯ

Методические рекомендации по выполнению лабораторных работ

для студентов специальностей 240701, 240702, 240706, 240901

очной и очно-заочной форм обучения

Редактор Соловьева С.В.

Технический редактор Сазонова В.П.

Подписано в печать 19.09.07. Формат 60×84 1/16

Усл. п.л 3,43. Уч.-изд. л. 3,69.

Печать – ризография, множительно-копировальный аппарат «RISO TR-1510».

Тираж 50 экз. Заказ 2007–54.

Издательство Алтайского государственного

технического университета.

656038, г. Барнаул, просп. Ленина, 46.

Оригинал-макет подготовлен ИИО БТИ АлтГТУ. Отпечатано в ИИО БТИ АлтГТУ.

659305, г. Бийск, ул. Трофимова, 29.

61