Курсовая работа: Разработка класса прямоугольников

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

Заключение

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

Список литературы

1. Климова Л.М. Delphi 7. Основы программирования. Решение типовых задач. Самоучитель. Издание третье.- М.: КУДИЦ- ОБРАЗ, 2006.- 480 с.

2. Хомоненко А.Д. и др. Delphi 7/ Под общ. Ред. А.Д. Хомоненко.- СПб: БХВ- Петербург, 2005.- 1216 с.

3. Бобровский С.И. Delphi 7. Учебный курс- СПб: Питер, 2005.- 736 с.

4. http://khpi-iip.mipk.kharkiv.edu/library/case/leon/gl3/gl3.html

5. http://khpi-iip.mipk.kharkiv.edu/library/case/leon/gl5/gl5.html

6. Павловская Т.А. Программирование на языке высокого уровня – СПб: Питер, 2006.

7. Поган А.М. Руководство программиста – «Эскимо», 2006.

8. Лесневский А.С. Объектно-ориентированное программирование

9. Иванова Г.С. Объектно-ориентированное программирование – М, 2003.

Приложение А

класс прямоугольник программа интерфейс

Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Unit2;

type

TForm1 = class(TForm)

ListBox1: TListBox;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

sel2: TLabel;

sel1: TLabel;