Класс (паскаль)

[Valik_000]

Помогите пожалуйста написать просто класс . =(((
Пожалуйста (((
Ввести класс для работы с прямоугольной матрицей. Реализовать следующие операции:
a. создать инверсную матрицу.
b. сложение (вычитание) двух матриц;
c. умножение матриц.

[Valik_000]

Помогите пожалуйста (

[s-andriano]

Как можно помочь тому, кто сам ничего не делает?
Только ничего не делать вместе с ним.

[Valik_000]

Я просто не знаю как описать инверсную матрицу(((

[Valik_000]

Можете сказать где я ошибся ?

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils;

const n_s = 100; m_s = 100;

type massiv = array [0..n_s,0..m_s] of integer;
type r_massiv = array [0..n_s,0..m_s] of real;


type TMatrix = class
FMatrix : massiv;
constructor Create (n: byte; m: byte);
procedure Invers (n: byte; m: byte; var k_mas: r_massiv);
procedure Summ (s_mas: massiv; var k_mas: massiv);
procedure Umn (m_mas: massiv; var k_mas: massiv);
end;

implementation

constructor TMatrix.Create (n: byte; m: byte);
var
i, j : byte;
begin
randomize;
for i := 0 to n do
for j := 0 to m do
FMatrix[i,j] := random (100)-10;
end;

procedure TMatrix.Invers (n: byte; m: byte; var k_mas: r_massiv);
var
i, j : integer;
begin
for i := 0 to n_s do
for j := 0 to m_s do
k_mas[i,j] := 1 / FMatrix[i,j];
end;

procedure TMatrix.Summ (s_mas: massiv; var k_mas: massiv);
var i, j : byte;
begin
for i := 0 to n_s do
for j := 0 to m_s do
k_mas[i,j] := FMatrix[i,j] + s_mas[i,j];
end;

procedure TMatrix.Umn (m_mas: massiv; var k_mas: massiv);
var i, j : byte;
begin
for i := 0 to n_s do
for j := 0 to m_s do
k_mas[i,j] := FMatrix[i,j] * m_mas[i,j];
end;

end.

[Valik_000]

помогите люди

[BDA]

Если говорить о формулах (не писал классов в дельфи; у вас же не паскаль, а object pascal), то у Вас только сложение (вычитание) правильно реализовано (сам подсчет).
Если инверсная матрица, это обратная, то - http://ru.wikipedia.org/wiki/Обратная_матрица.
Также, к ознакомлению - http://ru.wikipedia.org/wiki/Умножение_матриц.