19.03.2014, 23:37 | #1 (permalink) |
Новичок
Регистрация: 19.03.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ввести две матрицы mxn и nxk. Найти и вывести их произведение
|
19.03.2014, 23:37 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посоветую вам прочитать содержимое данных топиков Даны матрицы a,b,c размером nxn определяем генератор чисел a+b*c, найти новую матрицу Программа. Вычислить сумму или произведение В массиве А(12) вычислить произведение Ввести строку и инвертировать каждое слово Найти произведение чисел, меньших заданного числа b ВКонтакте просит ввести номер |
20.03.2014, 11:22 | #3 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Для Pascal, элементы - целые числа.
const CSize= 10; type Tmatr= array[1..CSize,1..CSize] of integer; procedure Vvod(x,y: byte; var arg: Tmatr); var i,j: byte; begin Randomize; for i:=1 to x do for j:=1 to y do arg[i,j]:= Random(5)+1; end; procedure WriteMatr(x,y: byte; arg: Tmatr); var i,j: byte; begin for i:=1 to x do begin for j:=1 to y do Write(arg[i,j]:4); Writeln; end; Writeln; end; procedure UmnogMatr(x,y,z: byte; arg1,arg2: Tmatr;var arg: Tmatr); var i,j,t: byte; begin for i:=1 to x do for j:=1 to z do begin arg[i,j]:=0; for t:=1 to y do begin arg[i,j]:= arg[i,j]+arg1[i,t]*arg2[t,j]; end; end; end; var A,B,C: Tmatr; m,n,k: byte; begin repeat Write('m= '); Readln(m); Write('n= '); Readln(n); Write('k= '); Readln(k); until (m>0) and (m<= Csize) and (n>0) and (n<= CSize) and(k>0) and (k<=CSize); Vvod(m,n,A); Vvod(n,k,B); UmnogMatr(m,n,k,A,B,C); WriteMatr(m,k,C); Readln; end. P.S Сильно не пинайте если что не так. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|