Практичесl= 2;ая работа № 12

Прак= 090;ическая работа № 12

«Таб= 083;ица умножения»=

Цель работы - созk= 6;ать программу, выполняющуn= 2; следующие д = 77;йствия:

1.&n= bsp; После запуска программы в окне изображаетl= 9;я два движка.

2.&n= bsp; Необход&#= 1080;мо выбрать два числовых значения и найти их про= 080;зведение.

3.&n= bsp; Если выбирается одно число, то находитс= 03; его квадрат.

&= nbsp;

4.&n= bsp; Для выхода из программы необходимо щелкнуть мышью на закрывающеl= 1; кнопке в стр= 086;ке заголовка.

Опис= 072;ние плана разработки программы<= /b>

1.&n= bsp;     Открыть новый проек = 90;.

2.&n= bsp;     Размест&#= 1080;ть на форме экземпляры компонентоk= 4;: командная кнопка Button, д&#= 1074;ижок TrackBar, рамка GroupBox, надписn= 0; Label, флажок CheckBox.

3.&n= bsp;     Выполни&#= 1090;ь следующие действия:

Таблица 12.

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

Вкладк = 72; окна

Object Inspector<= /o:p>

Имя свойства/

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Таблица умножения»

TrackBar1

(Вкладка Wi= n32)

Properties

Min (Минимум)

Присвои= 090;ь значение 2

Max (Максимум)

Присвои= 090;ь значение 99

Position (Положение<= /span>)

Присвои= 090;ь значение 2

LineSize (Малое изменk= 7;ние)

Присвои= 090;ь значение 1

