Алгебра матриц

[kok222]

Прошу вас, помогите мне пожалуйста разработать приложение для windows в среде Delphi, реализующее решение следующие действия над матрицами:

-проверка равенства матриц;
-сложение(вычитание);
-возведение в степень;
-транспонирование;
-вычисление определителя матрицы;
-замена столбца матрицы;
-добавление нового столбца.

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

[danekne]

Умножение:

type
 TElem=integer;
const
 Count = 3; {кол-во столбцов и строк матрицы}
var
 Mat1, Mat2,                                     {вводимые матрицы}
 ResMat1 : array[1..Count, 1..Count] of TElem; {результирующая}
 i, x, y, R : integer;
 flag : boolean;

begin
 Writeln('Ввод первой матрицы (целые числа)');
 for y := 1 to Count do
  for x := 1 to Count do
  begin
   Write('Mat1[', x, ',', y,'] : ');
   Readln(Mat1[x, y]);
  end;
 Writeln('Ввод второй матрицы (целые числа)');
 for y := 1 to Count do
  for x := 1 to Count do
  begin
   Write('Mat2[', x, ',', y,'] : ');
   Readln(Mat2[x, y]);
  end;
 {подсчет матрицы AxB}
 for y := 1 to count do {спускаемся вниз по строкам}
  for x := 1 to Count do {идем по элементам строк вправо}
  begin
   R := 0;                          {обнуляем сумму произведений}
   for i := 1 to Count do           {идем под горизонтали Mat1 и по вертикали}
    r := R + mat1[y, i]*Mat2[i, x]; {Mat2; умножаем и добавляем в R}
   ResMat1[x, y] := R;              {Resmat1[x, y] = результат = R}
 end;
 Writeln('AxB='); {выводим на экран}
 for y := 1 to Count do
 begin
  for x := 1 to Count do
   Write(ResMat1[x, y]:4);
  Writeln;
 end;
END.

Определитель:

program denominator;
const
  MaxN=3;
  epsilon=1E-10
type
  matrix=array[1..maxN,1..maxN] of Real;
var
  a: matrix;
  i,j: integer;
  determ:real;

function det(a:matrix;n:integer):real;
var i,j,k:integer; d:real;
begin
  for i:=1 to pred(n) do begin
    if abs(a[i,i])<epsilon then begin
      det:=0.0; exit
    end;

    for j:=succ(i) to n do begin
      d:=a[j,i]/a[i,i];
      for k:=i to n do
        a[j,k]:=a[j,k]-d*a[i,k];
    end;
  end;

  d:=1.0;
  for i:=1 to n do d:=d*a[i,i];
  det:=d;
end;

begin
  for i:=1 to MaxN do
    for j:=1 to MaxN do read(a[i,j]);
  determ:=det(a,3);
  WriteLn(determ:0:0)
end.

Возведение в степень аналогично умножению. А вообще юзайте гугл! Все приведенные примеры кода нашлись за 5 минут

[RUSt88]

есть готовые реализации на C#, могу переписать на Delphi за небольшое вознаграждение

[kok222]

Мне надо создать программу, помогите((((

[Basing]

RUSt88 если ты сделаешь программу то я заплачу)

-проверка равенства матриц;
-сложение(вычитание);
-возведение в степень;
-транспонирование;
-вычисление определителя матрицы;
-замена столбца матрицы;
-добавление нового столбца

[RUSt88]

Basing, пиши, обязательно договоримся

[Basing]

куда писать?

[RUSt88]

куда писать?

мыло: nexx_mp[собака]mail.ru
ася: [семь 3]-[97]-[1 шесть]

[Basing]

вечерком напишу)

[Basing]

зайди в аську я тебе задание кину