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

UptoLike

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

Рубрика:

end;

for i:=n+l to 10*o do

begin

vvodwindow(2,(6+k),78,(6+k),3,0);

gotoxy(l.l);

write(' ' +

>);

R:=k+l; end; end; k:=l; end;

vvodwindow(2,17,78,17,3,0);

gotoxy(l,l); write(

' ———————————————————————————————————————————————————————————————————————');

if key=chr(60) then begin

dok; Quite; exit; end;

if key=chr(£7) then

begin

halt(l); end;

until false; End;

begin

textbackground(0);

clrscr; Nachalo;

textbackground(O);

clrscr;

Chapka;

xxl:=64;

yyl:=5;