Написать класс - прямые на плоскости.

[Red Devel]

Ввести класс прямых на плоскости.
Поля-коэфиценты прямой (в любой форме)
свойства - коэфиценты
Методы - 1) вычисление точки пересечения двух прямых, 2)точка пересечения прямой с осью Ox.
Приветси пример использования этого класса.

в Delphi это надо сделать это кусочек....

заранее благодарен.

[Aristarh Dark]

Вот пример такого объекта, алгоритмы поиска точки пересечения и определения пересекаются ли прямые вообще - на самомтоятельную работу, т.к. там простая геометрия уровня школы.

interface
uses
  Types;
type
TLine = class
  private
    FX1:integer;
    FY1:integer;
    FX2:integer;
    FY2:integer;
    function GetCross(X1,Y1,X2,Y2:integer):TPoint;
    function isCrossed(X1,Y1,X2,Y2:integer):boolean;
  public
    constructor Create(X1,Y1,X2,Y2:integer);
    function GetCrossPoint(aLine:TLine):TPoint;
    function GetCrossPointX:TPoint;
    property X1: integer read FX1 write FX1;
    property Y1: integer read FY1 write FY1;
    property X2: integer read FX2 write FX2;
    property Y2: integer read FY2 write FY2;
end;

implementation

uses SysUtils;

{ TLine }

constructor TLine.Create(X1, Y1, X2, Y2: integer);
begin
  FX1:=X1;
  FY1:=Y1;
  FX2:=X2;
  FY2:=Y2;
end;

function TLine.GetCross(X1, Y1, X2, Y2: integer): TPoint;
begin
  //Тут дописать определение точки пересечения текущей прямой (FX1, FY1, FX2, FY2)
  //с прямой заданной точками X1, Y1, X2, Y2
end;

function TLine.GetCrossPoint(aLine: TLine): TPoint;
begin
  //Возвращает точку пересечения прямых
  if isCrossed(aLine.X1,aLine.Y1,aLine.X2,aLine.Y2) then
    Result:=GetCross(aLine.X1,aLine.Y1,aLine.X2,aLine.Y2)
  else
    raise Exception.Create('No Cross!!!');
end;

function TLine.GetCrossPointX: TPoint;
begin
  if isCrossed(0,0,1,0) then
    Result:=GetCross(0,0,1,0)
  else
    raise Exception.Create('No Cross!!!');
end;

function TLine.isCrossed(X1,Y1,X2,Y2:integer):boolean;
begin
  //Тут дописать "выяснение" пересекается ли текущая прямая (FX1, FY1, FX2, FY2)
  //с прямой заданной точками X1, Y1, X2, Y2
end;

end.

[Red Devel]

спасибо!!!! ток можешь плиз вместо коментов тоже дописать, не рулю.... хоть и задачка 10 класса. заранее благодарен...

[Aristarh Dark]

Раз задачка 10 класса, берешь в руки учебник по геометрии за 10 класс и вдумчево его читаешь

[Sibedir]

http://ru.wikipedia.org/wiki/Прямая

[Red Devel]

а можно эту программу переделать вот под эту? :
=================================== ======================
Ввести класс точек в пространстве со сферическими координатами.
Поля - координаты
Свойства - координаты
Методы - 1) вычисление расстояния между двумя точками, 2) вычислене расстояния до начала координат
Привети пример использования этого класса.
=================================== ======================

[Sibedir]

Ввести класс точек в пространстве со сферическими координатами.
Поля - координаты
Свойства - координаты
Методы - 1) вычисление расстояния между двумя точками, 2) вычислене расстояния до начала координат

В сферической системе координат одна из кооддинат (p) и есть расстояние до начала координат

А вообще см. здесь

[Red Devel]

11122222222222