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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

if yyl=6 then prover(l); if yyl=10 then
prover(2); if yyl=14 then prover(3);
YvodWindow(20,2,60,2,1,0); for
з
:=1 to
40 do begin
gotoxy(j,1);
write('!'); end;
window(60,2,61,2);
gotoxyU,!);
write('l'); n:=aa[l];
le:=aa[2]; r:=aa[3];
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
key:=readkey; if key=chr(27)
then EXIT; if key=chr(13) then
break; until false;

Страницы