Лабораторная работа: Расчёт зоны загрузки

begin

clrscr;

dsh:=0.12;

n:=100;

teta:=17.67;

ps:=970;

l:=0.12;

h:=0.015;

hg:=0.011;

cs:=1940;

q:=0.0457;

tb:=235;

tm:=140;

ts:=20;

tsh:=130;

f1:=0.25;

f2:=0.5;

k:=0.3;

p0:=5;

lamdas:=0.18;

w:=l-hg;

vb:=3.14*n*dsh/60;

u:=q/(h*w*ps);

fi:=arctan(u*sin(teta*3.14/180)/(vb-u*cos(3.14*teta/180)));

hr:=0.001;

hz:=0.0001;

assign(f,'lab4t1.txt');

rewrite(f);

for i:=1 to 15 do