Краткая теория
К сегодняшнему занятию Вами изучены следующие элементы управления
Edit
Label
Button
RadioButton
CheckBox
SpinEdit (на вкладке Misc)
ListBox (на вкладке Standard)
Memo (на вкладке Standard)
Об отметках
Основные упражнения не отмечены никакими специальными знаками, их выполнения достаточно для удовлетворительной оценки. Дополнительные упражнения отмечены "звездочками", их выполнение необходимо для получения повышенной оценки.
"5" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной и двумя "звездочками".
"4" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной "звездочкой".
"3" - в отчете выполнены все основные упражнения.
Упражнения
Десятичная запятая. В заданном дробном числе заменить десятичную точку на запятую.
Требования к выполнению. Для задания вещественного числа использовать компонент FloatSpinEdit.
Пример интерфейса
Пример.
procedure TForm1.Button1Click(Sender: TObject); const DEC_POINT = '.'; DEC_SEM = ','; var x : Double; xstr : String; n : Byte; begin x := FloatSpinEdit1.Value; Edit1.Text := FloatToStr(x); xstr := FloatToStr(x); n := Pos(DEC_POINT, xstr); xstr[n]:=DEC_SEM; // Edit2.Text := IntToStr(n); Edit2.Text := xstr; end;
Нумерованный список. Строка вводится в поле Edit 1 с клавиатуры. При щелчке по кнопке Button1 строка из Edit1 Вставляется в поле Memo1. CheckBox1 задает возможность очищать Edit1 после щелчка по кнопке Button1.
*CheckBox2 позволяет отображать или скрывать нумерацию строк в поле Memo1.
Пример интерфейса
Пример.
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(Edit1.Text); if CheckBox1.Checked then Edit1.Text := ''; end;
Физики. С помощью поля Edit1 введите список следующих ученых:
Бернулли М.
Бернулли Я.
Вавилов Н.И.
Вавилов С.И.
Иоффе А.Ф.
Мандельштам Л.И.
Мандельштам О.Э.
Менделеев Д.И.
Мендель Г.И.
Мичурин И.В.
Павлов И.П.
Паскаль Б.
Тамм И.Е.
Франк И.М.
Черенков П.А.
Эйнштейн А.
С помощью RadioButton1 и RadioButton2 укажите физиков и не физиков: при щелчке по кнопке Button1 в поле Memo1 напротив имени должно стоять " -- физик." или " -- не физик.".
*Готовый список сохранить в текстовый файл при нажатии на кнопку Button2
Пример интерфейса
Пример.
procedure TForm1.Button1Click(Sender: TObject); const PHYSICER = ' -- физик.'; NO_PHYSICER = ' -- не физик.'; var s : string; begin s := Edit1.Text; if RadioButton1.Checked then s := s + PHYSICER; if RadioButton2.Checked then s := s + NO_PHYSICER; Memo1.Lines.Add(s); end;
*Основное состояние цинка. Составить программу, которая рассчитывает по атомному номеру и выводит в виде строки электронную конфигурацию цинка, химического элемента с атомным номером 30,
Zn30
1s2 2s2 2p6 3s2 3p6 4s2 3d10
**Основное состояние атома. Задано зарядовое число атома. Сформировать условное обозначение состояния электронной конфигурации заданного зарядовым числом атома элемента, по примеру предыдущей задачи.
Источники
ru.wikihow.com Как написать электронную конфигурацию атома любого элемента
geektimes.ru Спросите Итана №36: удивительный вращающийся электрон