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

UptoLike

delay(1500); End;
Procedure QUITE;
Var Chlichar; o,k:integer; flag,flagl:integer;
Begin
raschet;
new_win(l,1,80,25,1);
windl(25,2,55,4,3,0.'y',l);
gotoxy(12,2);
write
('РЕЗУЛЬТАТ ');
windl(5,22,75,24,3,0,'
у
',1);
gotoxy(7,2);
write
('Для завершения работы нажмите
ESC
. Для документи
-
рования
F2.'); windl
(3,7,77,19,3,0,'у',1);
textcolor(O);
gotoxy(3,2); write(
')
;
gotoxy(3,3); write( ' 1.
ДОПУСТИМАЯ НАГРУЗКА ПО НОРМАЛЬНЫМ
НАПРЯЖЕНИЯМ кг/см
',
ЬЬС
1]:12:2);
gotoxy(3,4);
write(
')
;
gotoxy(3,5);
write(
'—————————————————————————————————
———————');
gotoxy(3,6);
write(
')
;
gotoxy(3,7);
write( '
2. ДОПУСТИМАЯ НАГРУЗКА ПО КАСАТЕЛЬНЫМ
НАПРЯЖЕНИЯМ кг/см
',
ЬЬС
2]:12:2)
;
gotoxy(3,8);