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

radalpha1: =arcsin(n*sin(radalpha) /n1);

ReCalc: =radalpha1*180/PI;

end

else

begin

ReCalc: =arcsin(1) *180/PI;

end;

end;

procedure Recv; {выводит на экран реквизиты пользователя}

var

f: text; {файл содержащий реквизиты пользователя}

n: integer;

s: string;

begin

n: =0;

{открываем файл для чтения}

assign(f, 'recv. txt');

reset(f);

ClearViewPort;

SetTextStyle(8,0,1);

SetColor (White);

{выводим содержимое файла на экран}

while not eof(f) do

begin

n: =n+15;

readln (f,s);

OutTextXY(0, n, s);

end;

{закрываем файл}