Автоматизация процесса расчета стальных конструкций балочной клетки. Макаров А.А - 131 стр.

UptoLike

Составители:

Рубрика:

end;

procedure vvod_dan(num:integer);

begin

YvodWindow(20,1,60,1,3,0);

gotoxy(15,l); write('

введите

данное

');

ocno_curs(xxl,yyl,xxl+12,yyl,1,'n');

gotoxy(l,l);

if yyl=3 then prover(l); if yyl=5

then prover(2); if yyl=7 then

prover(3); if yyl=9 then prover(4);

if yyl=11 then prover(5); if yyl=13

then prover(6); if yyl=15 then

prover(7); if yyl=17 then

prover(8);

VvodWindow(20,1,60,1,1,0); for j:=l

to 40 do begin

gotoxyQ,!);

write('i');

end;

window(60,1,61,1);

gotoxy(l,l);

write('i'); hw:=aa[l];

tw:=aaC21; bf:=aaC3];

tf:=aa[4]; l:=aa[53;

no:=aaC61; yf:=aaC71;

ry:=aa[81; n:=l; end;