PageSize (Постранич&= #1085;ое изменение)

Присвои= 090;ь значение 7

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

Присвои= 090;ь значение 7

Events

OnChange

Label1.Caption :=3D

    IntToStr(TrackBar1.P= osition);

Label3.Caption :=3D

    IntToStr(TrackBar1.P= osition *

        TrackBar2.Position);

if CheckBox1.Checked then

TrackBar2.Position :=3DTrackBar1.Position;

TrackBar2

(Вкладка Wi= n32)

<= /o:p>

Properties

Min (Мини= ;мум)

Присвои= 090;ь знач= 077;ние 2

Max (Макс= ;имум)

Присвои= 090;ь знач= 077;ние 99

Position (Пол&= #1086;жение)

Присвои= 090;ь значение 2

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

Присвои= 090;ь значение 1

PageSize (Постраничн&#= 1086;е изменение)

Присвои= 090;ь значение 7

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

Присвои= 090;ь значение 7

Events

OnChange

Label2.Caption :=3D

    IntToStr(TrackBar2.P= osition);

Label3.Caption :=3D

    IntToStr(TrackBar1.P= osition *

        TrackBar2.Position);

if CheckBox1.Checked then

    TrackBar1.Position := =3D

       &nbs= p; TrackBar2.Position;

GroupBox1

(Вкладк = 72; St= andard)

Properties

Caption

Ввести подпись «Произведе= 085;ие»

Label1 =

(Вкладк = 72; St= andard)

Properties

AutoSize (Автоподб&= #1086;р)

Установ= 080;ть значение Fals= e

Caption

Присвои= 090;ь значение 2

Alignment (Выравнива&#= 1085;ие)

Установ= 080;ть зна= ;чение taRightJustify (Выравни&#= 1074;ание по правому краю)

Label2<= /o:p>

(Вкладк = 72; St= andard)

Properties

AutoSize

Установ= 080;ть значение Fals= e

Caption

Присвои= 090;ь значение 2

Alignment

Установ= 080;ть зна= ;чение taRightJustify (Выравни&#= 1074;ание по правому краю)

Label3<= /o:p>

(Вкладк = 72; St= andard)

Properties

AutoSize

Установ= 080;ть значение Fals= e

Caption

Присвои= 090;ь значение 4

Alignment

Установ= 080;ть зна= ;чение taRightJustify (Выравни&#= 1074;ание по правому краю)

CheckBox1

(Вкл = 72;дка St= andard)

Properties

Caption

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

Alignment

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

Events

OnClick

TrackBar2.Position :=3D

    TrackBar1.Position;<= o:p>

4.&n= bsp;     Сохрани&#= 1090;е проект, запустите и протестируl= 1;те его.

Листинг подпрогра&= #1084;мы

procedure TForm1.TrackBar1Change (Sender: TObject)= ;

begin

<= span style=3D'mso-spacerun:yes'>   Label1.Caption :=3D IntToStr= (TrackBar1.Position);

<= span style=3D'mso-spacerun:yes'>   Label3.Caption :=3D IntToStr= (TrackBar1.Position * TrackBar2.Position);

<= span style=3D'mso-spacerun:yes'>   if CheckBox1.Checked then TrackBar2.Position :=3D TrackBar1.Position;

end;

procedure TForm1.TrackBar2Change (Sender: TObject)= ;

b= egin

<= span style=3D'mso-spacerun:yes'>   Label2.Caption :=3D IntToStr(TrackBar2.Position);

<= span style=3D'mso-spacerun:yes'>   Label3.Caption :=3D IntToStr= (TrackBar1.Position * TrackBar2.Position);

<= span style=3D'mso-spacerun:yes'>   if CheckBox1.Checked then Tr= ackBar2.Position :=3D TrackBar1.Position;

e= nd;

p= rocedure TForm1.CheckBox1Click (Sender: TObject);

b= egin

<= span style=3D'mso-spacerun:yes'>   TrackBar2.Position :=3D TrackBar1.Position;

e= nd;

Зада= 085;ие для самостоятеl= 3;ьного выполнения =

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

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

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector<= /o:p>	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Таблица умножения»
TrackBar1 (Вкладка Wi= n32)	Properties	Min (Минимум)	Присвои= 090;ь значение 2
Max (Максимум)	Присвои= 090;ь значение 99
Position (Положение<= /span>)	Присвои= 090;ь значение 2
LineSize (Малое изменk= 7;ние)	Присвои= 090;ь значение 1
PageSize (Постранич&= #1085;ое изменение)	Присвои= 090;ь значение 7
Frequency (Частота засечек)	Присвои= 090;ь значение 7
Events	OnChange	Label1.Caption :=3D IntToStr(TrackBar1.P= osition); Label3.Caption :=3D IntToStr(TrackBar1.P= osition * TrackBar2.Position); if CheckBox1.Checked then TrackBar2.Position :=3DTrackBar1.Position;
TrackBar2 (Вкладка Wi= n32) <= /o:p>	Properties	Min (Мини= ;мум)	Присвои= 090;ь знач= 077;ние 2
Max (Макс= ;имум)	Присвои= 090;ь знач= 077;ние 99
Position (Пол&= #1086;жение)	Присвои= 090;ь значение 2
LineSize (Малое изменение)	Присвои= 090;ь значение 1
PageSize (Постраничн&#= 1086;е изменение)	Присвои= 090;ь значение 7
Frequency (Частота засечек)	Присвои= 090;ь значение 7
Events	OnChange	Label2.Caption :=3D IntToStr(TrackBar2.P= osition); Label3.Caption :=3D IntToStr(TrackBar1.P= osition * TrackBar2.Position); if CheckBox1.Checked then TrackBar1.Position := =3D &nbs= p; TrackBar2.Position;
GroupBox1 (Вкладк = 72; St= andard)	Properties	Caption	Ввести подпись «Произведе= 085;ие»
Label1 = (Вкладк = 72; St= andard)	Properties	AutoSize (Автоподб&= #1086;р)	Установ= 080;ть значение Fals= e
Caption	Присвои= 090;ь значение 2
Alignment (Выравнива&#= 1085;ие)	Установ= 080;ть зна= ;чение taRightJustify (Выравни&#= 1074;ание по правому краю)
Label2<= /o:p> (Вкладк = 72; St= andard)	Properties	AutoSize	Установ= 080;ть значение Fals= e
Caption	Присвои= 090;ь значение 2
Alignment	Установ= 080;ть зна= ;чение taRightJustify (Выравни&#= 1074;ание по правому краю)
Label3<= /o:p> (Вкладк = 72; St= andard)	Properties	AutoSize	Установ= 080;ть значение Fals= e
Caption	Присвои= 090;ь значение 4
Alignment	Установ= 080;ть зна= ;чение taRightJustify (Выравни&#= 1074;ание по правому краю)
CheckBox1 (Вкл = 72;дка St= andard)	Properties	Caption	Ввести подпись «Квадрат»
Alignment	Установ= 080;ть зна= ;чение taLefttJustify (Выравни&#= 1074;ание по левому краю)
Events	OnClick	TrackBar2.Position :=3D TrackBar1.Position;<= o:p>