Таблица умножения
Цель работы - создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается два движка.
2. Необходимо выбрать два числовых значения и найти их произведение.
3. Если выбирается одно число, то находится его квадрат.
![]() |
4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: командная кнопка Button, движок TrackBar, рамка GroupBox, надпись Label, флажок CheckBox.
3. Выполнить следующие действия:
Таблица 12.
Выделенный объект | Вкладка окна
Object Inspector |
Имя свойства/
имя события |
Действие |
Form1 | Properties | Caption | Установка имени формы «Таблица умножения» |
TrackBar1
(Вкладка 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; |
|
GroupBox1
(Вкладка Standard) |
Properties | Caption | Ввести подпись «Произведение» |
Label1
(Вкладка 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 (Выравнивание по правому краю) | ||
CheckBox1
(Вкладка 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;
Задание для самостоятельного выполнения
- Изменить программу так, чтобы находить произведения не только двузначных, но и трехзначных чисел от 2 до 199.
- Изменить программу так, чтобы находить сумму двух чисел.