|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.11.2006, 16:11 | #1 |
Новичок
Джуниор
Регистрация: 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) на экран дисплея. Буду очень благодарен тому кто поможет! |
16.11.2006, 17:27 | #2 |
Пользователь
Регистрация: 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. |
16.11.2006, 19:56 | #3 |
Новичок
Джуниор
Регистрация: 16.11.2006
Сообщений: 2
|
Вот формула в нормальном ввиде, m вверху перед C, а k=1 внизу,
mk=1Cij=∑aikbkj Спасибо тебе огромное что помог, сейчас буду вникать в программу. формула плохо отобразилась... Последний раз редактировалось zetrix; 16.11.2006 в 20:02. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите плиззз | 11twin11 | Общие вопросы Delphi | 4 | 06.05.2008 12:39 |
Помогите со строкой, плиззз | BeeX | Общие вопросы C/C++ | 3 | 24.11.2007 17:45 |