SetTextStyle(1, 0, 1);

while (action<>6) do {6=выход}

begin

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

Paint(n,n1,alpha); {выводим график}

action: =Menu(action); {считываем пункт меню}

if (action=1) then Info; {информация}

if (action=2) then LoadData(n,n1,alpha); {считываем из файла}

if (action=3) then

begin

n: = ChangeN(1); {изменяем показатель преломления 1}

SaveData(n,n1,alpha);

end;

if (action=4) then

begin

n1: = ChangeN(2); {изменяем показатель преломления 2}

SaveData(n,n1,alpha);

end;

if (action=5) then alpha: = ChangeAl(n,n1,alpha); {изменяем угол падения}

end;

CloseGraph; {закрываем графический режим}

end;

begin

MainCycle;

end.

ИСПОЛЬЗУЕМАЯ ЛИТЕРАТУРА

1. Фаронов В.В. "Турбо Паскаль 7.0. Начальный курс. " Учебное издание - М.: Нолидж, 2000, 575 с.

2. Н. Культин "TurboPascal в задачах и примерах" - С.: БХВ-Петербург, 2004,256 с.

3. Ахманов С. Г "Физическая оптика. Учебник (Ахманов)" - С.: МГУ, 2004, 213 с.

4. Федоров А. "Особенности программирования на BorlandPascal" - Киев: Диалектика, 1994, 144 с.