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

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

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

Цель работы - созk= 6;ать компьютернm= 1;ю версию одно = 81; из головоло = 84;ок Самуэля Лло = 81;да: из заданног = 86; набора чисе = 83; надо выбрат= 00; те, сумма которых составит 50. Числа, которые изб = 88;ал Ллойд для своей головоломкl= 0;: 25, 27, 3, 12, 6, 15, 9, 30, 21, 19.

&= nbsp;

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

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

2. &n= bsp; Выбирае&#= 1084; с помощью флажков числа и помещаем в правое окно.

3. &n= bsp; Сумма выбранных чисел представлеl= 5;а в виде надписи.

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

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

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

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

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

Таблица 20.

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

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

Object Inspector

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

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Головолом= 082;а»

BorderStyle

Задайте значение bsSi= ngle

CheckListBox= 1

(Вкладк = 72; Addition= al )

Properties

Items

Задаем с&#= 1086;став списка. Щелк&= #1085;уть на кнопке по&= #1089;троителя. Откроется о&#= 1082;но String List editor (Ре&= #1076;актор списка стро&#= 1082;). Введите в сп&= #1080;сок заданные чи&#= 1089;ла через Enter. На&#= 1078;мите кнопку OK.

Height

Подобра= 090;ь значение так, что все числа помес&#= 1090;ились в список (без полос прокруток).

Events

OnClickCheck

i= 4;писать очис= 090;ку спис= 082;а. Пр= 086;верить, установлен &#= 1092;лажок или нет. Посл= е обновления списка необходимо подсчитать сумму выбранных чисел. Элементы сп&#= 1080;ска выглядят как числа, но являются текстовыми строками (во&= #1089;пользовать= ;ся функцией StrToInt).

ListBox1

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

Properties

Height

Подобра= 090;ь значение так, что все числа помес&#= 1090;ились в список (без полос прокруток). Первоначал= 100;но список пуст. Заполнятьс= 103; он будет при работе программы.

Label1<= /o:p>

(Вкладка Standard)

Properties

Caption

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

Autosize

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

Alignment

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

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

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

procedure TForm1.CheckListBox1ClickCheck<= /span> (Sender: TObject);

var i, s: Integer;

begin

ListBox1.Clear;

for= i: =3D 0 to CheckListBox1.Items.Count-1 do

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> CheckListBox1.Checked[i] then

ListBox1.Items.Add (CheckListBox1.Items[i= ]);

s :=3D 0;

for= i :=3D 0 to ListBox1.Items.Count -1 do

s :=3D s + StrToInt(ListBox1.Items[i]);

Label1.Caption :=3D ‘С= умма: ’ + IntToStr(s);

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> s =3D 50 then

begin

Label1.Caption :=3D ‘С= умма:’ + IntToStr (s);

CheckListBox1.Enabled :=3D False;

ListBox1.Enabled :=3D False;

end= ;

end;

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Головолом= 082;а»
BorderStyle	Задайте значение bsSi= ngle
CheckListBox= 1 (Вкладк = 72; Addition= al )	Properties	Items	Задаем с&#= 1086;став списка. Щелк&= #1085;уть на кнопке по&= #1089;троителя. Откроется о&#= 1082;но String List editor (Ре&= #1076;актор списка стро&#= 1082;). Введите в сп&= #1080;сок заданные чи&#= 1089;ла через Enter. На&#= 1078;мите кнопку OK.
Height	Подобра= 090;ь значение так, что все числа помес&#= 1090;ились в список (без полос прокруток).
Events	OnClickCheck	i= 4;писать очис= 090;ку спис= 082;а. Пр= 086;верить, установлен &#= 1092;лажок или нет. Посл= е обновления списка необходимо подсчитать сумму выбранных чисел. Элементы сп&#= 1080;ска выглядят как числа, но являются текстовыми строками (во&= #1089;пользовать= ;ся функцией StrToInt).
ListBox1 (Вкладк = 72; Standard= )	Properties	Height	Подобра= 090;ь значение так, что все числа помес&#= 1090;ились в список (без полос прокруток). Первоначал= 100;но список пуст. Заполнятьс= 103; он будет при работе программы.
Label1<= /o:p> (Вкладка Standard)	Properties	Caption	Введите текст: «Сумма: 0»
Autosize	Задайте значение Fals= e
Alignment	Задайте значение taCenter