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

UptoLike

ВУЗ: 

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

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

Рубрика: 

write( _
' 1. БАЛКА ИЗ ДВУТАВРА ПО ГОСТ 8239
-
#Г С
W
= ',ЬЬШ:12:2);
gotoxy(3,3); write(
'——————————————————————————————————————————————————————————');
gotoxy(3,4); write( ' 2.
БАЛКА ИЗ ДВУТАВРА ПО ТУ 14
-2-24-
72 С
W=
',ЬЬС2]: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(f3,'datl.txt');
reset(f3);
for i:=l to 23 do
read(f3,wCi]); for
i:=l to 23 do
read(f3,c[i]); for
i:=l to 23 do
read(f3,oo[i]); for
i:=i to 60 do
read(f3,wlCi]); for
i:=l to 60 do
read(f3,clCi3); for
i:=l to 60 do

Страницы