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

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

2. Необходимо выбрать два числовых значения и найти их произведение.

3. Если выбирается одно число, то находится его квадрат.

Практическая работа № 12 Таблица умножения

Рис. 32.

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

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

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

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

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

Таблица 12.

Выделенный объект

Вкладка окна Object Inspector

Имя свойства/ имя события

Действие

Forml

Properties

Caption

Установка имени формы "Таблица умножения"

TrackBarl

(Вкладка Win32)

Properties

Min (Минимум)

Присвоить значение 2

Max (Максимум)

Присвоить значение 99

Position (Положение)

Присвоить значение 2

LineSize (Малое изменение)

Присвоить значение 1

PageSize

(Постраничное изменение)

Присвоить значение 7

Frequency (Частота засечек)

Присвоить значение 7

Events

OnChange

Label1.Caption :=

IntToStr(TrackBar1.Position); Label3.Caption :=

IntToStr(TrackBar1.Position * TrackBar2.Position);
if CheckBox1.Checked then TrackBar2.Position :=TrackBar1.Position;

Продолжение таблицы 12.

Выделенный объект

Вкладка окна Object Inspector

Имя свойства/ имя события

Действие

TrackBar2

(Вкладка Win32)

Properties

Min (Минимум)

Присвоить значение 2

Max (Максимум)

Присвоить значение 99

Position (Положение)

Присвоить значение 2

LineSize (Малое изменение)

Присвоить значение 1

PageSize

(Постраничное изменение)

Присвоить значение 7

Frequency (Частота засечек)

Присвоить значение 7

Events

OnChange

Label2.Caption :=

IntToStr(TrackBar2.Position); Label3.Caption :=

IntToStr(TrackBar1.Position * TrackBar2.Position);
if CheckBox1.Checked then TrackBar1.Position := TrackBar2.Position;

GroupBoxl

(Вкладка Standard)

Properties

Caption

Ввести подпись "Произведение"

Labell

(Вкладка Standard)

Properties

AutoSize (Автоподбор)

Установить значение False

Caption

Присвоить значение 2

Alignment (Выравнивание)

Установить значение taRightJustify (Выравнивание по правому краю)

Label2

(Вкладка Standard)

Properties

AutoSize

Установить значение False

Caption

Присвоить значение 2

Alignment

Установить значение taRightJustify (Выравнивание по правому краю)

Label3

(Вкладка Standard)

Properties

AutoSize

Установить значение False

Caption

Присвоить значение 4

Alignment

Установить значение taRightJustify (Выравнивание по правому краю)

CheckBoxl

(Вкладка Standard)

Properties

Caption

Ввести подпись "Квадрат"

Alignment

Установить значение taLefttJustify (Выравнивание по левому краю)

Events

OnClick

TrackBar2.Position := TrackBar1.Position;

4. Сохраните проект, запустите и протестируйте его.

Листинг подпрограммы

procedure TForm1.TrackBar1Change (Sender: TObject);
begin
Label1.Caption := IntToStr(TrackBar1.Position);
Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position);
if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position;
end;
procedure TForm1.TrackBar2Change (Sender: TObject);
begin
Label2.Caption := IntToStr(TrackBar2.Position);
Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position);
if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position;
end;
procedure TForm1.CheckBox1Click (Sender: TObject);
begin
TrackBar2.Position := TrackBar1.Position;
end;

Задание для самостоятельного выполнения

1. Изменить программу так, чтобы находить произведения не только двузначных, но и трехзначных чисел от 2 до 199.

2. Изменить программу так, чтобы находить сумму двух чисел.

Практическая работа № 11 "Прыгающая кнопка" || Оглавление || Практическая работа № 13 Применение полос прокрутки


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



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

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