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

end;

end;

function ChangeN(flag: integer): real;

var

tempstr: string;

ch: char;

n: real;

code: integer;

begin

{переход в текстовый режим}

CloseGraph;

{принимаются только символы 1-9}

while ((ch<'1') or (ch>'9')) do

begin

ClrScr;

str(flag, tempstr);

writeln(concat('Выберите ',tempstr,'-ую среду: '));

writeln('1. Вода');

writeln('2. Глицерин');

writeln('3. Алмаз');

writeln('4. Воздух');

writeln('5. Полиэтилен');

writeln('6. Сапфир');

writeln('7. Хлористый натрий');

writeln('8. Сероуглерод');

writeln('9. Другая среда');

ch: =readkey;

end;

if (ch = '1') then ChangeN: =1.33;