Контрольные примеры

 

Контрольный пример 1.

Исходные данные: a =4; b =2; x =2; y =1.

Результат: ‘Точка принадлежит’.

 

Контрольный пример 2.

Исходные данные: a =4; b =2; x =2; y =0.

Результат: ‘Точка принадлежит’.

 

Контрольный пример 3.

Исходные данные: a =4; b =2; x =0; y =0.

Результат: ‘Точка принадлежит’.

 

Контрольный пример 4.

Исходные данные: a = 4; b =2; x =-2; y =1.

Результат: ‘Точка не принадлежит’.

 

Контрольный пример 5.

Исходные данные: a =4; b =2; x =2; y =3.

Результат: ‘Точка не принадлежит’.

Недостаток вышеприведенных алгоритмов и программ в том, что они не предусматривают контроль вводимой информации. Для лабораторной работы 1 контроль не обязателен. Дело в том, что для качественной реализации контроля понадобятся более сложные конструкции языка Delphi (например, оператор цикла repeat…until).

При разработке приложения с использованием компонентов Delphi форма приложения может иметь вид (рис. 1.7):

 

 

Рис. 1.7 Форма примера 1_2

 

Для создания формы с помощью Image Editor-а (меню Tools) создан рисунок (Bitmap File) и сохранен в папке с проектом. На форму поместили компонент страницы Additional Image, свойство Picture которого имя файла изображения.

Для выхода из программы используется компонент страницы Additional BitBtn, свойство Kind которого Close.

Чтобы не повторять несколько раз присваивание Lbl6.Caption, воспользовались флажком Flag булевского типа.

 

Текст Unit-а может быть следующим:

 

unit Unit1;

{Даны координаты точки М(х, у). Определите, принадлежит ли данная точка замкнутому множеству D. D -

прямоугольник с координатами вершин (0; 0), (a; 0),

(a; b), (0; b) (a> 0; b> 0).

Исходные данные: a, b, x, y.

Результат: сообщение на экране " Принадлежит"

или " Не принадлежит"

}