Умножение матриц

@Dimon1992 · Регистрация: 05.07.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте,пишу программу ,которая выполняет действия над матрицами
проблема в умножении матриц!большинство примеров программа считает правильно,но вот ,например,
1 2
43
на
-0,6 0,4
0,8 -0,2
она выдает неправильный ответ в чем может быть дело???
вот код

Delphi

procedure TForm1.Getmatrix;
begin
      for i:=1 to N do
           for j:=1 to N do
  A[i,j]:=strToFloat(Matrix_A.Cells[j-1,i-1]);
for i:=1 to N do
for j:=1 to N do
          B[i,j]:=strToFloat(Matrix_B.Cells[j-1,i-1]);
             end;
procedure TForm1.Button7Click(Sender: TObject);
begin
      for k:=1 to N do
           for i:=1 to N do
               D[k,i]:=0;
 Getmatrix;
 for k:=1 to N do
 for i:=1 to N do
 begin
  for j:=1 to N do
  D[k,i]:=D[k,i]+A[k,j]*B[j,i];
  end;
  for i:=1 to N do
  for j:=1 to N do
  Matrix_C.Cells[j-1,i-1]:=FloatTostr(D[i,j]);
end;

@Puporev · 31.07.2011, 13:37

Delphi

for k:=1 to N do
for i:=1 to N do
 begin
  D[k,i]:=0; //попробуйте обнулять здесь
  for j:=1 to N do
  D[k,i]:=D[k,i]+A[k,j]*B[j,i];
 end;

@Dimon1992 · 31.07.2011, 13:43 **[ТС]**

тоже самое!самое странное то ,что она выдает ответ
1 0
2,20 1
вместо еденичной матрицы

@Puporev · 31.07.2011, 14:20

Напиши так.

Delphi

1	StringGrid3.Cells[j-1,i-1]:=FloatTostrF(D[i,j],ffFixed,5,1);//или 4,0

@Dimon1992 · 31.07.2011, 14:29 **[ТС]**

выскакивает ошибка
[Error] Unit1.pas(241): Too many actual parameters

@Puporev · 31.07.2011, 14:32

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

Delphi

1
2
3

for i:=1 to N do
for j:=1 to N do
StringGrid3.Cells[j-1,i-1]:=FloatTostrF(D[i,j],ffFixed,5,1);

@Dimon1992 · 31.07.2011, 14:39 **[ТС]**

спасибоооо огромное вам

@Dimon1992 0 / 0 / 0 Регистрация: 05.07.2011 Сообщений: 26
	31.07.2011, 13:43 [ТС]	3
	тоже самое!самое странное то ,что она выдает ответ 1 0 2,20 1 вместо еденичной матрицы 0

@Dimon1992 0 / 0 / 0 Регистрация: 05.07.2011 Сообщений: 26
	31.07.2011, 14:29 [ТС]	5
	выскакивает ошибка [Error] Unit1.pas(241): Too many actual parameters 0

@Dimon1992 0 / 0 / 0 Регистрация: 05.07.2011 Сообщений: 26
	31.07.2011, 14:39 [ТС]	7
	спасибоооо огромное вам 0

Опции темы