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

UptoLike

ВУЗ: 

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

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

Рубрика: 

if si>r then goto 60;
bbC63:=a2[i3;
69: i:=0;
70:
i:=i+l;
if i>28 then goto 110;
ry:=sqrt(iy3Ci]/a3Ci]);
la:=le/ry;
if la>120 then goto 70;
gosub;
si:=n/(f*a3Ci3);
if si>r then goto 70;
bb[73:-a3C13;
110:exit; end;
procedure prover(i:integer);
begin
Ш
->
readln(aaCi]);
Ш
+}
while ioresultoO do
begin
VvodWindow(20,2,60,2,3,0);
{VvodWindow(20,1,60,1,5,0);>
gotoxy(5,l);
write('
надо
целое
число
повторите
ввод
');
ocno_curs(xxl,yyl,xxl+12,yyl, 1,' n');
gotoxy(l,l);
Ш
->
readln(aaCi]);
<Si+>
end;
end;
procedure vvod_dan(num:integer);
begin
VvodWindow(20,2,60,2,3,0);

Страницы