4. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForm1. RadioButton1Click (Sender: TObject);
var i: Integer;
begin
ComboBox1.Clear;
ComboBox1.Tag := (Sender as TRadioButton).Tag; for i := 0 to 5 do
ComboBox1.Items.Add (ListBox1.Items [ComboBox1.Tag + i]);
ComboBox1.ItemIndex := 0;
Imagel.Picture.LoadFromFile (ListBox2.Items [ComboBoxl.Tag]);
end;
procedure TForml.FormCreate(Sender: TObject); begin
RadioButtonlClick(RadioButtonl); end;
procedure TForml.ComboBoxlChange (Sender: TObject); begin
Imagel.Picture.LoadFromFile (ListBox2.Items [ComboBoxl.Tag + ComboBoxl.Itemlndex]); end;
№ 17. Расчет процентов
Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы в окне изображается три текстовых поля.
Рис. 37.
2. В первое поле вводится число. Во второе поле - проценты. При нажатии кнопки "Рассчитать" в третье поле выводятся вычисленные проценты от числа.
Рис. 38.
3. При нажатии кнопки "Очистить" очищаются значения полей. Далее вводятся новые значения в поля.
4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: командная кнопка Button, надпись Label, текстовое поле Edit.
3. Выполнить следующие действия:
Таблица 19.
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Form1 |
Properties |
Caption |
Установка имени формы "Вычисление процентов" |
Label1 |
Properties |
Caption |
Введите название "Считаем проценты!" |
Edit1 |
Properties |
Text |
Очистить значение свойства |
Edit2 |
Properties |
Text |
Очистить значение свойства |
Edit3 |
Properties |
Text |
Очистить значение свойства |
Button! |
Properties |
Caption |
Введите название "Рассчитать" |
Events |
OnClick |
Описать локальные Number, Procent, Prn |
Продолжение таблицы 19.
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Button2 |
Properties |
Caption |
Введите название "Очистить" |
Events |
OnClick |
Editl.Text:-''; Edit2.Text:=''; Edit3.Text:=''; |
4. Сохраните проект, запустите и протестируйте его.
Фрагмент программы var
Number, Procent, Prn: Real; procedure TForm1.Button1Click(Sender: TObject); begin
Number:=StrToFloat(Edit1.Text); Procent:= StrToFloat(Edit2.Text); PrN:=0.01*Procent*Number; Edit3.Text:=FloatToStr(PrN); end;
procedure TForm1.Button2Click(Sender: TObject); begin
Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; end;
№ 18.Головоломка № 1
Цель работы - создать компьютерную версию одной из головоломок Самуэля Ллойда: из заданного набора чисел надо выбрать те, сумма которых составит 50. Числа, которые избрал Ллойд для своей головоломки: 25, 27, 3, 12, 6, 15, 9, 30, 21, 19.
Рис. 39.
Выполнить следующие действия:
1. После запуска программы в окне изображается список чисел Ллойда.
2. Выбираем с помощью флажков числа и помещаем в правое окно.
3. Сумма выбранных чисел представлена в виде надписи.
4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы