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

if (ch = '3') then ChangeN: =2.42;

if (ch = '4') then ChangeN: =1.0003;

if (ch = '5') then ChangeN: =1.52;

if (ch = '6') then ChangeN: =1.77;

if (ch = '7') then ChangeN: =1.53;

if (ch = '8') then ChangeN: =1.63;

if (ch = '9') then

begin

repeat

ClrScr;

write('Введите показатель преломления среды: ');

readln(tempstr);

val(tempstr, n, code);

until ((code = 0) and (n<=9) and (n>0));

ChangeN: =n;

end;

GraphMode;

end;

procedure LoadData(var n: real; var n1: real; var alpha: real); {загрузка данных из файла}

var

f: text;

begin

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

assign (f, 'data. txt');

reset (f);

{считываем по порядку значения n,n1,alpha}

readln(f, n);

readln(f, n1);

readln(f, alpha);