Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
TForm1 = class(TForm)
private
{ private declarations }
public
{ public declarations }
end;
{ Tline }
{$M+}
Tline=class
private
Fa: integer;
Fb: integer;
procedure Seta(const AValue: integer);
procedure Setb(const AValue: integer);
published
property a:integer read Fa write Seta;
property b:integer read Fb write Setb;
function uravnenie():string;
function peresechYin():real;
function peresechXin():real;
function perpendicular(L1:TLine):boolean;
function ugol(L1:TLine):real;
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ Tline }
procedure Tline.Seta(const AValue: integer);
begin
if Fa=AValue then exit;
Fa:=AValue;
end;
procedure Tline.Setb(const AValue: integer);
begin
if Fb=AValue then exit;
Fb:=AValue;
end;
function Tline.uravnenie(): string;
begin
result:='y=x'+IntToStr(a)+'+'+IntToStr(b);
end;
function Tline.peresechYin():real;
begin
result:=b/-a;
end;
function Tline.peresechXin(): real;
begin
result:=b;
end;
function Tline.perpendicular(L1: TLine): boolean;
begin
result:=false;
if a*L1.a=-1 then result:=true;
end;
function Tline.ugol(L1: TLine): real;
begin
result:=arctan((L1.a-a)/1+(L1.a*a));
end;
end.
кстате TLabel для отображения результатов сравнения прямых график что ли???
