ЗАДАЧА

← →
Ded © (2006-11-17 07:52) [0]

Помогите пожалуйста решить задачу:
-------------------------
Составить программу, которая для задаваемых натуральных значений N и M не больших 10, принимает значение элемента массивов A(n,m) и B(m,n). Интерпретируя массивы A(n,m) и B(m,n) как матрицы, формирует массив C(n,m), являющееся произведением матриц A и B:
...формула(скачать - http://slil.ru/23392510)...
и выводит массив C(n,n) на экран дисплея.
И ее надо сделать не консольную, если можно.
Буду очень благодарен тому кто поможет!

← →
Думкин © (2006-11-17 08:47) [1]

Насколько благодарен?

← →
Сергей М. © (2006-11-17 08:47) [2]

> Ded © (17.11.06 07:52)

> Помогите

Чем же тебе помочь ?

← →
ЮЮ © (2006-11-17 08:48) [3]

а почему бы и зажачки мо математике здесь не выложить?
На этом форуме не решают задачки за других, а помогают тем, кто решает сам и у кого возниают проблемы именно в ходе самомтоятельного решенияю

← →
ЮЮ © (2006-11-17 08:53) [4]

Кстати, произведением матриц A(n,m) и B(m,n) будет матрица размерностью (n, n). так что твоя задача - в общеизвестных рамках - решения не имеет. А изучать твою теорию матриц ради элементарнейщих циклов, текст которых наверняка был в лекциях, нет ни малейшего желания

← →
Думкин © (2006-11-17 08:57) [5]

> ЮЮ © (17.11.06 08:53) [4]

Ему и нужно (n,n) о чем радостно и написал в сабже.

← →
Думкин © (2006-11-17 08:58) [6]

> Думкин © (17.11.06 08:57) [5]

Правда в двух местах с противоречием. От сессии до сессии...

← →
ЮЮ © (2006-11-17 09:00) [7]

формирует массив C(n,m)
и выводит массив C(n,n)

Вывести можно и просто С(0, 0), но сформировать-то надо C(n,m) !!!

← →
Ded © (2006-11-17 09:20) [8]

Ну а если эту задачу сделать консольную, то такой вариант:
program mulmatr;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, c: array[0..9, 0..9]of Real;
i, j, k, m, n: Byte;
begin
repeat
Write("Enter m or press Ctrl-c to exit:");
Readln(m);
until m <= 10;
repeat
Write("Enter n or press Ctrl-c to exit:");
Readln(n);
until n <= 10;
for i := 1 to m do
for j := 1 to n do
begin
Write("A[",i, ";", j, "] = ");
Readln(a[i-1, j-1]);
Write("B[",i, ";", j, "] = ");
Readln(b[i-1, j-1]);
end;
for i := 0 to m-1 do
for j := 0 to n-1 do
begin
c[i, j] := 0;
for k := 0 to m-1 do
c[i, j] := c[i, j] + a[i, k]*b[i, k];
end;
for i := 1 to m do
for j := 1 to n do
Writeln("c[", i, ";", j, "] = ", c[i-1, j-1]:5:3);

readln

end.

Раз ЮЮ ©
На этом форуме не решают задачки за других, а помогают тем, кто решает сам и у кого возниают проблемы именно в ходе самомтоятельного решенияю, то есть ли ошибка в программе или все верно...
Помогите хоть этим...

← →
MBo © (2006-11-17 09:23) [9]

невнимательность?
c[i, j] := c[i, j] + a[i, k]*b[k, j];

← →
Anatoly Podgoretsky © (2006-11-17 09:36) [10]

Будут ли иметь пределы размеры твоей благодарности

← →
Ded © (2006-11-17 09:48) [11]

MBo ©
невнимательность?
c[i, j] := c[i, j] + a[i, k]*b[k, j];
Да, спасибо... Ну а так задача решена правильно???

← →
MBo © (2006-11-17 10:03) [12]

Нет, правильно так:
for i := 0 to n-1 do
for j := 0 to n-1 do
begin
c[i, j] := 0;
for k := 0 to m-1 do
c[i, j] := c[i, j] + a[i, k]*b[k,j];
end;

А со вводом значений в матрицу A сам разберись

← →
SergP © (2006-11-17 10:45) [13]

> Да, спасибо... Ну а так задача решена правильно???

М-да... Нет слов...

← →
Ded © (2006-11-17 10:53) [14]

Каких слов??

← →
Anatoly Podgoretsky © (2006-11-17 11:03) [15]

> Ded (17.11.2006 10:53:14) [14]

Тоже интересно, каких?

Английских, Русских или родного языка.

Не стыдно? Уже Ded, а задачки решать не умеешь

> Не стыдно? Уже Ded, а задачки решать не умеешь

так за него духи решат %)

В анкете:
образование: высшее

Лирик?

> Составить программу, которая для задаваемых натуральных
> значений N и M не больших 10, принимает значение элемента
> массивов A(n,m) и B(m,n). Интерпретируя массивы A(n,m) и
> B(m,n) как матрицы, формирует массив C(n,m), являющееся
> произведением матриц A и B:
> ...формула(скачать - http://slil.ru/23392510)...
> и выводит массив C(n,n) на экран дисплея.
> И ее надо сделать не консольную, если можно.
> Буду очень благодарен тому кто поможет!

А нельзя было написать по-русски:
"Курсач горит, напишите программу перемножения матриц" ?

Условие какое-то забубенное написал ведь...

Вы правы, но задачу уже помог решить один хороший знакомый...

ЗАДАЧА Найти похожие ветки