Category Archives: Автоматизация

Write(‘Для завершения работы нажмите ESC. Для документи­рования F2.’)

Windl(3,6,77,20,3,0,’yl#1);

Textcolor(O); gotoxy(3,2)

Write( ‘ 1. СЕЧЕНИЕ ИЗ ОДНОГО УГОЛКА ПЛОЩАДЬЮ А = ‘,ЬЬС1]: 12:2);

Write( ‘

— ‘);

Gotoxy (3,4);

Write( ‘ 2. ТАВРОВОЕ СЕЧЕНИЕ ИЗ ДВУХ УГОЛКОВ ПЛОЩАДЬЮ А= ‘,ЬЬС2]: 12:2) ;

Gotoxy(3,5); write(

‘ ‘);

Gotoxy(3,6)

Write ( ‘ 3. КРЕСТОВОЕ СЕЧЕНИЕ ИЗ ДВУХ "УГОЛКОВ А = ‘,bb[33:12:2);



.