[@NDREYK@]

Ниже на русском задание....ПОМОГИТЕ нубасу в делфе...(

[Admin]

Сообщение от @NDREYK@

ЛАБОРАТОРНА РОБОТА № 1
Тема: Об’єктно-орієнтоване програмування. Класи...

Еще раз и по-русски.

[Assistant]

ЛАБОРАТОРНАЯ РАБОТА № 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;

P.S.: вот что значит на работе делать нефиг ))

[@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@]

Ну, так как кто-то сможет помочь, очень надо!!!

[Assistant]

советую почитать вот это, особенно если учитесь на программиста. Там читать от силы 2-3 часа, потом спрашивайте что не понятно.