^1]1еСБИРАЕТСЯЕСМЕРПРОФИПЯДЛЯКАЖДргиВАРИАНТАСетНИЯОПРЕ)
Gotoxy(4,10); write(>ДEЛЯETCЯ МИНИМАЛЬНОЕ РАССТОЯНИЕ МЕЖДУ ЦЕНТРАМИ ТЯЖЕСТИ BET);
Gotoxy(4,ll); write (‘ВЕЙ И МАКСИМАЛЬНОЕ РАССТОЯНИЕ МЕЖДУ УЗЛАМИ РЕШЕТКИ. ‘);
Gotoxy(4,12); write(‘ПРОГРАММА НАПИСАНА НА ЯЗЫКЕ ПАСКАЛЬ В 1998 г.’); gotoxy(4,13);
Write(‘ АВТОРЫ: МАКАРОВ А. А., МАКАРОВА Н. А. ‘); repeat
Key:=readkey; if key=chr(27) then
Begin break; end;
Unti1 fa1se;
EM;
Procedure Chapka; Begin
New_win(1,1,80,25,1);
Wind1(2,19,78,24,3,0,’y’,1);
GdCXY(3,2);
Write(‘ Для ввода данных установите курсор на соответствующую позицию с помощью’); GdCXY(3,3); write(‘стрелок "вверх" и "вниз" и нажмите ENTER. Для
Того чтобы исправить оши-‘);
GCTCXY(3,4);
Write(‘бочно введенное данное, подведите курсор и повторите ввод.’); GOTOXY(3,5);
Write(‘ Для окончания ввода нажмите ESC. ‘);
^^31(2,4,78,16,3,0,’^); textco1or(O); gotoxy(3,2); write(
Gotoxy(3,3); write(
1. УСИЛИЕ СЖАТИЯ, кг ‘);
Gotoxy(3,4); write(
Gotoxy(3,5); write(
Gotoxy(3,6); • write(
Gotoxy(3,7); write(
2. РАСЧЕТНАЯ ДЛИНА, см ‘);
Gotoxy(3,8);