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

UptoLike

ВУЗ: 

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

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

Рубрика: 

ll:=40*ry;
if la>120 then goto 20;
gosub;
si:=n/(2*f*alCi]); if
si>r then goto 20;
bbC4]:=alEi]; bbC5]:=bl;
bb[63:=ll;
110:exit;
end;
procedure prover(i:integer);
begin
Ш
->
readln(aa[i]);
Ш
+>
while ioresultoO do
begin
VvodWindow(20,2,60,2,3,0);
gotoxy(5,l);
write
('надо целое число
;
повторите ввод');
ocno_curs(xxl,yyl,xxl+12,yyl,1,'n');
gotoxy(l,l);
Ш
->
readln(aa[i3);
<8i+>
end;
end;
procedure vvod_dan(num:integer);
begin
VvodWindow(20,2,60,2,3,0);
gotoxy(15,l);
write
('введите данное ');
ocno_curs(xxl,yyl,xxl+12,yyl,1,'n');
gotoxy(l.l);

Страницы