Доброго времени суток!
Помогите пожалуйста решить задачу. Задали по ООП, которое начали изучать в этом году. Задача связана с массивами, которые я не представляю даже как связать с формой(( Буду очень благодарна.
Вот задание: Дано: матрица А(4*4) и матрица В(4*4).
Нужно создать матрицу С. С=А*В. и найти минимальное значение массива А и массива В.Причем на форме должно быть три таблицы StringGrid. Первая для матрицы А, вторая для В, третяя ----> C; две кнопки Button1(вычислить), Button2(очистить), BibBtn (закрыть).
P.S : преподователь по ООП сказал что эту задачу можно решить с помощью трех цикло в for и одной строки.
StringGrid, произведение двух массивов размером 4*4.
недорого, быстро
icq:3(один)7748666
mail:airyashov( а)inbox.ru
mail:airyashov( а)inbox.ru
Произведение именно массивов? Ты серьёзно? Произведение бывает: числет, векторов (в мат. смысле) и матриц. Всё остальное стандартных правил умножения не имеет.
Вопрос: "Почему вы все сионисты? Нельзя ли писать на чём то другом?".
Ответ: "Писать можно на чём угодно. Но зачем же так себя ограничивать? Пиши на С!".
Ответ: "Писать можно на чём угодно. Но зачем же так себя ограничивать? Пиши на С!".
Обращайтесь. Обязательно договоримся! 255507394
Мои мысли настолько гениальны, что санитары уже приехали!
Ася 255507394.
Ася 255507394.
-
- Сообщения: 526
- Зарегистрирован: 03 янв 2009, 23:17
- Откуда: Voronezh
- Контактная информация:
Надо кинуть на форму 3 стринггрида. Первые 2 можно заполнить в событие FormCreate, а третий соответсвенно по нажтию Button1. Чтобы заполнить первые два хватит одного цикла, так как размерности матриц одинаковы.
[syntax="Delphi"]
for i:=1 to 4 do
for j:=1 to 4 do
begin
str(A[i,j],StringGrid1.Cells[i,j]);
str(B[i,j],StringGrid2.Cells[i,j]);
end;
[/syntax]
Button1Click. Если в это событие включить заполнение A и B, то как раз и получится 3 цикла.
[syntax="Delphi"]
for i:=1 to 4 do
for j:=1 to 4 do
begin
pr1:=1;
pr2:=1;
for k:=1 to 4 do
begin
pr1:=pr1*A[i,k];
pr2:=pr2*B[k,j];
end;
C[i,j]:=pr1+pr2;
str(C[i,j],StringGrid3.Cells[i,j]);
end;
[/syntax]
[syntax="Delphi"]
for i:=1 to 4 do
for j:=1 to 4 do
begin
str(A[i,j],StringGrid1.Cells[i,j]);
str(B[i,j],StringGrid2.Cells[i,j]);
end;
[/syntax]
Button1Click. Если в это событие включить заполнение A и B, то как раз и получится 3 цикла.
[syntax="Delphi"]
for i:=1 to 4 do
for j:=1 to 4 do
begin
pr1:=1;
pr2:=1;
for k:=1 to 4 do
begin
pr1:=pr1*A[i,k];
pr2:=pr2*B[k,j];
end;
C[i,j]:=pr1+pr2;
str(C[i,j],StringGrid3.Cells[i,j]);
end;
[/syntax]
Нет религии выше истины