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

UptoLike

' 4. СЕЧЕНИЕ ИЗ ДВУХ ШВЕЛЛЕРОВ А =
',ЬЬС4]:12:2);
gotoxy(3,9);
write(
'——————————————————————————————
———————');
gotoxy(3,10);
write( ' 5.
МИНИМАЛЬНОЕ РАССТОЯНИЕ МЕЯЩУ Ц.Т. ВЕТВЕЙ
b
= ',ЬЬС5]:12:2);
gotoxy(3,ll);
write(
'———————————————————————————————————');
gotoxy(3,12); write(
'6.МАКСИМАЛЬНОЕ РАССТОЯНИЕ МЕЭДУ УЗЛАМИ РЕШЕТКИ
1= ',ЬЬ[б]:12:2);
repeat
key:=readkey;
if key=chr(60) then begin
dok; Quite; exit; end;
if key=chr(27) then
begin halt(l); end; until
false;
End;
begin
textbackground(O);
clrscr;
assign (fl/dat5.txt');
reset(fl);
for i:=l to 23 do
read(fl,a[i3);
for i:=l to 23 do