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

end

else

begin

priznak: = false;

OutTextXY (0, ch_size * n, s);

end;

if (n = 22) or Eof(f) then

begin

OutTextXY (200, 460, 'Нажмите любую клавишу... ');

repeat until keypressed;

ch: = readkey;

n: = 0;

ClearViewPort;

end;

end;

end;

procedure MainCycle; {основной цикл программы}

var

action: Integer;

n,n1,alpha,sinalpha1: real;

begin

{установка начальных значений}

n: =1.0003; {показатель воздуха}

n1: =1.33; {показатель воды}

alpha: =60; {начальное значение угла падения}

SaveData(n,n1,alpha);

action: =1; {курсор установлен на первом пункте меню}

GraphMode; {гр режим. }

ClearViewPort; {очищаем экран}