24.12.2010, 09:12 | #1 (permalink) |
Новичок
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Двумерные массивы
Получить матрицу [Cij] i,j= из матриц [Aij] i,j= и [Bij] i,j= путем умножения элементов каждой строки матрицы [Aij] на максимальный элемент соответствующей строки матрицы [Bij]. Помогите пожалуйста,не могу разобраться что то. |
24.12.2010, 09:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Очень эффективно в решении проблемы просто пролистать похожие обсуждения Двумерные массивы и процедуры PASCAL Массивы Двумерные массивы через процедуру |
26.12.2010, 11:41 | #5 (permalink) |
Новичок
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Сейчас снова напишу че смог,а то удалил уже все)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
26.12.2010, 12:17 | #6 (permalink) | |
Новичок
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Последний раз редактировалось avatar3000; 26.12.2010 в 12:23 |
|
26.12.2010, 12:45 | #7 (permalink) |
Новичок
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
program labo4;
Const n = 2; m = 2; Type omA = Array[1..m] Of integer; dmA = Array[1..n] Of omA; Var v : omA; a : dmA; Const h = 2; t = 2; Type omB = Array[1..h] Of integer; dmB = Array[1..t] Of omB; Var p : omB; f : dmB; I,J,x:integer; begin for i:=1 to n do for j :=1 to m do readln ( v [ i ]); for i:=1 to h do for j :=1 to t do readln ( p [i]); end. У меня тут ввод одномерного или двумерного массива получился что то я не понимаю,а то изза этого дальше двигаться не могу,и есть ли смысл?( Последний раз редактировалось avatar3000; 26.12.2010 в 12:51 |
26.12.2010, 12:59 | #8 (permalink) | |
Новичок
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Const n = 2; m = 2; Type omA = Array[1..m,1..n] Of integer; Var v : omA; Const h = 2; t = 2; Type omB = Array[1..h,1..t] Of integer; Var p : omB; I,J,x:integer; begin for i:=1 to m do for j :=1 to n do readln ( v [ i ,j]); for i:=1 to t do for j :=1 to h do readln ( p [i,j]); for i :=1 to m do for j :=1 to n do write ( v [ i,j ]:4); writeln; for i :=1 to t do for j :=1 to h do write ( v [ i,j ]:4); writeln ; end. Вот немного по другому,но он не разделяет на матрицу A и B,да вообще как то не тк все |
|
26.12.2010, 14:25 | #9 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да уж, накрутили...
И на кой пёс, скажите на милость, Вам эти пользовательские типы сдались? И потом зачем-то в первом варианте квадратные (по условию) матрицы начали переделывать в прямоугольные, да еще разные вдобавок... На самом деле всё много проще. Примерно так: Код:
CONST M=4; VAR A,B:Array[1..M,1..M] of Real; Max:Array[1..M] of Real; i,j:Byte; BEGIN For i:=1 to M do For j:=1 to M do begin Write('A[',i,',',j,']= '); ReadLn(A[i,j]); end; For i:=1 to M do For j:=1 to M do begin Write('B[',i,',',j,']= '); ReadLn(B[i,j]); end; WriteLn('Initial matrices:'); For i:=1 to M do begin For j:=1 to M do Write(A[i,j]:6:1); Write(' '); For j:=1 to M do Write(B[i,j]:6:1); WriteLn; end; For i:=1 to M do begin Max[i]:=B[i,1]; for j:=2 to M do if B[i,j]>Max[i] then Max[i]:=B[i,j]; end; WriteLn; Write('Maximum values: '); For i:=1 to M do Write(Max[i]:6:1); WriteLn; WriteLn; WriteLn('Modified matrix:'); For i:=1 to M do begin For j:=1 to M do Write(A[i,j]*Max[i]:12:1); WriteLn; end; ReadLn; END. |
26.12.2010, 14:39 | #10 (permalink) | |
Новичок
Регистрация: 24.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|