Задача о фотоне
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