Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы в окне изображается три текстовых поля.

Практическая работа № 17 Вычисление процентов

Рис. 37.

2. В первое поле вводится число. Во второе поле - проценты. При нажатии кнопки "Рассчитать" в третье поле выводятся вычисленные проценты от числа.

Практическая работа № 17 Вычисление процентов

Рис. 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;

Практическая работа № 16 "Электронный альбом" || Оглавление || Практическая работа № 18 "Головоломка № l"


Практикум по Delphi для решения прикладных задач



Новости за месяц

  • Сентябрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс