помогите пожалуйста с програмой (описание класса)

[*13*]

вобщем, задали мне программу по созданию класса. я, дурень, лекции не слушал, писал не всё- и теперь сижу, просто неоткуда отступать, недостаток информации
класс совсем маленький, умея их описывать займет совсем небольшое время написание программы. не могли бы вы помочь? заранее большое спасибо.
Реализовать класс и операции над ним для работы с объектом.
Вектор задан в трехмерном евклидовом пространстве. Задается тройкой своих координат. Реализовать:
- сложение( вычитание ) векторов
A(x1,y1,z1)}} C(x1 +- x2, y1 +- y2, z1 +- z2)
B(x2,y2,z2)}}
- скалярное произведение векторов
AB = x1*x2+y1*y2+z1*z2
- умножение вектора на скаляр
допустим скаляр это число N . и дан вектор A (x,y,z) в результате выйдет вектор C(x*n,y*n,z*n) если я ничего не путаю
созданная мною форма для удобства тех уважаемых господ, которые мне помогут, прилагается.
п.с. мне бы хотябы граммотное описание класса, и хоть 1 пример работы с векторами. остальное, я думаю , дойдёт само собой =))

[Yogrik]

вобщем, задали мне программу по созданию класса. я, дурень, лекции не слушал, писал не всё- и теперь сижу, просто неоткуда отступать, недостаток информации

Отступать всегда есть куда, например в армию
А бы перефразировал:

вобщем, дали мне проект на 5000$.
Не могли бы вы его сделать за меня.
PS Деньги за проект оставлю себе

созданная мною форма для удобства тех уважаемых господ, которые мне помогут, прилагается.

Интересно для какого удобства???
В ТЗ я не заметил что класс должен быть визуальным.

п.с. мне бы хотябы граммотное описание класса, и хоть 1 пример работы с векторами. остальное, я думаю , дойдёт само собой =))

Мне интересно что значит "грамотное описание класса"...

Как пример:

Код: Выделить всё

mVector = Class
  private
    FX,FY,FZ : integer;

  public
    constructor Create(x,y,z:integer);
    procedure Inc(a : mVector);
    procedure Dec(a : mVector);
    procedure Multiplication(i : integer);

    property x : integer read fx;
    property y : integer read fy;
    property z : integer read fz;
end;

function Innerproduct(a,b : mVector) : integer;
begin
  result := a.x*b.x + a.y*b.y + a.z*b.z;
end;

constructor mVector.Create(x,y,z:integer);
begin
  fx := x;
  fy := y;
  fz := z;
end;

procedure mVector.Inc(a : mVector);
begin
  fx := fx + a.x;
  fy := fy + a.y;
  fz := fz + a.z;
end;

procedure mVector.Dec(a : mVector);
begin
  fx := fx - a.x;
  fy := fy - a.y;
  fz := fz - a.z;
end;

procedure mVector.Multiplication(i : integer);
begin
  fx := fx * i;
  fy := fy * i;
  fz := fz * i;
end;


[*13*]

вобщем, задали мне программу по созданию класса. я, дурень, лекции не слушал, писал не всё- и теперь сижу, просто неоткуда отступать, недостаток информации

Отступать всегда есть куда, например в армию
А бы перефразировал:

вобщем, дали мне проект на 5000$.
Не могли бы вы его сделать за меня.
PS Деньги за проект оставлю себе

созданная мною форма для удобства тех уважаемых господ, которые мне помогут, прилагается.

Интересно для какого удобства???
В ТЗ я не заметил что класс должен быть визуальным.

п.с. мне бы хотябы граммотное описание класса, и хоть 1 пример работы с векторами. остальное, я думаю , дойдёт само собой =))

Мне интересно что значит "грамотное описание класса"...

Как пример:

Код: Выделить всё

mVector = Class
  private
    FX,FY,FZ : integer;

  public
    constructor Create(x,y,z:integer);
    procedure Inc(a : mVector);
    procedure Dec(a : mVector);
    procedure Multiplication(i : integer);

    property x : integer read fx;
    property y : integer read fy;
    property z : integer read fz;
end;

function Innerproduct(a,b : mVector) : integer;
begin
  result := a.x*b.x + a.y*b.y + a.z*b.z;
end;

constructor mVector.Create(x,y,z:integer);
begin
  fx := x;
  fy := y;
  fz := z;
end;

procedure mVector.Inc(a : mVector);
begin
  fx := fx + a.x;
  fy := fy + a.y;
  fz := fz + a.z;
end;

procedure mVector.Dec(a : mVector);
begin
  fx := fx - a.x;
  fy := fy - a.y;
  fz := fz - a.z;
end;

procedure mVector.Multiplication(i : integer);
begin
  fx := fx * i;
  fy := fy * i;
  fz := fz * i;
end;


дружище, ты что, какие 5000 штук )) я первокурсник разве за такой примитив дадут такие деньги? в армию както не хочеться )) грамотное описание класса- это то что ты сделал, за что тебе повторное спасибо

[Yogrik]

дружище, ты что, какие 5000 штук ))

Разве много???

я первокурсник

Это понятно

разве за такой примитив дадут такие деньги?

Если бы это был примитив, то ты бы не просил помощи....

грамотное описание класса- это то что ты сделал, за что тебе повторное спасибо

Я бы с этим определением поспорил....


В каком городе живешь и где учишься???
Если не секрет, просто интересно....

[*13*]

дружище, ты что, какие 5000 штук ))

Разве много???

я первокурсник

Это понятно

разве за такой примитив дадут такие деньги?

Если бы это был примитив, то ты бы не просил помощи....

грамотное описание класса- это то что ты сделал, за что тебе повторное спасибо

Я бы с этим определением поспорил....


В каком городе живешь и где учишься???
Если не секрет, просто интересно....

не секрет живу в Одессе, учусь в Одесской Государственной Академии Холода, на факе информационные технологии проектирования.
можно ещё вопросик? почему function Innerproduct не принадлежит к классу MVector и нигде не описана? я так понимаю, это нахождение скаляра...

[Yogrik]

По идеи Innerproduct и не должна принадлежать классу.....

Но тебе ни кто не мешает в нести ее в класс, тем более что пример у тебя уже есть....

[shade]

{offtop}
По идеи здесь вообще не нужен класс, хватит структуры, т.е. записи (record) и пары функций. На FPC вообще можно операторы перегрузить... но это из другой оперы - то чему не учат в школе..

Вообще на классы обычно стеки/деки/очереди задают
{/offtop}