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

OutTextXY(0,60, 'отмена - ESC');

end;

function ChangeAl(n: real; n1: real; alpha: real): real;

var

ch: char;

alpha0: real;

begin

{запоминаем начальное значение угла на случай отмены}

alpha0: =alpha;

while (true) do

begin

ClearViewPort;

Paint(n,n1,alpha);

OutTextChangeAl;

ch: = readkey;

if (ch = #72) then alpha: =alpha-1;

if (ch = #80) then alpha: =alpha+1;

if (alpha = 90) then alpha: = 89;

if (alpha = - 1) then alpha: = 0;

if (ch = #13) then

begin

SaveData(n,n1,alpha); {сохраняем данные}

ChangeAl: = alpha;

break;

end;

if (ch = #27) then

begin

ChangeAl: = alpha0;

break;