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

UptoLike

ВУЗ: 

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

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

Рубрика: 

end;
procedure new_win(xl,yl,x2,
y2,
col_f:byte); begin
window(1,1,80,25);
textbackground(O);
textcolor(O);
clrscr;
textbackground(col_f); for i:=yl to y2 do
for ;h=UlH) to (x2-i) do
begin
gotoxyQ"
Д
);
writed');
end;
END;
Procedure VvodWindow(x1,yl,x2,y2,coll,col£:byte);
Begin
Window(xl,yl,x2,y2);
TextColor(col2);
TextBackQround(col1);
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); writeCHOCrra
СТАЛЬНОЙ СОСТАВНОЙ БАЛКИ ДВУТАВРОВОГО
СИММЕТРИЧНОГО);
gotoxy(4,5); write
Г СЕЧЕНИЯ, СОСТОЯЩЕГО ИЗ ТРЕХ ЛИСТОВ. В
РЕЗУЛЬТАТЕ РАСЧЕТА');
gotoxy(4,6); write
('ОПРЕДЕЛЯЮТСЯ ТРИ МАКСИМАЛЬНЫХ ЗНАЧЕНИЯ
РАВНОМЕРНО'РАСПРЕ');
gotoxy(4,7);
write
('ДЕЛЕННОЙ НАГРУЗКИ:
')
;
gotoxy(4,8);
writeC -
ПО МАКСИМАЛЬНЫМ НОРМАЛЬНЫМ НАПРЯЖЕНИЯМ;
')
;
gotoxy(4,9);
writeC -
ПО МАКСИМАЛЬНЫМ КАСАТЕЛЬНЫМ НАПРЯЖЕНИЯМ;

Страницы