Лабораторная работа 5. Множества

Краткая теория

К сегодняшнему занятию Вами изучены следующие элементы управления

• 1. Edit

  2. Label

  3. Button

  4. RadioButton

  5. CheckBox

  6. SpinEdit (на вкладке Misc)

  7. ListBox (на вкладке Standard)

  8. Memo (на вкладке Standard)

Практикум. Скачайте по следующей ссылке zip-архив таблицы Д.И.Менделеева,сохранив его в личной папке. Правый щелчок мыши на ссылке вызовет выпадающее меню, в котором нужно выбрать команду "Сохранить объект как..."

[ Скачать файл ]

Об отметках

Основные упражнения не отмечены никакими специальными знаками, их выполнения достаточно для удовлетворительной оценки. Дополнительные упражнения отмечены "звездочками", их выполнение необходимо для получения повышенной оценки.

• • "5" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной и двумя "звездочками".

  • "4" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной "звездочкой".

  • "3" - в отчете выполнены все основные упражнения.

Упражнения

• 1. Шаг перехода. Изменить целое число, выводимое в Label1, на заданный в SpinEdit1 шаг. При нажатии на кнопку Назад, Button1, число уменьшается. При нажатии на кнопку Дальше, Button2, число увеличивается.

  2. Пример интерфейса

• 1. Пример.

     1. var   Form1: TForm1;    x    : Integer;   step : Integer;  { ... }  // Pred procedure TForm1.Button1Click(Sender: TObject); begin     x    := StrToInt(Label1.Caption);     step := SpinEdit1.Value;     Dec(x, step); // x := x - step;     Label1.Caption := IntToStr(x); end;  // Next procedure TForm1.Button2Click(Sender: TObject); begin     x    := StrToInt(Label1.Caption);     step := SpinEdit1.Value;     Inc(x, step); // x := x + step;     Label1.Caption := IntToStr(x); end; 

  2. Следующий элемент. С помощью SpinEdit1 задать шаг step, на который

  3. будет меняться атомный номер выбираемого химического

  4. элемента. Химические элементы перечисленны в множестве.

  5. При щелчке по кнопке Button2, Дальше, в Label1

  6. выводится отстоящий от текущего на заданный шаг далее

  7. по периодической таблице элементов.

  8. При щелчке по кнопке Button1, Назад, в Label1

  9. выводится предшествующий на step номеров ранее текущему

  10. элемент по периодической таблице элементов.

  11. Указание к выполнению. Использовать процедуры Inc(a, step)

  12. и Dec(a, step) для перехода между элементами множества.

  13. Использовать процедуры и функции

  14. Inc(a, step)

  15. Inc(a)

  16. Dec(a, step)

  17. Low(type)

  18. Hi(type)

  19. Ord

  20. Pred

  21. Succ

  22. Пример интерфейса

• 1. Пример.

     1. var   Form1: TForm1;    x    : Integer;   step : Integer;  type     t_mendeleev = (H, He, B, C, N, O, F, Ne, Si, P, S, Cl, Ar, Li, Be, Na, Mg, Al, K, Ca, Sc, Ti, V, Cr, Mn, Fe, Co, Ni);  var     me    : set of t_mendeleev;     notme : set of t_mendeleev;     me_or_notme : set of t_mendeleev;     element  : t_mendeleev;     elem_str : String; {...} // Pred procedure TForm1.Button1Click(Sender: TObject); begin     step := SpinEdit1.Value;     Dec(element, step); // x := x - step;     for element := H to Ni do begin         case element of             H   : elem_str := 'H';             He  : elem_str := 'He';             B   : elem_str := 'B';             C   : elem_str := 'C';             N   : elem_str := 'N';             O   : elem_str := 'O';             F   : elem_str := 'F';             Ne  : elem_str := 'Ne';             Si  : elem_str := 'Si';             P   : elem_str := 'P';             S   : elem_str := 'S';             Cl  : elem_str := 'Cl';             Ar  : elem_str := 'Ar'; //===============    me    ===============             Li  : elem_str := 'Li';             Be  : elem_str := 'Be';             Na  : elem_str := 'Na';             Mg  : elem_str := 'Mg';             Al  : elem_str := 'Al';             K   : elem_str := 'K';             Ca  : elem_str := 'Ca';             Sc  : elem_str := 'Sc';             Ti  : elem_str := 'Ti';             V   : elem_str := 'V';             Cr  : elem_str := 'Cr';             Mn  : elem_str := 'Mn';             Fe  : elem_str := 'Fe';             Co  : elem_str := 'Co';             Ni  : elem_str := 'Ni';         end;     end;     Label1.Caption := elem_str; end;  // Next procedure TForm1.Button2Click(Sender: TObject); begin     step := SpinEdit1.Value;     Inc(element, step); // x := x + step;     for element := H to Ni do begin         case element of             H   : elem_str := 'H';             He  : elem_str := 'He';             B   : elem_str := 'B';             C   : elem_str := 'C';             N   : elem_str := 'N';             O   : elem_str := 'O';             F   : elem_str := 'F';             Ne  : elem_str := 'Ne';             Si  : elem_str := 'Si';             P   : elem_str := 'P';             S   : elem_str := 'S';             Cl  : elem_str := 'Cl';             Ar  : elem_str := 'Ar'; //===============    me    ===============             Li  : elem_str := 'Li';             Be  : elem_str := 'Be';             Na  : elem_str := 'Na';             Mg  : elem_str := 'Mg';             Al  : elem_str := 'Al';             K   : elem_str := 'K';             Ca  : elem_str := 'Ca';             Sc  : elem_str := 'Sc';             Ti  : elem_str := 'Ti';             V   : elem_str := 'V';             Cr  : elem_str := 'Cr';             Mn  : elem_str := 'Mn';             Fe  : elem_str := 'Fe';             Co  : elem_str := 'Co';             Ni  : elem_str := 'Ni';         end;     end;     Label1.Caption := elem_str; end;  procedure TForm1.FormCreate(Sender: TObject); begin     element := Ar;     elem_str := 'Ar';     Label1.Caption := elem_str; end; 

  2. Классы химических элементов. Сформировать множества металлов и неметаллов из обозначений химических элементов.

  3. Требования к выполнению. Химические элементы выводятся в поле Memo. Класс элементов выбирается с помощью RadioButton.

  4. Пример интерфейса

