Робота с классами и инкапсуляция.!!((

[@NDREYK@]

ЛАБОРАТОРНАЯ РАБОТА № 1
Тема: Объектно-ориентированное программирование. Классы. Инкапсуляция.

Цель: Научиться описывать классы.

Усвоить понятия:
• ОО методология создания программ;
• цели ОО-программирования;
• основные принципы ОО методологии;
• класс, экземпляр класса, объект;
• атрибуты, методы объекта;
• протокол класса;
• инкапсуляция;
• уровни видимости;
• переопределение метода;
• конструктор, деструктор.
Уметь:
• описывать класс;
• определять протокол класса.
Индивидуальные задания

Описать классы по приведенным ниже протоколам.

Сохранить описания каждого класса в отдельном модуле.

Написать программы для демонстрации всех методов описанных классов.

I. Класс точек в пространстве
Код:
type
TPoint = class
//------------------------- Атрибуты ---------------------- -------------------------------------------------- ----

X, Y, Z: Real; // координаты точки в пространстве

//------------------------- Методы - конструкторы -------------------- ---------------------------------------

constructor Create; overload; // создать точку (0; 0; 0)

constructor Create (X, Y, Z: Real); overload; // создать точку с заданными координатами

constructor CreateRead; // создать точку, координаты ввести с клавиатуры

//------------------------- Методы ---------------------- -------------------------------------------------- ----

function GetX: Real; // получить координату X

function GetY: Real; // получить координату Y

function GetZ: Real; // получить координату Z

procedure SetX (X: Real); // установить координату X

procedure SetY (Y: Real); // установить координату Y

procedure SetZ (Z: Real); // установить координату Z

procedure MoveVector (A, B, C: Real);
// Перемещение точки в направлении вектора (A, B, C)

function GetSphericalDistance: Real;
// Получить координату "расстояние" в сферической системе координат

function GetSphericalAngleX: Real;
// Получить значение угла от оси OX в сферической системе координат

function GetSphericalAngleZ: Real;
// Получить значение угла от оси OZ в сферической системе координат

procedure SphericalToCartesian (Distance, AngleX, AngleZ: Real;
var coordX, coordY, coordZ: Real);
// Переход от сферической системы координат к декартовой

procedure CartesianToPolar (coordX, coordY, coordZ: Real; var Distance, AngleX, AngleZ: Real);
// Переход от декартовой системы координат к полярной
end;

[Пепел Феникса]

и что не получается?

[@NDREYK@]

ну там же написано в индивидуальном задании.. если я чего-то не догоняю, то объясните мне пожалуйста что и как тут делать??? Я нубас в делфи..((