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

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

«Гол= 086;воломка № 2»

Цель работы - созk= 6;ать компьютернm= 1;ю версию головоломкl= 0;: из изображеннm= 9;х пяти сброшенных флажков установить все. Но при выборе одного флажка меняется состояние двух следующих.

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

После з = 72;пуска программы в окне изображают= ся пять сброшенных флажков.
Щелкатn= 0; разрешено только на сброшенных= флажках. Щелчок на установлен= ном флажке не действует.
При установке какого-то флажка меняется со= ;стояние двух следующих флажков. Прl= 0; этом сброше= ;нные флажки устанавлив= аются, а установле= ;нные - сбрасывают= ся.
Для выхода из программы необходимо щелкнуть мышью на закрывающе= й кнопке в строке заголовка.

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

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

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

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

Таблица 21.

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

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

Object Inspector

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

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Все пять»

Events

OnCreate

Создать глобальную логическую переменную s. В т&= #1086; время, когда идет обработка события, пер&= #1077;менная имеет значение True= (д= ;а).

CheckBox1

(Вкладк = 72; Standard= )

Properties

Caption

Задать значение «1».=

Events

OnClick

Необход= 080;мо работать с флажками, как с массив&= #1086;м. Форма является контейнеро= 084; для флажков. У объектов-к&= #1086;нтейнеров имеется свойство Cont= rols (Элемент&#= 1099; управления) – массив элементов управления, находящихс= 103; в данном кон&= #1090;ейнере: Controls= [i] as TCheckBox.

Длn= 3; создания еще пяти флажков можно испол&#= 1100;зовать метод копировани= 103; через буфер &= #1086;бмена.

CheckBox2

Properties

Caption

Задать значение «2».=

CheckBox3

Properties

Caption

Задать з&#= 1085;ачение «3».

CheckBox4

Properties

Caption

Задать значение «4».=

CheckBox5

Properties

Caption

Задать значение «5».=

Label1<= /o:p>

(Вкладка Standard)

Properties

Caption

Введите текст: «Сумма: 0»

Autosize

Задайте значение Fals= e

Alignment

Задайте значение taCenter

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

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

procedure TForm1.FormCreate (Sender: TObject);

begin

s :=3D False;

end;

procedure TForm1.CheckBox1Click (Sender: TObject);

var Index, i, num : Integer;

e: Boolean;

begin

if s then Exit; {Ес= ли программа снова вызовет процедуру обработки, будет выпол = 85;ен оператор Exit – немедленныl= 1; выход из процедуры}

s :=3D True;

for Index: =3D 0 to 4 do<= span lang=3DEN-US> {Операто = 88; break прерываk= 7;т выполнение = 94;икла}

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> Sender =3D Controls[i] then break; {Оп= ;ределяется, каl= 2;ой флажl= 6;к был переl= 2;лючен}

{К= 086;гда выполнение цикла завершаетсn= 3;, значение переменной Index соот&= #1074;етствует переключенl= 5;ому флажку}

{Если значение свойства Checked (Установле&#= 1085;) равно False (Нет), флажок сброшен, а если = True (Д&= #1072;) – установлен. Ном&= #1077;р флажка в мас= 089;иве определяетl= 9;я переменной Index}

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> not (Controls[Index] a= s TCheckBox).Checked

then (Controls[Index] as<= span lang=3DEN-US> T= CheckBox).Checked :=3D True {Усло= вие выполнено, е= 089;ли флажок сейч = 72;с сброшен, т.е. до щелчка он был установлен}

else {Про = 75;раммирован&#= 1080;е изменения состояния «дополнитеl= 3;ьных флажков». Текущий флажок уже переключен}

begin <= o:p>

num :=3D Index + 1; {Пер&= #1077;ключение двух следующих флажков}

if<= span lang=3DEN-US> I= ndex =3D 4 then num :=3D 0; {Изм= енение состояния нулевого флажка}

{Сос= 090;ояние флажка надо поменять на противополl= 6;жное}

(Controls[num] as TCheckBox).Checked :=3D not (Controls[num] as CheckBox).Checked;

{Вып= 086;лнение проверки на выход за пределы мас = 89;ива}

num :=3D num + 1; if Index =3D 3 then num :=3D 0;

(Controls[num] as TCheckBox).Checked :=3D= not (Controls[num] as CheckBox).Checked;

end= ;

e :=3D True; {Головолl= 6;мка решена, если установленm= 9; все пять флажков}

for= i :=3D 0 to 4 do

e :=3D e and (Controls[i] as TCheckBox).C= hecked;

{Пос= 083;е цикла значение останется равным True, если все флажки установленm= 9;}

if<= span lang=3DEN-US> e= then {Гол= 086;воломка решена}

for= i :=3D 0 to 4 do

begin

(Controls[i] as TCheckBox).Caption :=3D ‘Поб&= #1077;да!’;<= /p>
(Controls[i] as TCheckBox).Enabled :=3D False; {Отк= лючение флажl= 2;ов}

end= ;

s :=3D False;

end;

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Все пять»
	Events	OnCreate	Создать глобальную логическую переменную s. В т&= #1086; время, когда идет обработка события, пер&= #1077;менная имеет значение True= (д= ;а).
CheckBox1 (Вкладк = 72; Standard= )	Properties	Caption	Задать значение «1».=
Events	OnClick	Необход= 080;мо работать с флажками, как с массив&= #1086;м. Форма является контейнеро= 084; для флажков. У объектов-к&= #1086;нтейнеров имеется свойство Cont= rols (Элемент&#= 1099; управления) – массив элементов управления, находящихс= 103; в данном кон&= #1090;ейнере: Controls= [i] as TCheckBox.
Длn= 3; создания еще пяти флажков можно испол&#= 1100;зовать метод копировани= 103; через буфер &= #1086;бмена.
CheckBox2	Properties	Caption	Задать значение «2».=
CheckBox3	Properties	Caption	Задать з&#= 1085;ачение «3».
CheckBox4	Properties	Caption	Задать значение «4».=
CheckBox5	Properties	Caption	Задать значение «5».=
Label1<= /o:p> (Вкладка Standard)	Properties	Caption	Введите текст: «Сумма: 0»
Autosize	Задайте значение Fals= e
Alignment	Задайте значение taCenter