Курсовая работа: Преломление света на границе раздела двух сред

else SetColor (UnSelected);

OutTextXY(0, 4*IV, 'Изменить показатель преломления во 2-ой среде (2) ');

if (number=5) then

SetColor(Selected)

else SetColor (UnSelected);

OutTextXY(0, 5*IV, 'Изменить угол падения (A) ');

if (number=6) then

SetColor(Selected)

else SetColor (UnSelected);

OutTextXY(0, 6*IV, 'Выход (Esc) ');

SetColor(UnSelected);

ch: =ReadKey;

{если нажали esc - выходим}

if (ch = #27) then

begin

Menu: = 6;

break;

end;

{f1}

if (ch = #59) then

begin

Menu: = 1;

break;

end;

if ((ch = 'L') or (ch = 'l')) then

begin

Menu: = 2;

break;

end;