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

UptoLike

ВУЗ: 

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

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

Рубрика: 

for i:=l to 6 do
if ааШ=0 then fl:=fl+l;
if flod then halt(l);
raschet(flag,flagl,n);
if (flag=0) or (flagl=0) then
begin
new_win(l
f
1,80,25,1);
windl(10,10,70,15,3,0,'y',1);
textcolor(14); GOTOXY(3,3);
if flagO then write('BbicoTa балки более 2 метров'); if flagl=0
then write ('Толщина полки более 40 мм ');
windl(2,20,78,25,3,0
f
'n',1);
textcolor(14);
GOTOXY(10,3);
write
('Для завершения работы нажмите
ESC.');
repeat
if key=chr(27) then
begin halt(l); end; until false;
end;
0:=1; k:=l; new_win(l,1,80,25,1); windl(2,20,78,23,3,0,'y',1);
textcolor(14); GOTOXY(6,2); write('
Стрелка
"
вниз
" -
следующая
страница
,"
вверх
" -
предыдущая страница.');
gotoxy(6,3);
writelnC
Для завершения работы нажмите
ESC
. Для док
-
ументирования
F2.'); chapca;
if n>=10 then begin
for i:=l to 10 do

Страницы