Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Ветл
0 / 0 / 0
Регистрация: 18.05.2013
Сообщений: 1
1

При помощи процедуры перемножить матрицы

21.05.2013, 22:07. Просмотров 825. Ответов 1
Метки нет (Все метки)

надо сделать программу при помощи процедуры которая перемножает матрицы размера n,m
Желательно с максимальными комментариями
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2013, 22:07
Ответы с готовыми решениями:

Вычислить при помощи процедуры: z:=(sin(k1)+cos(k2))/(S1*S2)
при помощи процедуры: z:=(sin(k1)+cos(k2))/(S1*S2), где где S1 и k1 - сумма и...

При помощи процедуры или функции найти максимальную и минимальную цифру числа
При помощи процедуры или функции найти максимальную и минимальную цифру числа

Найти значение выражения при помощи процедуры максимум из трех
Для чисел a b c найти значение выражения max abc+1/max(ab,ac,bc) с...

Определить наибольший угол между прямой и заданными плоскостями при помощи процедуры пользователя
Задана прямая x=x0+kt, y=y0+mt, z=z0+nt, где t - любое действительное число, и...

Перемножить матрицы
Помогите, пожалуйста, решить задачу: Перемножить матрицы А(n*m), B(m*l)....

1
Максим Архангел
23 / 23 / 18
Регистрация: 06.04.2013
Сообщений: 60
22.05.2013, 17:59 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  {процедура, осуществляющая умножение двух матриц}
           {A размерность m*n}
           {B размерность n*p}
           {a,b – матрицы, которые будем умножать}
           {KP – результирующая матрица}
           {n –количество столбцов первой матрицы}
           {m – количество строк первой матрицы}
           {n – количество строк второй матрицы}
           {p - количество столбцов второй матрицы}
           procedure ymnog(a,b:typematrix; n,m:integer; var KP:typematrix);
           var
              i,j,k:integer;
           begin{ymnog}
                 for i:=1 to m do
                   for j:=1 to p do
                   begin
                     C[i,j]:=0;
                     for k:=1 to n do
                       C[i,j]:=C[i,j]+a[i,k]*b[k,j];
                    end;
           end;{ymnog}
Добавлено через 10 секунд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  {процедура, осуществляющая умножение двух матриц}
           {A размерность m*n}
           {B размерность n*p}
           {a,b – матрицы, которые будем умножать}
           {KP – результирующая матрица}
           {n –количество столбцов первой матрицы}
           {m – количество строк первой матрицы}
           {n – количество строк второй матрицы}
           {p - количество столбцов второй матрицы}
           procedure ymnog(a,b:typematrix; n,m:integer; var KP:typematrix);
           var
              i,j,k:integer;
           begin{ymnog}
                 for i:=1 to m do
                   for j:=1 to p do
                   begin
                     C[i,j]:=0;
                     for k:=1 to n do
                       C[i,j]:=C[i,j]+a[i,k]*b[k,j];
                    end;
           end;{ymnog}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 17:59

Перемножить три матрицы
Значит так. Дана операция. Нужно перемножить три матрицы, при чём матрицу С...

Помогите правильно перемножить матрицы
Помогите правильно перемножить матрицы C=(A-B)*A+3*B. Это мой вариант, но...

Обнулить элементы матрицы, перемножить диагональ
Добрый вечер. Дана матрица NxN. Обнулись все елементы матрицы, кроме елементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru