^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);



.