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

UptoLike

ВУЗ: 

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

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

Рубрика: 

var i:integer; begin
if ten='y' then BEGIN
window(1,1,80,25); textbackground(0); textcolor(colt);
gotoxy(xl+l,y2+l); for i:=(yl+l) to (y2+l) do begin
gotoxy(x2+l,i); write('i'); end;
for i:=(xl+l) to (x2+l) do begin
gotoxy(i,y2+l); wrlte('l'); end; END;
window(xl,yl,x2,y2); textbackground(colf); clrscr;
textcolor(colr); gotoxy(2,l); write('|');
for i:=3 to (x2-xl-l) do begin
gotoxy(i,l); write ('-'); end;
gotoxy(x2-xl,l); write Ci'); for i:=2 to (y£-yl) do
begin
gotoxy(2,i); write('l'); gotoxy(x2-xl,i);
writeC '); end;

Страницы