Сложение, скалярное и векторное произведение векторов

  type
TMatrix = class
 private
  x : array [0..5,0..5] of integer;
  n : integer;
 public
   constructor Create ;
   function MatrixSum (s:integer) :integer;
   function MatrixToStr ( ) :string ;
 end;
operator +(const a , b : TMatrix )r: Tmatrix ;
operator -(const a , b : TMatrix )r : TMatrix ;
operator *(const a , b : TMatrix ) r : Tmatrix ;
operator *( const a : TMatrix ; b : integer ) r : TMatrix ;
var
  Form1: TForm1;
  matr1 : TMatrix ;
  matr2 : TMatrix ;
  matr3 : TMatrix ;
  matr4 : TMatrix ;
  matr5 : TMatrix ;
  matr6 : TMatrix ;
 
implementation
 
constructor TMatrix . Create ;
var i , j : integer ;
begin
randomize;
for i :=0 to 4 do
for j :=0 to 4 do
x [ i , j ] :=Random(10) ;
inherited Create ;
end;
 
operator +(const a , b : TMatrix )r : TMatrix ;
var i , j : integer ;
begin
r :=TMatrix . Create ;
for i :=0 to 4 do
for j :=0 to 4 do
r.x [i,j] :=a.x [i,j]+b.x[i,j];
end;
 
operator -(const a , b : TMatrix )r : TMatrix ;
var i , j : integer ;
begin
r :=TMatrix . Create ;
for i :=0 to 4 do
for j :=0 to 4 do
r.x [i,j] :=a.x [i,j]-b.x[i,j];
end;
 
operator *( const a , b : TMatrix ) r : TMatrix ;
var i , j , k : integer ;
begin
r :=TMatrix . Create ;
for i :=0 to 4 do
for j :=0 to 4 do
begin
r.x[i,j]:=0 ;
for k:=0 to 4 do
r.x[i,j]:= r.x[i,j]+a.x[i,k]*b.x[k,j];
end;
end;
 
operator *( const a : TMatrix ; b : integer ) r : TMatrix ;
var i , j : integer ;
begin
r :=TMatrix . Create ;
for i :=0 to 4 do
for j :=0 to 4 do
r.x[i,j]:=a.x[i,j]*b ;
end;
{$R *.lfm}
 
{ TForm1 }
function TMatrix . MatrixToStr ( ) : String ;
var i , j : integer ;
  s:string;
begin
s:=' ';
for i :=0 to 4 do begin
for j :=0 to 4 do
s :=s+IntTostr ( x [ i , j ])+'    ';
s :=s+chr ( 13 ) ;end;
MatrixToStr :=s ;
end;
 
 
function TMatrix .MatrixSum (s:integer) : integer ;
var i,j: integer;
  begin
  s:=0;
  for i:=0 to 4 do begin
  for j:=0 to 4 do begin
  s:=s + x[i,j];
  end;
  end;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var Str1 : String ;
  sum,k:integer;
begin
matr1:=TMatrix . Create ;
matr2:=TMatrix . Create ;
matr3:=TMatrix . Create ;
matr4:=TMatrix . Create ;
matr5:=TMatrix . Create ;
matr6:=TMatrix . Create ;
matr3:=matr1+matr2 ;
matr4:=matr1-matr2 ;
matr5:=matr1*matr2 ;
matr6:=matr1*5 ;
Str1:='Матрица 1 '+chr(13)+matr1.MatrixToStr( );
Label1.Caption:=Str1 ;
Str1:='Сумма элементов матрицы = '+IntToStr(matr1.MatrixSum(sum));
Label7.Caption:=Str1;
Str1 :='Матрица 2'+chr(13)+matr2 . MatrixToStr ( ) ;
Label2 . Caption:= Str1 ;
Str1 :='Матрица 1+Матрица 2'+chr(13)+matr3 . MatrixToStr ( ) ;
Label3 . Caption:= Str1 ;
Str1 :='Матрица 1-Матрица 2'+chr(13)+matr4 . MatrixToStr ( ) ;
Label4 . Caption:= Str1 ;
Str1 :='Матрица 1*Матрица 2'+chr(13)+matr5 . MatrixToStr ( ) ;
Label5 . Caption:= Str1 ;
Str1 :='Матрица 1*5'+chr(13)+matr6 . MatrixToStr ( ) ;
Label6 . Caption:= Str1 ;
end;
end.

var
  Form1: TForm1;
 
type T Vector = class
  protected
    Fx, Fy, Fz: double;
 
    function getLength: double;
  public
    constructor Create(aX, aY: double);
 
    procedure Add(vec: T2DVector);
    procedure Normalize;
 
    property X: Double read Fx write Fx;
    property Y: Double read Fy write Fy;
    property Length: Double: read getLength;
  end;
{$R *.lfm}
 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
begin
AB = (bx-ax,by-ay,bz-az);
\\где A и B - 2 точки, A(ax,ay,az) и B(bx,by,bz), A - начало вектора, B - конец вектора.
a(ax,ay,az):=StrToInt(Edit1.Text);
b(bx,by,bz):=StrToInt(Edit2.Text);
|AB| = sqrt((bx-ax)2+(by+ay)2+(bz-az)2);
Label7.Caption:=  |AB|;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
cd = (dx-cx,dy-cy,dz-cz);
c(cx,cy,cz):=StrToInt(Edit3.Text);
d(bx,by,bz):=StrToInt(Edit4.Text);
|CD| = sqrt((dx-cx)2+(dy+cy)2+(dz-cz)2);
Label8.Caption:=  |CD|;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
   ab + cd = (bx-ax + bx-ax, by-ay + by+ay, bz-az + bz-az)
  Label10.Caption:=  ;
  Label9.Caption:=  ab+cd;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  aB .cd = abxcdx + abycdy + abzcdz;
  Label11.Caption:=  ab .cd;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
cos α =  (bx-ax)/ |AB|;
cos β =  (by-ay)/ |AB|;
cos γ =  (bz-az)/ |AB|;
Label117.Caption:=   cos α ;
Label118.Caption:=   cos β ;
Label119.Caption:=   cos γ  ;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
cos α =  (dx-cx)/ |CD|;
cos β =  (dy-cy)/ |CD|;
cos γ =  (dz-cz)/ |CD|;
Label114.Caption:=   cos α ;
Label115.Caption:=   cos β ;
Label116.Caption:=   cos γ  ;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;