Рефераты по Физике

Задача о фотоне

Страница 4

cod:=readkey; {записать код нажатой клавиши в переменную cod}

clrscr;

TextColor(4);

Gotoxy(15,1);

Writeln('Ввод исходных данных и определение постоянных величин');

Writeln;

Textcolor(15);

repeat {повторять}

Writeln('Введите значение энергии фотона рентгеновского излучения в МэВ');

Write('E=');

Readln(e); {ввести значение переменной e}

until e>0; {проверить ложное условие e>0}

Writeln;

repeat

Writeln('Введите значение увеличения длины волны в нм');

Write('dl=');

Readln(dl);

until dl>0;

c:=3E+8; {присвоить с значение 3*10 в 8 степени - скорость света}

Writeln;

Writeln('Скорость света в вакууме с=',c:9,' м/с');

h:=6.63E-34;

Writeln;

Writeln('Постоянная Планка h=',h:9,' Дж');

E0:=0.511;

Writeln;

Writeln('Энергия покоя электрона E0=',E0:5:3,' МэВ');

TextColor(6);

Gotoxy(35,23);

Write('Для продолжения нажмите клавишу <ПРОБЕЛ>');

Cod:=#0; {очистить код клавиши}

While cod<>#32 do cod:=readkey;

clrscr;

TextColor(4);

Gotoxy(25,1);

Writeln('Анализ исходных данных');

Gotoxy(1,3);

TextColor(15);

Writeln('Выполним перевод значения величины энергии фотона (E),');

Writeln('энергии покоя электрона (E0) из МэВ в Дж ');

Writeln('и значение длины волны (dl) из нанометра в метры учитывая, что:');

TextColor(14);

Writeln('1 МэВ=',n:10,' Дж');

Writeln('1 м=',nm:10,' нм');

Gotoxy(12,9);

TextColor(4);

Writeln('Результаты перевода исходных данных в систему СИ');

Writeln;

Temp:=e;

e:=e*n;

TextColor(15);

Writeln('E=',Temp:2:1,' МэВ=',e:9,' Дж');

Temp:=E0;

E0:=E0*n;

Writeln('E0=',Temp:4:3,' МэВ=',E0:9,' Дж');

Temp:=dl;

dl:=dl*nm;

Writeln('dl=',Temp:5:4,' нм=',dl:9,' м');

TextColor(6);

Gotoxy(35,23);

Write('Для продолжения нажмите клавишу <ПРОБЕЛ>');

cod:=#0;

While cod<>#32 do cod:=readkey;

clrscr;

TextColor(4);

Gotoxy(33,1);

Writeln('Решение задачи');

Gotoxy(23,2);

TextColor(3);

writeln('Расчет энергии рассеянного фотона');

TextColor(15);

{Вычисление энергии рассеянного фотона}

E1:=(E*h*c)/(h*c+E*dl);

TextColor(2);

Writeln('Энергия рассеянного фотона равна');

TextColor(15);

Writeln('E1=',E1:9,' Дж');

TextColor(14);

Writeln('Переведем Дж в МэВ');

TextColor(15);

Writeln('E1=',E1:9,' Дж = ',E1/n:2:1,'МэВ');

{Расчет угла вылета электрона отдачи}

TextColor(3);

Gotoxy(21,8);

Writeln('Расчет угола вылета электрона отдачи');

TextColor(14);

Writeln('Рассчитаем длину волны в вакууме');

TextColor(15);

lc:=h/E0*c; {расчет длины волны в вакууме}

writeln('lc=',lc:9,' м');

TextColor(2);

Writeln('Угол вылета электрона отдачи равен');

TextColor(15);

{расчет угла вылета и перевод в градусы}

f:=arctan(sqrt((2*lc)/dl-1)/(E/E0+1))*180/pi;

Writeln('f=',f:4:2,'°');

{Расчет кинетической энергии электрона отдачи}

TextColor(3);

Gotoxy(18,14);

Writeln('Расчет кинетической энергии электрона отдачи');

TextColor(2);

Writeln('Кинетическая энергия электрона отдачи равна');

TextColor(15);

Ek:=(sqr(E)*dl)/(h*c+E*dl);

Writeln('Ek=',Ek:9,' Дж');

TextColor(14);

Writeln('Переведем Дж в МэВ');

TextColor(15);

Writeln('Ek=',Ek:9,' Дж = ',Ek/n:3:2,'МэВ');

TextColor(6);

Gotoxy(35,23);

Write('Для выхода нажмите клавишу <ПРОБЕЛ>');

cod:=#0;

While cod<>#32 do cod:=readkey;

end.

6. Результаты отладки и тестирования программы

Тест 1

Введите значение энергии фотона рентгеновского излучения в МэВ

E=0.3

Введите значение увеличения длины волны в нм

dl=0.0025

Скорость света в вакууме с= 3.00E+8 м/

Постоянная Планка h=6.63E-34 Дж

Энергия покоя электрона E0=0.511 МэВ

Энергия рассеянного фотона равна

E1= 3.0E-0014 Дж= 0.2 МэВ

Угол вылета электрона отдачи равен

f=31.5°

Кинетическая энергия электрона отдачи равна

Ek= 1.8E-0014 Дж= 0.11 МэВ

Тест 2

Введите значение энергии фотона рентгеновского излучения в МэВ

E=0.1

Введите значение увеличения длины волны в нм

dl=0.0015

Скорость света в вакууме с= 3.00E+8 м/

Постоянная Планка h=6.63E-34 Дж

Энергия покоя электрона E0=0.511 МэВ

Энергия рассеянного фотона равна

E1= 1.4E-0014 Дж= 0.1 МэВ

Угол вылета электрона отдачи равен

f=51.40°

Кинетическая энергия электрона отдачи равна

Ek= 1.7E-0017 Дж= 0.01 МэВ

Тест 3

Введите значение энергии фотона рентгеновского излучения в МэВ

E= 0.8

Введите значение увеличения длины волны в нм

dl=0.0030

Скорость света в вакууме с= 3.00E+8 м/

Постоянная Планка h=6.63E-34 Дж

Энергия покоя электрона E0=0.511 МэВ

Энергия рассеянного фотона равна

E1= 4.4E-0014 Дж= 0.3 МэВ

Угол вылета электрона отдачи равен

f=17.09°

Кинетическая энергия электрона отдачи равна

Ek= 8.4E-0014 Дж= 0.53 МэВ

Тест 4

Введите значение энергии фотона рентгеновского излучения в МэВ

E= 0.23

Введите значение увеличения длины волны в нм

dl=0.0045

Скорость света в вакууме с= 3.00E+8 м/

Постоянная Планка h=6.63E-34 Дж

Энергия покоя электрона E0=0.511 МэВ

Энергия рассеянного фотона равна

E1= 2.0E-0014 Дж= 0.1 МэВ

Угол вылета электрона отдачи равен

f=11.12°

Кинетическая энергия электрона отдачи равна

Ek= 1.7E-0014 Дж= 0.1 МэВ

Тест 5

Введите значение энергии фотона рентгеновского излучения в МэВ

E= 0.9

Введите значение увеличения длины волны в нм

dl=0.002

Скорость света в вакууме с= 3.00E+8 м/

Постоянная Планка h=6.63E-34 Дж

Энергия покоя электрона E0=0.511 МэВ

Энергия рассеянного фотона равна

E1= 5.9E-0014 Дж= 0.4 МэВ

Угол вылета электрона отдачи равен

f=23.44°

Кинетическая энергия электрона отдачи равна

Ek= 8.5E-0014 Дж= 0.53 МэВ

Перейти на страницу:  1  2  3  4  5