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

UptoLike

write(
');
gotoxy(3,9);
write(
'——————————————————————————————
———————');
gotoxy(3,10);
write(
'
)
;
gotoxy(3,ll);
write( ' 3.
ДОПУСТИМАЯ НАГРУЗКА ПО ПРОГИБУ , кг/см
',ЬЬЕЗ]:12:2);
gotoxy(3,12);
write(
');
repeat
key:=readkey;
if key=chr(60) then begin
dok; Quite; exit; end;
if key=chr(27) then
begin halt(l); end; until
false;
End;
begin
textbackground(0);
clrscr;
Nachalo;
textbackground(O);
clrscr; Chapka;