Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.11.2006, 16:11   #1
Ded
Новичок
Джуниор
 
Регистрация: 16.11.2006
Сообщений: 2
По умолчанию помогите плиззз

Помогите пожалуйста решить задачу, то пойду топтать я сапоги....
-------------------------
Составить программу, которая для задаваемых натуральных значений 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) на экран дисплея.
Буду очень благодарен тому кто поможет!
Ded вне форума Ответить с цитированием
Старый 16.11.2006, 17:27   #2
selenux
Пользователь
 
Регистрация: 14.11.2006
Сообщений: 23
По умолчанию

Если я правильно понял формулу, то как-то так:

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.
selenux вне форума Ответить с цитированием
Старый 16.11.2006, 19:56   #3
Ded
Новичок
Джуниор
 
Регистрация: 16.11.2006
Сообщений: 2
По умолчанию

Вот формула в нормальном ввиде, m вверху перед C, а k=1 внизу,
mk=1Cij=∑aikbkj
Спасибо тебе огромное что помог, сейчас буду вникать в программу.

формула плохо отобразилась...

Последний раз редактировалось zetrix; 16.11.2006 в 20:02.
Ded вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите плиззз 11twin11 Общие вопросы Delphi 4 06.05.2008 12:39
Помогите со строкой, плиззз BeeX Общие вопросы C/C++ 3 24.11.2007 17:45