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

UptoLike

ВУЗ: 

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

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

Рубрика: 

begin
window(1,1,80,25);
textbackground(O);
textcolor(O); clrscr;
textbackground(col_f); for
i:=yl to y2 do for
j:=(xl+l) to (x2-l) do
begin
gotoxyOM);
write('I'); end;
END;
Procedure VvodWindow(xl,yl,x2,y2,coll,co!2:byte);
Begin
Window(xl,yl,x2,y2);
TextColor(col2);
TextBackGround(coll); clrscr;
End;
procedure Nachalo;
Begin
new_win(l,1,80,25,1);
windl(8,6,71,20,3,0,'y',3);
gotoxy(7,3);
write
('ПРОГРАММА ПРЕДНАЗНАЧЕНА ДЛЯ ПОДБОРА СТАЛЬНОЙ
ЦЕНТРАЛЬ
-');
gotoxy(4,4); write
('НО
-
СЖАТОЙ КОЛОННЫ СПЛОШНОГО СЕЧЕНИЯ.ПОДБИРАЕТСЯ
СЕМЬ ВА
-');
gotoxy(4,5); write
('РИАНТОВ СЕЧЕНИЯ.СЕЧЕНИЕ СОСТОИТ ИЗ
РАВНОПОЛОЧНЫХ УГОЛКОВ');
gotoxy(4,6); write('B
РЕЗУЛЬТАТЕ РАСЧЕТА ВВДАЮТСЯ ОПИСАНИЯ
ВАРИАНТОВ,ТО ЕСТЬ');
gotoxy(4,7); write
('КАКОЕ СЕЧЕНИЕ И ИЗ СКОЛЬКИХ УГОЛКОВ ОНО
СОСТОИТ, А ТАКЖЕ');
gotoxy(4,8); write
('ПЛОЩАДЬ ОДНОГО УГОЛКА. ПО ДАННОЙ ПЛОЩАДИ И
СОРТАМЕНТУ ВЫ');
gotoxy(4,9);

Страницы