Помогите с решением матрицы

drak

Есть две матрицы(a,b). Хочу в третьей матрице(c), куда попадают данные из первых двух, произвести такое вот действие:procedure TForm1.cxButton3Click(Sender: TObject);varx, y : integer;begin qq:= cxGrid2TableView1.DataController.RecordCount+2; q := cxGrid2TableView1.ColumnCount ;for x := 0 to qq-1 do for y := 0 to q-1 do begin c[x+1,y+1] := 0*b[i+1,j+1]-a[i+1,j+1]; end;end; А оно матюкается на Access violation at address......
4 ответа

drak

x и y есть, а i и j в упор не вижу.И, вообще, что-то некомпилиреемое написано.


drak

Может надо так:
<b>var</b>
x, y, i, j : integer;
<b>begin</b>
qq:= cxGrid2TableView1.DataController.RecordCount+<b>2</b>;
q := cxGrid2TableView1.ColumnCount ;

<b>for</b> x := <b>0</b> <b>to</b> qq-<b>1</b> <b>do</b> <b>begin</b>
<b>for</b> y := <b>0</b> <b>to</b> q-<b>1</b> <b>do</b>
<b>begin</b>
c[x+<b>1</b>,y+<b>1</b>] := <b>0</b>*b[i+<b>1</b>,j+<b>1</b>]-a[i+<b>1</b>,j+<b>1</b>];
<b>end</b>;
<b>end</b>;

<b>end</b>;


drak

Энерджайзер, ты ещё забыл додумать за автора, что такое q и qq.Вообще, формула заставляет задуматься, особенно умножение на ноль.


drak

Мой третий глаз подсказывает что:
q,qq:integer;
А на счет 0..... может он просто его поставил как временную заглушку?