Лабораторная работа 3. Числовые последовательности

Упражнения

• 1. Атом Резерфорда-Бора. Для атома водорода найти радиус боровской орбиты по заданному номеру. Радиус выразить в метрах и пикометрах.

  2. Требования к выполнению. Использовать целые и вещественные числа. На форме разместить следующие компоненты:

  3. Пример.

  4. procedure TForm1.Button1Click(Sender: TObject);

  5. const

  6.     PI4    = 4*Pi;

  7.     EPS0   = 8.85e-12;  // Электрическая постоянная (Ф/м)

  8.     PLANK  = 1.05e-34;  // Постоянная Планка (Дж*с)

  9.     ME     = 9.11e-31;  // Масса электрона (кг)

  10.     E      = 1.6e-19;   // Элементарный заряд (электрон, протон)

  11.     ZH     = 1;         // Атомный номер водорода

  12.     PIKO   = 1e-12;

  13. var

  14.     n : Byte;

  15.     r : Double;

  16. begin

  17.     n := SpinEdit1.Value;

  18.     r := n*n*PI4*EPS0*PLANK*PLANK/(ME*ZH*E*E);

  19. //    Label3.Caption := FloatToStrF(r, ffFixed, 9, 3);

  20.     Label3.Caption := FloatToStr(r);

  21.     Label5.Caption := FloatToStrF(r/PIKO, ffFixed, 9, 3);

  22. end;

  23. Спектр водорода: серия Бальмера. Для атома водорода найти длины волн, соответствующие переходам из состояний En, En-1, En-2, в состояние E2.

  24. Требования к выполнению. Использовать целые и вещественные числа. На форме разместить следующие компоненты:

  25. Пример.

  26. procedure TForm1.Button1Click(Sender: TObject);

  27. const

  28.     PI2      = 2*Pi;

  29.     C        = 3e8;

  30.     RIDBERG  = 2.07e16;

  31.     M_BALMER = 2;

  32.     LEN      = ' м';

  33. var

  34.     n_max, n : Byte;

  35.     lambda   : Double;

  36. begin

  37.     ListBox1.Clear;

  38.     n_max := SpinEdit1.Value;

  39.     for n := M_BALMER + 1 to n_max do begin

  40.         lambda := PI2*C/(RIDBERG*(1/(M_BALMER*M_BALMER)-1/(n*n)));

  41.         ListBox1.Items.Add(FloatToStr(lambda)+LEN);

  42.     end;

  43. end;

  44. Квантовые числа. Известно, что если главное квантовое число принимает значения n = 1, 2, , то азимутальное квантовое число принимает значения l = 0, 1, , (n - 1), магнитное квантовое число принимает значения ml = 0, ±1, ±2, , ±l. По заданному главному квантовому числу выведите все соответствующие ему значения азимутального и магнитного квантовых чисел.

  45. Требования к выполнению. Использовать целые числа. На форме разместить следующие компоненты:

  46. Пример.

      1. procedure TForm1.Button1Click(Sender: TObject); var     n, l : Byte; begin     Memo1.Clear;     n := SpinEdit1.Value;     for l := 0 to n - 1 do begin         Memo1.Lines.Add(IntToStr(l));     end; end;  procedure TForm1.Button2Click(Sender: TObject); var     n, mlmax : Byte;     ml       : Integer; begin     Memo2.Clear;     n := SpinEdit1.Value;     mlmax := n - 1;     for ml := -mlmax to mlmax do begin         Memo2.Lines.Add(IntToStr(ml));     end; end;

  47. *Спектр водорода: серия Лаймана. Для атома водорода найти длины волн, соответствующие серии Лаймана.

  48. **Спектр водорода. Для атома водорода найти длины волн, соответствующие сериям Лаймана, Бальмера, Пашена, Брэкета, Пфунда.

  49. Требования к выполнению. Для каждой серии нужно отвести отдельный элемент Memo. Выводить длины волн только для тех серий, которые отмечены с помощью компонентов CheckBox.

 Домашнее задание

• 1. Атом Резерфорда-Бора 2. Для атома водорода вывести радиусы боровских орбит в список ListBox. Количество орбит задается с помощью SpinEdit, вывод начинать с первой.

  2. Требования. Радиусы округлить с точностью до сотых, используя FloatToStrF.

  3. *Атом Резерфорда-Бора 3. Для атома водорода вывести значения энергии электрона, который находится на указанных боровских орбитах.

  4. Требования. Номера орбит внести в компонент ListBox, а соответствующие энергии в компонент Memo.