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

UptoLike

ВУЗ: 

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

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

Рубрика: 

begin
ш
->
геасПп
(
ааШ
);
Ш
+>
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[i]);
-C$i+>
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);
if yyl=5 then prover(l); if yyl=7 then
prover(2); if yyl=9 then prover(3); if yyl=ll
then prover(4); if yyl=13 then prover(5); if
yyl=15 then prover(6);
VvodWindow(20,2,60,2,1,0); for
о
:=1 to 40 do
begin
gotoxy(jM); write('!'); end;
window(60,2,61,2); gotoxy(l,l);

Страницы