Реализация объектной модели

4.1 Описание пользовательского интерфейса:

Главный интерфейс программы состоит из: Main Menu, меню создания и удаления объектов, изображения самого объекта, а так же выбора действий над объектами, таких как: вычисления площади поверхности и объема икосаэдра.

4.2 Описание сеанса с программой:

Начнем с Main Menu: в нем вы сможете узнать информацию о программе, а так же информацию об авторе программы. Далее вы должны создать объект, нажав кнопку “Создать”. После создания вы можете указать длину стороны икосаэдра, и вычислить площадь поверхности или объем, для этого так же имеются кнопки “Объем” и “Площадь поверхности”. Так же после создания объекта вы можете узнать информацию о нем, нажав на кнопку “Информация о объекте”, которая расположена под изображением объекта. После выполненной работы, вы можете повторить процедуры, удалив объект при помощи кнопки “Удалить”, при этом все окна будут очищены. Или же создать еще один объект и сравнить объемы созданных икосаэдров.

4.3 Реализация методов классов и объектов:

unit TheIcos;

interface

Type

TIcos = Class

Private

FSideX: Extended;

Public

Property SideX: Extended Read FSideX Write FSideX;

Function CalculateArea: Extended;

Function CalculateV: Extended; //объем

End;

implementation

Function TIcos.CalculateArea: Extended;

Begin

Result:=5*(Sqr(FSideX))*(Sqrt(3));

End;

Function TIcos.CalculateV: Extended;

Begin

Result:=(5/12)*(3*(Sqrt(5)))*(FSideX*FSideX*FSideX);

End;

end.

В данном модуле реализованы методы классов и объектов.

Private

FSideX: Extended;

Это сторона самого объекта.

Property SideX: Extended Read FSideX Write FSideX;

Function CalculateArea: Extended;

Function CalculateV: Extended;

Это его свойства и функции.

Function TIcos.CalculateV: Extended;

Begin

Result:=(5/12)*(3*(Sqrt(5)))*(FSideX*FSideX*FSideX);

End;

А это пример функции вычисления объема икосаэдра.

Дата добавления: 2015-07-12