VPF::умножение двумерных массивов - Форум программистов

mishamusha

Дата 28.9.2014, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.10.2013

Репутация: нет
Всего: нет

здравствуйте, вводятся 2 матрицы в memo1 и memo2. Размерность задается с помощью SpinEdit. Мне нужно перемножить 2 матрицы одинаковой размерности, вообщем я ввожу матрицы в мемо1 и мемо 2 но результат выходит нулевая матрица.
вот код этого участка:

Код


procedure TForm2.Button3Click(Sender: TObject);
var
   i,j:integer;
   temp:string;
begin
 
   Form3.Memo1.Clear;
   for i:=1 to rowcount do
   begin
   temp:= ' ';
   for j:=1 to colcount do
   begin
      s[i,j]:=s[i,j]+r[i,j]*q[i,j];
      temp:=temp+floattostr(s[i,j])+ ' ';
          end;
      Form3.Label1.Visible:=true;
      Form3.Label1.Caption:='A*B';
      form3.Show;
      Form3.Memo1.Lines.Add(temp);
      temp:= ' ';
 
       end;

P.s. проект приложил

Присоединённый файл ( Кол-во скачиваний: 1 )

PR_5_1.rar 190,22 Kb

mishamusha

Дата 28.9.2014, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.10.2013

Репутация: нет
Всего: нет

прошу хоть кто то обьясните в чем моя проблема.. индексы не те ?? или цикла может не хватает??

drkot

Дата 28.9.2014, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: нет
Всего: 8

пройдитесь отладчиком и посмотрите пошагово

--------------------

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

mishamusha

Дата 28.9.2014, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 29.10.2013

Репутация: нет
Всего: нет

Цитата(drkot @ 28.9.2014, 20:45)

пройдитесь отладчиком и посмотрите пошагово

кое что усмотрел, что не хватает еще одного цикла что то типа for k = 1 to <что-то там> do
s[i,j] := s[i,j] + r[i,k]*q[k,j]

drkot

Дата 29.9.2014, 08:02 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: нет
Всего: 8

в коде вообще не понятно, что именно Вы там делаете

Цитата(mishamusha @ 28.9.2014, 18:46

)

form3.Show;

зачем форму в цикле показывать?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »