Матрицы, 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 )
А ты подумал, что я за помощью опять ?)

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

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