Угол падения alpha=60

Показатель преломления n1=1.3300

Угол преломления alpha1=41

Приложение Д

ЭКРАННЫЕ ФОРМЫ

Рисунок Д.1-Вывод реквизитов

Рисунок Д.2-Главное меню

Рисунок Д.3-Информация о преломлении лучей

Рисунок Д.4-Изменение угла падения

Приложение Е

ЛИСТИНГ ПРОГРАММЫ

usesgraph, crt;

function arcsin (x: real): real; {возвращает арксинус угла}

begin

if (x=1) then arcsin: = PI/2 else

if (x=-1) then arcsin: = - 1*PI/2 else

if (x>0) then

arcsin: =arctan(sqrt((x*x) /(1-x*x))) else

arcsin: =-arctan(sqrt((x*x) /(1-x*x)));

end;

function ReCalc(n: real; n1: real; alpha: real): real; {высчитывает угол преломления}

var

radalpha, radalpha1: real; {углы в радианах}

begin

radalpha: =alpha*PI/180;

if ((n*sin(radalpha) /n1) <=1) then