Матрицы, StringGrid, перемножение.

@Krank · Регистрация: 19.05.2013

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

Добрый день уважаемые господа. ПРошу Вашей помощи.
Необходимо перемножить 2 матрицы заданные StringGrid'ами, результаты записать в 3-ий StringGrid.
Вот что я "сваял"

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
void MultiSG (TStringGrid* SG1,TStringGrid* SG2,TStringGrid* SG3)
{
int SG1Col, SG2Col, SG1Row, SG2Row, SG3Row, SG3Col,i,j,k;
float ad;
 
SG1Col=SG1->ColCount;
SG1Row=SG1->RowCount;
 
SG2Col=SG2->ColCount;
SG2Row=SG2->RowCount;
 
SG3Col=SG3->ColCount;
SG3Row=SG3->RowCount;
 
 for (i=0;i<=SG1Row;i++)
      { for (j=0;j<=SG2Col;j++)
        {
                ad=0;
                }
        for (k=0;k<=SG2Row;k++)
            {
                        ad=ad+StrToFloat(SG1->Cells[i][k])*StrToFloat(SG2->Cells[k][j]);
                        SG3->Cells[i][j]=FloatToStr(ad);
                        }
          }
}

Однако при попытки выполнить перемножение возникает ошибка EAccessViolation

Пробовал использовать строгие неравенства - положительный эффект не замечен...

Подскажите что изменить?
Премного благодарен за внимание.

@Lord_Voodoo · 14.11.2007, 20:15

я, конечно, не компилятор, но вот кое-что в твоем скрипте смущает:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
void MultiSG (TStringGrid* SG1,TStringGrid* SG2,TStringGrid* SG3)
{
int SG1Col, SG2Col, SG1Row, SG2Row, SG3Row, SG3Col,i,j,k;
float ad;
 
SG1Col=SG1->ColCount;
SG1Row=SG1->RowCount;
 
SG2Col=SG2->ColCount;
SG2Row=SG2->RowCount;
 
SG3Col=SG3->ColCount;
SG3Row=SG3->RowCount;
 
 for (i=0;i<=SG1Row;i++){   
   for (j=0;j<=SG2Col;j++){ // ты в этом цикле доходишь до конца, а потом обращаешься
                                     // к несуществующей ячейки   
     ad=0;
   }
   for (k=0;k<=SG2Row;k++)  {
     ad=ad+StrToFloat(SG1->Cells[i][k])*StrToFloat(SG2->Cells[k][j]);
     SG3->Cells[i][j]=FloatToStr(ad);
   }
}
}

неравенства действительно должны быть строгими или хотя бы в твоем случае -1 не повредит

@POPOV · 14.11.2007, 22:11

Выкладываю код своей задачи. Ток у меня вводится размерность первой и второй матрицы в Edit'ы. (например 2,2 или 2,3 ... ).

Вот процедуры обработки событий:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TForm1.Button7Click(Sender: TObject); // Создание матрицы 1 (TStringGrid1)
var s:string;
begin
s:=edit1.text;
A_r:=StrToInt(Copy(S,1,Pos(',',s)-1));
A_c:=StrToInt(Copy(S,Pos(',',s)+1,Length(s)));
B_r:=A_c;
StringGrid1.ColCount:=A_c;
StringGrid1.RowCount:=A_r;
StringGrid1.height:=A_r*StringGrid1.DefaultRowHeight+10;
StringGrid1.Width:=A_c*StringGrid1.DefaultColWidth+10;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject); // Создание матрицы 2(TStringGrid 2)
var s:string;
begin
s:=edit5.text;
B_r:=StrToInt(Copy(S,1,Pos(',',s)-1));
B_c:=StrToInt(Copy(S,Pos(',',s)+1,Length(s)));
StringGrid2.ColCount:=B_c;
StringGrid2.RowCount:=B_r;
StringGrid2.height:=B_r*StringGrid1.DefaultRowHeight+10;
StringGrid2.Width:=B_c*StringGrid1.DefaultColWidth+10;
 
end;
 
procedure TForm1.Button8Click(Sender: TObject); // Перемножение матриц по нажатии на кнопку "Вычислить"
var
i,j,ad,s,k:integer;
begin
for i:=0 to A_r-1 do
for j:=0 to A_c-1 do
begin
ad:=0;
for k := 0 to B_r-1 do
ad:=ad+strtoint(StringGrid1.Cells[k,i]) * strtoint(StringGrid2.Cells[j,k]);
StringGrid3.ColCount:=ad;
StringGrid3.RowCount:=ad;
StringGrid3.height:=ad*StringGrid1.DefaultRowHeight+10;
StringGrid3.Width:=ad*StringGrid1.DefaultColWidth+10;
StringGrid3.Cells[j,i]:=Inttostr(ad);
 
end;
end;

На форме помимо 3-х TStringGrido'в размещаешь 2 объекта TEdit для ввода размерности первой и второй матрицы, размещаешь 2 кнопки Button для создания первой и второй матрицы в TStringGrid'ах, и кнопку Button для вычисления (перемножения). Да, забыл, переменные A_c, A_r, B_c, B_r объяви как глобальные.

На всякий случай прикрепил тут архив со своей прогой (Смотри закладку TStringGrid в проге).

@Lord_Voodoo · 15.11.2007, 09:29

ничего не понял, в чем вопрос? не осилил... в чем сейчас проблема...

@POPOV · 15.11.2007, 09:39

Сообщение от WooDooMan666

ничего не понял, в чем вопрос? не осилил... в чем сейчас проблема...

Да я просто выложил код задачи товарищу krank )
А ты подумал, что я за помощью опять ?)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	15.11.2007, 09:29
	ничего не понял, в чем вопрос? не осилил... в чем сейчас проблема... 0