• 1. Пример.

  2. type

  3.     t_mendeleev = (H, He, B, C, N, O, F, Ne, Si, P, S, Cl, Ar, Li, Be, Na, Mg, Al, K, Ca, Sc, Ti, V, Cr, Mn, Fe, Co, Ni);

  4. var

  5.   me    : set of t_mendeleev;

  6.   notme : set of t_mendeleev;

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

  8. var

  9.     element  : t_mendeleev;

  10.     elem_str : String;

  11. begin

  12.     elem_str := ComboBox1.Text;

  13.     if elem_str = 'H'  then element := H;

  14.     if elem_str = 'He' then element := He;

  15.     if elem_str = 'B'  then element := B;

  16.     if elem_str = 'C'  then element := C;

  17.     if elem_str = 'N'  then element := N;

  18.     if elem_str = 'O'  then element := O;

  19.     if elem_str = 'F'  then element := F;

  20.     if elem_str = 'Ne' then element := Ne;

  21.     if elem_str = 'Si' then element := Si;

  22.     if elem_str = 'P'  then element := P;

  23.     if elem_str = 'S'  then element := S;

  24.     if elem_str = 'Cl' then element := Cl;

  25.     if elem_str = 'Ar' then element := Ar;

  26.     if elem_str = 'Li' then element := Li;

  27.     if elem_str = 'Be' then element := Be;

  28.     if elem_str = 'Na' then element := Na;

  29.     if elem_str = 'Mg' then element := Mg;

  30.     if elem_str = 'Al' then element := Al;

  31.     if elem_str = 'K'  then element := K;

  32.     if elem_str = 'Ca' then element := Ca;

  33.     if elem_str = 'Sc' then element := Sc;

  34.     if elem_str = 'Ti' then element := Ti;

  35.     if elem_str = 'V'  then element := V;

  36.     if elem_str = 'Cr' then element := Cr;

  37.     if elem_str = 'Mn' then element := Mn;

  38.     if elem_str = 'Fe' then element := Fe;

  39.     if elem_str = 'Co' then element := Co;

  40.     if elem_str = 'Ni' then element := Ni;

  41.     if element in me    then RadioButton1.Checked := True;

  42.     if element in notme then RadioButton2.Checked := True;

  43. end;

  44. procedure TForm1.FormCreate(Sender: TObject);

  45. var

  46.     element : t_mendeleev;

  47. begin

  48.     ComboBox1.ItemIndex := 0;

  49.     notme := [];

  50.     me := [];

  51.     for element := H to Ni do begin

  52.         notme := notme + [element];

  53.         if element > Ar then me := me + [element];

  54.     end;

  55.     notme := notme - me;

  56. end;

  57. *Группы химических элементов. Определить к какому классу веществ относится заданный химический элемент.

  58. Требования к выполнению. Химический элементы выбирается из списка ComboBox. В программе формируются множества из металлов и неметаллов по заданным спискам. Определение принадлежности к первому или второму множеству производится с помощью команды in.

  59. **Классы элементов 2. В программе к задаче "Классы элементов" создать массив-константу строк с обозначениями химических элементов. По этому массиву в цикле идентифицировать выбранный в списке элемент и преобразовать его к типу t_mendeleev, перечислимому типу, созданному пользователем.

  60. Требования. Использовать тип множество для формирования классов неметаллов и металлов.