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


         

Таблица умножения


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

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;

 

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

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



Содержание раздела