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

begin

{драйвер - VGA, режим - VGAHi (640*480) }

gd: = VGA;

gm: = VGAHi;

InitGraph (gd,gm,''); {инициализация графики}

end;

procedure SaveData(n: real; n1: real; alpha: real); {сохраняет данные в файл}

var

f: text;

alpha1: real;

tempstr: string;

begin

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

assign(f, 'result. txt');

rewrite(f);

Str(n: 6: 4, tempstr);

writeln(f,concat('Показатель преломления n=', tempstr));

Str(alpha: 2: 0, tempstr);

writeln(f,concat('Угол падения alpha=', tempstr));

Str(n1: 6: 4, tempstr);

writeln(f,concat('Показатель преломления n1=', tempstr));

Str(alpha1: 2: 0, tempstr);

writeln(f,concat('Угол преломления alpha1=', tempstr));

close(f);

end;

procedure Paint(n: real; n1: real; alpha: real);

var

mx,my: Integer; {максимальные значения экранных координат}

delta,delta1: real;