1.Дано двузначное число. Определить: а) входит ли в него цифра 3;

б) входит ли в него цифра А.

2. Дано двузначное число. Определить:

а) входят ли в него цифры 4 или 7;

б) входят ли в него цифры 3, 6 или 9.

3. Дано трехзначное число. Определить:

а) входит ли в него цифра 6;

6) входит ли в него цифра N.

4. Дано трехзначное число. Определить:

а) входят ли в него цифрв1,4 или 7;

6) входят ли в него цифры 3, 6 или 9.

5. Дано четырехзначное число. Определить:

а) входит ли в него цифра 4;

б) входит ли в него цифра В.

6. Дано четырехзначное число. Определить:

а) входят ли в него цифры 2 или 7;

6) входят ли в него цифры 3, 6 или 9.

7. Дано натуральное число n (n 9999). Выяснить, является ли оно палиндромом ( перевертышем ), с учетом четырех цифр, как, например, числа 7777, 8338, 0330 и т.п. (палиндромом называется число, десятичная запись которого читается одинаково слева направо и справа налево).

8. Дано натуральное число n (n < 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры, если оно записано четырьмя цифрами, как, например, числа 3363, 4844, 0300 и т.п.

9. Дано натуральное число n (n < 9999). Выяснить, различны ли все четыре цифры этого числа (если оно записано четырьмя цифрами). Например, в числе 3678 все цифры различны, в числе 0023 — нет.

10. Определить, является ли заданное шестизначное число счастливым. (Счастливым называют такое шестизначное число, у которого сумма его первых трех цифр равна сумме его последних трех цифр.)

11. Имеются стол прямоугольной формы с размерамиа х b (а и b — целые числа, а >b) и кости домино с размерами с х d х е (с, d и е — целые числа, с >d> e). Найти вариант размещения на столе наибольшего количества костей. Все размещаемые кости должны лежать на одной и той же грани в один ярус без свешивания со стола. Все ребра костей домино должны быть параллельны или перпендикулярны каждой стороне стола.

12. Даны два прямоугольника, стороны которых параллельны или перпендикулярны осям координат. Известны координаты левого нижнего угла каждого из них и длины их сторон. Один из прямоугольников назовем первым, другой — вторым,

а) Определить, принадлежат ли все точки первого прямоугольника второму.

б) Определить, принадлежат ли.все точки одного из прямоугольников другому.

в) Определить, пересекаются ли эти прямоугольники.

Контрольные вопросы :

1. Особенность кнопок SpeedButton ?

2. Для чего используется свойство NumGlyphs компонента BitBtn ?

3. Какое свойство компонента BitBtn содержит набор стилей,?

4. С помощью какого свойства можно добавить рисункок на кнопку ?

Лабораторная работа № 21. Использование компонента таймер для управления при выполнении программы.

Цель работы: Изучить свойства компонента Timer. Написать программу.

Теория.

Разработаем программу, реализующую простой Секундомер. Эта программа будет отображать - Общее время и Время интервала, а также иметь три кнопки: Старт/Стоп, Интервал и Сброс. Законченный вид п риложения показан на рисунке.

Компонент Timer (Таймер) - небольшой хронометр, который работает в фоновом режиме и через регулярные интервалы времени "просыпается" и посылает сообщение приложению, вызывая обработчик события OnTimer. Вы можете включать и выключать таймер с помощью изменения его свойства Enabled (Доступен) и можете регулировать скорость таймера, изменяя его свойство Interval (Интервал).

Свойство таймера Интервал определяет количество миллисекунд (тысячных долей секунды) между событиями OnTimer (тактами). То есть, если Интервал устанавливается в 1000, то таймер будет передавать события OnTimer каждые 1000 миллисекунд (один раз в секунду). Установка интервала в 0 - то же самое, что отключение таймера. Максимальное значение интервала - 32767, т.е. один тик через 32.767 секунды.

1. Измените свойство Caption (Заголовок) формы на "Секундомер" - чтобы вы знали, над чем работаете

2. Разместите на форме два компонента Label, как показано на рисунке и измените их заголовки на ""Общее время" и "Время интервала".

3. Хотя две строки, отображающие время справа от меток, будут похожи на компоненты строки редактирования, в этой форме они будут компонентами Memo (Мемо-поля). Причина, по которой здесь используется компонент Memo в том, что у него есть свойство Aligment (Выравнивание), которое позволяет нам отображать текст выровненным вправо. Разместите компоненты Memo для метки "Общее время" как на рисунке и установите его размер высотой в одну строку.

4. Установите для этого компонента свойства, как показано в таблице 3.1. Мы устанавливаем свойства Enabled и TabStop (доступность мышкой и клавишей Tab) в False, чтобы Memo не мог быть выбран с помощью мышки или табуляции с клавиатуры. Мы это поле будем использовать только для отображения информации - ввода от пользователя в него не требуется. Поэтому мы изменили и свойство ReadOnly на True, что не позволяет пользователю изменять текст Memo, но не запрещает изменять его самой программе.

   Изменение свойств для отображения Общего времени
   Свойство	Значение
   Aligment	alRightJustify
   BorderStyle	bsSingle
   Enabled	False
   Name	TotalTime
   ReadOnly	True
   TabStop	False
   Lines	0.0

5. Memo "Время интервала" подобно уже созданному компоненту и поэтому для экономии наших сил и времени используйте процедуру "Копирование - Вставка". В форме появится новый компонент Memo, перекрывающий первый со смещением немного вправо и вниз. Он имеет все свойства компонента "Полное время", кроме имени и позиции. Переместите его в нужное место формы и установите имя LapTime.

6. Выберите компонент Timer на странице System палитры компонентов и поместите его на форму справа от двух Memo отображения времени. Установите для него свойство Enabled в True и установите Interval в 100, что даст вам десять тактов в секунду.

7. Сохраните результаты вашей работы командой SaveProject меню File в своей папке с именами TIMERFRM.PAS и SECONDMR.DPR.