Цель: проверить знания учащихся, полученные в процессе обучения, закрепить полученные знания, показать возможность использования ООП для решения практических задач, создание головоловки Лойда.

Воспитательная цель: аккуратность, внимательность, точность выполнения работы на ПК

Развивающая цель: развитие самостоятельности при выполнении заданий и в ответах на вопросы

Тип урока: лабораторно-практический

Оборудование: раздаточный материал, ПК, Lazarus

План урока:
№ Этапы урока Время Пояснения
1 Организационный 2 А) проверка готовности к уроку
Б) проверка присутствующих
2 Постановка задачи 3 Объяснение цели работы
3 Выполнение практического задания:
- обсуждение задания
-выполнение задания
-проверка и выставление оценок
5
20
5
Разъяснения преподавателя
Самостоятельная работа учащихся
4 Подведение итогов урока 2
5 Задания на дом 2

информационный лист
«Головоломка Самуэля Ллойда »
Цель работы - создать компьютерную версию одной из головоломок из заданного набора чисел 25, 27, 3, 12, 6, 15, 9, 30, 21, 19 надо выбрать те, сумма которых составит 50.

Выполнить следующие действия:
1. После запуска программы в окне изображается список чисел Ллойда.
2. Выбираем с помощью флажков числа и помещаем в правое окно.
3. Сумма выбранных чисел представлена в виде надписи.
4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в
строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: список флажков CheckListBox,
надпись Label, список ListBox.
3. Выполнить следующие действия:

Выделенный объект Вкладка окна
Object Inspector Имя свойства/имя события Действие
Form1 Properties Caption «Головоломка»
BorderStyle Задайте значение bsSingle
CheckListBox1(Вкладка Additional ) Properties Items Задаем состав списка. Щелкнуть на
кнопке построителя. Откроется окно
String List editor (Редактор списка
строк). Введите в список заданные
числа через Enter. Нажмите кнопку OK.
Height Подобрать значение так, что все числа
поместились в список (без полос
прокруток).
ListBox1
(Вкладка Standard) Properties Height Подобрать значение так, что все числа
поместились в список (без полос
прокруток). Первоначально список
пуст. Заполняться он будет при работе
программы.
Label1 Properties Caption Введите текст: «Сумма: 0»
Autosize Задайте значение False
Alignment Задайте значение taCenter

4. Соберите проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForm1.CheckListBox1ClickCheck (Sender: TObject);
var i, s: Integer;
begin
ListBox1.Clear;
for i: = 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
ListBox1.Items.Add (CheckListBox1.Items[i]);
s := 0;
for i := 0 to ListBox1.Items.Count -1 do
s := s + StrToInt(ListBox1.Items[i]);
Label1.Caption := ‘Сумма: ’ + IntToStr(s);
if s = 50 then
begin
Label1.Caption := ‘Сумма:’ + IntToStr (s);
CheckListBox1.Enabled := False;
ListBox1.Enabled := False;
end;
end;