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

UptoLike

<
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]);
Ш
+>
end;
end;
procedure vvod_dan(num:integer);
begin
VvodWindow(20,2,60,2,3,0);
gotoxy(15,1); write('
введите
данное
');
ocno_curs(xxl,yyl,xxl+12,yyl,1,'n');
gotoxy(l.l);
if yyl=6 then prover(l); if yyl=10
then prover(2); if yyl=14 then
prover(3); VvodWindow(20,2,60,2,1,0);
for
з
:=1 to 40 do begin
gotoxy(j.l);
write('i');
end;
window(60,2,61,2);
gotoxy(l,l);
writed');
п
:=
ааШ
;
1
е
:=
ааС
23;
r:=aaC3]; end;
procedure dok;
Begin