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

tempstr: string;

begin

{находим максимальные значения экранных координат}

mx: =GetMaxX;

my: =GetMaxY;

{пересчитываем угол преломления, находим радианные значения углов}

alpha1: =ReCalc(n, n1, alpha);

radalpha: =alpha*PI/180;

radalpha1: =alpha1*PI/180;

if (cos(radalpha) <>0.0) then

delta: = (my/3) *sqrt(1/sqr(cos(radalpha)) - 1)

else

delta: = 100000; {если косинус равен 0 - луч лежит на границе}

if (cos(radalpha1) <>0.0) then

delta1: = (my/3) *sqrt(1/sqr(cos(radalpha1)) - 1)

else

delta1: =-100000; {если косинус равен 0 - луч лежит на границе}

SetColor(White);

SetTextStyle(8, 0, 1);

{выводим n,alpha,n1,alpha1}

Str(n: 6: 4, tempstr);

OutTextXY(3, round(2*my/3-40), concat('n= ', tempstr));

Str(alpha: 2: 0, tempstr);

OutTextXY(3, round(2*my/3-20), concat('alpha= ', tempstr));

Str(n1: 6: 4, tempstr);

OutTextXY(3, round(2*my/3), concat('n1= ', tempstr));

Str(alpha1: 2: 0, tempstr);

OutTextXY(3, round(2*my/3+20), concat('alpha1= ', tempstr));

{выводим рамку}