Класс в делфи

[take_off]

Помогите! Необходимо написать класс который хранит координаты двух точек и вычисляет расстояние между ними. Яндекс не сильно помог, не понимаю как реализовать вычисление свойства класса

[RUSt88]

еще актуально?

зачем классу хранить координаты? задача класса в чем? Вычислить расстояние между точками?

И отдельный класс тут неуместен, это обычная функция, к-рую можно запихать куда угодно, хоть в класс, хоть в процедуру

расстояние в чем нужно получить? см, мм, метры или пикселы?

[Kotlyar562]

Сообщение от RUSt88

И отдельный класс тут неуместен, это обычная функция, к-рую можно запихать куда угодно, хоть в класс, хоть в процедуру

Думаю у автора задание просто описать даный клас; это не часть большой программы.
Как пример:

  TDot= class(TObject)
    X1,Y1,X2,Y2 : real;
    function Lenc(x1,y1,x2,y2:real):real;
    constructor create;
   end;

   constructor TDot.create;
   begin
     writeln('vvedite koord 1j tochky');
     readln(x1,y1);
     writeln('vvedite koord 2j tochky');
     readln(x2,y2);
   end;

   function TDot.Lenc(X1,Y1,X2,Y2:real) :real;
   begin
     Lenc:=sqrt(sqr(X2-X1)+sqr(Y2-Y1));
   end;

[Alex Cones]

     writeln('vvedite koord 1j tochky');
     readln(x1,y1);
     writeln('vvedite koord 2j tochky');

Не проще?:

Constructor TDot.Create(_X1,_Y1,_X2,_Y2:Real);
 Begin
  X1 := _X1;
  Y1 := _Y1; 
  X2 := _X2;
  Y2 := _Y2;
 End;

[RUSt88]

вообще-то для координат точек предназначен TPoint

[Kotlyar562]

Сообщение от Alex Cones

Не проще?

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

[take_off]

всем спасибо огромное, разобрался. Класс нужен был потому-что задание такое было =) решение для первого класса-то что нужно для новичка. Остальные варианты для общего развития принял во внимание