возвести матрицу в степень !!!

[drylozav]

есть исходная динамическая матрица в stringgrid . по нажатию кнопки , матрица должна умножаться саму на себя . вывод осуществлять в том же stringgrid .
Народ прошу помочь , а то сам че та написать на могу

[Alex Cones]

Покажите, что написали.

Если ничего -
читаем маны по информатике - раздел Hello World на Delphi.
читаем маны по матану - раздел перемножение матриц - это не так просто, как кажется.

[drylozav]

var
k,i,j:integer;
s:real;
begin
for i:=0 to stringgrid1.colcount-1 do
for j:=0 to stringgrid1.rowcount -1 do begin
s:=0;
for k:=0 to stringgrid1.colcount -1 do
s:=s+stringgrid1.cells[k,i]*stringgrid1.cells[j,k];
stringgrid1.cells[j,i]:=s;

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

[Alex Cones]

Так, ясно...

курим: http://ru.wikipedia.org/wiki/%D0%9F%...80%D0%B8%D1%86

1) Считываем таблицу из Cells в два двумерных массива.
2) Производим матан. (Помним девиз - "не учишь матан - пойдешь на метан!")
3) Вставляем получившееся чудо обратно в Cells.

Если попытаетесь производить действия сразу - с вашим уровнем знаний запутаетесь.

[drylozav]

можно уточнить . то есть я должен создать такой же динамический массив , но не выводить его , а просто хранить его в памяти компьютера . а потом просто перемножать эти две матрицы , как рассказано в примере ? да ?

[Alex Cones]

Да, для вашего уровня знаний это будет самый простой и наглядный способ. Только не один массив, а два, т.к. первый во время перемножения будет изменяться.

[drylozav]

var
a:array of array of real;
b:array of array of real;
s:real;
n:integer;
i,j,k:integer;
begin
a[i,j]:=stringgrid1.cells[j,i];
b[i,j]:=stringgrid1.cells[j,i];
for i:=0 to n do
for j:=0 to n do begin
s:=0;
for k:=1 to n do begin
s:=s + a[i, k]*b[k, j];
         stringgrid1.cells := s;

Вот так правильно ??

если не так , то скажите какие нужно внести поправки .

[Alex Cones]

stringgrid1.cells[i,j] := s;

[drylozav]

а здесь нету ошибки . можете этот вариант написать без ошибок пожалуйста ?

скажите , а почему моя программа не работает ?? то есть вроде код написан верно , но она или зацикливает или пишет ошибку или вообще ничего не пишет ???
скажи те может для двух динамических матриц нужно ввести setlength ??
если кто то может напишите правильный работающий код или помогите доработать этот !!!
люди ил хотя бы дайте ссылки на какие нибудь схожие с моей темой задачи !!!!!!!!!

[Stilet]

Если я правильно понял задание то обработчик кнопки должен выглядеть так:

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
 with StringGrid1 do
  for i:=0 to RowCount-1 do
   for j:=0 to ColCount-1 do Cells[i,j]:=IntToStr(sqr(StrToInt(Cells[i,j])));
end;

Это если я правильно понимаю насчет умножения матрицы.