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

UptoLike

write СБИРАЕТСЯ НОМЕР УГОЛКА. В ВДДОМ ВАРИАНТЕ СЕЧЕНИЕ СОСТОИТ');
gotoxy(4,10); __
write('ИЗ ОДИНАКОВЫХ УГОЖОВ ПО ГОСТу 8509-93. ИЗ ПРЕДЛОЖЕННЫХ');
gotoxy(4,ll);
write
('ВАРИАНТОВ ВЫБИРАЕТСЯ БОЖЕ ОПТИМАЛЬНЫЙ.ПРОГРАММА НАПИСАНА);
gotoxy(4,12);
write('HA
ЯЗЫКЕ ПАСКАЛЬ В 1998 г.');
gotoxy(4,13);
write
(' АВТОРЫ: МАКАРОВ А.А., МАКАРОВА Н.А.
');
repeat
key:=readkey; if
key=chr(27) then
begin
break;
end;
until false;
End;
Procedure Chapka;
Begin
new_win(l,1,80,25,1);
windl(2,19,78,24,3,0,'y',l);
GOTOXY(3,2);
write
(' Для ввода данных установите курсор на соответ
-
ствующую позицию с помощью');
GOTOXY(3,3);
write
('стрелок "вверх" и "вниз" и нажмите
ENTER
. Для
того чтобы исправить оши
-');
GOTOXY(3,4);
write
('бочно введенное данное, подведите курсор и пов
-
торите ввод.');
GOTOXY(3,5);
write
(' Для окончания ввода нажмите
ESC. ');
windl(2,4,78,16,3,0,'
у
',1); textcolor(O); gotoxy(3,2);
write(
');
gotoxy(3,3);