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

UptoLike

readln(nom_f);
vvodwindow(49,16,61,16,7,0);
gotoxy(l,l); write(nom_f);
assign(f
2,
nom_f); rewrite(f2);
writeln(f2,'
ИСХОДНЬЕ
ДАННЬЕ
');
writeln(f2,
'————————————————————————————————————————');
writeln(f2
f
' 1.
ЗНАЧЕНИЕ ВЫСОТЫ СТЕНКИ БАЛКИ В СМ
',ааС1]:10:1,' ');
writeln(f2,
'—————————————————————————————
———————————');
writeln(f2, ' 2.
ЗНАЧЕНИЕ ТОЛЩИНЫ СТЕНКИ БАЛКИ В СМ
',ааС2]:10:1,' ');
writeln(f2,
'———————————————————————————————————');
writeln(f2, ' 3.
ЗНАЧЕНИЕ ШИРИНЫ ПОЯСА БАЛКИ В СМ
',ааСЗ]:10:1,' ');
writeln(f2,
'——————————————————————————————————————————————————————————');
writeln(f2, ' 4.
ЗНАЧЕНИЕ ТОЛЩИНЫ ПОЯСА БАЛКИ В СМ
' ,ааШ :10:1/ ');
writeln(f2,
'——————————————————————————————————————————————————————————————————————————————————————');
writeln(f2,
' 5.
ЗНАЧЕНИЕ ПРОЛЕТА БАЛКИ В
CM
',ааС5]:10:1,' ');
wrlteln(f2,
'———————————————————————————————————');
writeln(f2,