|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
05.12.2008, 21:58 | #1 |
Пользователь
Регистрация: 05.12.2008
Сообщений: 38
|
в сглаженой матрице найти сумму модулей элементов расположенных ниже главной диагонали
Соседями элемента Аij в матрице назавем элементы Аkl где i-1<=k<=i+1; j-1<=l<=j+1; (k;l)<>(i;j). операция сглаживания матрицы дает новую матрицу того же размера, каждый элемент которой получается как среднее арифметическое имеющихся соседей соответствующего элемента исходной матрицы. построить результат сглаживания заданой вещественной матрицы размером 10 на 10 (в виде процедуры) в сглаженой матрице найти сумму модулей элементов расположенных ниже главной диагонали ( в виде функцицй)
|
05.12.2008, 22:53 | #2 |
Форумчанин
Регистрация: 22.09.2008
Сообщений: 214
|
А что делать с крайними элементами?
Какие соседи у А12? Соседи: А11, А13, (?), А22. Последний раз редактировалось Сергей089; 05.12.2008 в 22:56. |
06.12.2008, 00:15 | #3 |
Форумчанин
Регистрация: 06.11.2008
Сообщений: 100
|
|
06.12.2008, 17:01 | #4 |
Форумчанин
Регистрация: 22.09.2008
Сообщений: 214
|
program matrica;
uses crt; const c=10; var a,b:array [1..c,1..c] of real; i,j,k,l,n,m,kol_vo:integer; begin clrscr; writeln ('Vvedite razmer matricu'); repeat write ('n='); readln (n) until (n>1) and (n<=c); repeat write ('m='); readln (m) until (m>1) and (m<=c); clrscr; writeln ('Dana matrica A:'); randomize; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=200*random-100; write (a[i,j]:7:2); end; writeln; end; for i:=1 to n do for j:=1 to m do begin b[i,j]:=0; kol_vo:=0; for k:=i-1 to i+1 do if (k>0) and (k<=n) then for l:=j-1 to j+1 do if (l>0) and (l<=m) then if (k<>i) or (l<>j) then begin b[i,j]:=b[i,j]+a[k,l]; kol_vo:=kol_vo+1; end; b[i,j]:=b[i,j]/kol_vo; end; writeln ('Poluchena matrica B:'); for i:=1 to n do begin for j:=1 to m do write (b[i,j]:7:2); writeln; end; readln; end. |
06.12.2008, 17:07 | #5 |
Форумчанин
Регистрация: 22.09.2008
Сообщений: 214
|
Ой. Не дочитал задание. Сейчас переделаю.
|
06.12.2008, 17:37 | #6 |
Форумчанин
Регистрация: 22.09.2008
Сообщений: 214
|
program algebra;
uses crt; const c=10; type matrica=array [1..c,1..c] of real; var a,b:matrica; n:integer; procedure vvod (n1:integer; var a1:matrica); var i,j:integer; begin randomize; for i:=1 to n1 do for j:=1 to n1 do a1[i,j]:=200*random-100; end; procedure vuvod (n1:integer; a1:matrica); var i,j:integer; begin for i:=1 to n1 do begin for j:=1 to n1 do write (a1[i,j]:7:2); writeln; end; end; procedure postroit (n1:integer; a1:matrica; var b1:matrica); var i,j,k,l,kol_vo:integer; begin for i:=1 to n1 do for j:=1 to n1 do begin b1[i,j]:=0; kol_vo:=0; for k:=i-1 to i+1 do if (k>0) and (k<=n1) then for l:=j-1 to j+1 do if (l>0) and (l<=n1) then if (k<>i) or (l<>j) then begin b1[i,j]:=b1[i,j]+a1[k,l]; kol_vo:=kol_vo+1; end; b1[i,j]:=b1[i,j]/kol_vo; end; end; function summa (n1:integer; a1:matrica):real; var i,j:integer; s:real; begin s:=0; for i:=1 to n1 do for j:=1 to i-1 do s:=s+abs(a1[i,j]); summa:=s; end; begin clrscr; writeln ('Vvedite razmer matricu'); repeat write ('n='); readln (n) until (n>1) and (n<=c); clrscr; writeln ('Dana matrica A:'); vvod (n,a); vuvod (n,a); writeln ('Poluchena matrica B:'); postroit (n,a,b); vuvod (n,b); writeln ('Otvet: summa=',summa(n,b):7:2); readln; end. |
07.12.2008, 00:11 | #7 |
Пользователь
Регистрация: 05.12.2008
Сообщений: 38
|
Спасибо Тебе Сергей ОгромноЕ!!!!!!!!!!!
|
06.12.2010, 23:08 | #8 |
Пользователь
Регистрация: 20.11.2010
Сообщений: 66
|
извините, кто-нибудь может помочь реализовать это на Си???
|
07.12.2010, 00:02 | #9 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Проблема решена. Одна тема - один вопрос
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Матрица. Сумма элементов главной диагонали | RECREATOR | Помощь студентам | 13 | 11.05.2011 22:12 |
Вычислить сумму элементов матрицы, расположенные на главной диагонали и выше нее | MariyaVo | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 10.05.2009 21:19 |
Дана матрица 9х9. В строках с отрицательными элементами на главной диагонали найти сумму, макс и мин | DeVcheNka | Помощь студентам | 5 | 21.11.2008 07:46 |
найти сумму элементов строки | jenja | Общие вопросы Delphi | 2 | 02.04.2008 17:49 |
Найти сумму последних L положительных элементов в массиве A={a[i]}. Assembler | Kasim | Помощь студентам | 2 | 16.12.2007 16:12 |