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

UptoLike

gotoxy(15,l); write('
введите
данное
');
ocno_curs(xxl,yyl,xxl+12,yyl,1,'n');
gotoxy(l,l);
if yyl=6 then prover(l); if
yyl=10 then prover(2); if yyl=14
then prover(3);
VvodWindow(20,2,60,2,1,0); for
o:=l to 40 do begin
gotoxy(j,l);
writed');
end;
window(60,2,61,2);
gotoxy(l,l);
write('I');
n:=aaCl]; le:=aa[2];
r:=aaC3]; end;
procedure dok; Begin if
n=0 then begin
new_Win(l,1,80,25,1);
windl(18,8,62,15,3,0,'y',3);
gotoxy(9,3);
write('B
документировании нет смысла:');
gotoxy(5,4); write
(' данных нет');
gotoxy(5,5);
write
(' Если хотите получить пустой документ');
gotoxy(6,6);
write
(' нажмите
ENTER
,если не нужен
- ESC');
repeat