Практическая работа № 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 "Головоломка № l"

Цель работы - создать компьютерную версию одной из головоломок Самуэля Ллойда: из заданного набора чисел надо выбрать те, сумма которых составит 50. Числа, которые избрал Ллойд для своей головоломки: 25, 27, 3, 12, 6, 15, 9, 30, 21, 19.

Рис. 39.

Выполнить следующие действия:

1. После запуска программы в окне изображается список чисел Ллойда.

2. Выбираем с помощью флажков числа и помещаем в правое окно.

3. Сумма выбранных чисел представлена в виде надписи.

4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: список флажков CheckListBox, надпись Label, список ListBox.