в сглаженой матрице найти сумму модулей элементов расположенных ниже главной диагонали

[Sergeo_89]

Соседями элемента Аij в матрице назавем элементы Аkl где i-1<=k<=i+1; j-1<=l<=j+1; (k;l)<>(i;j). операция сглаживания матрицы дает новую матрицу того же размера, каждый элемент которой получается как среднее арифметическое имеющихся соседей соответствующего элемента исходной матрицы. построить результат сглаживания заданой вещественной матрицы размером 10 на 10 (в виде процедуры) в сглаженой матрице найти сумму модулей элементов расположенных ниже главной диагонали ( в виде функцицй)

[Сергей089]

А что делать с крайними элементами?
Какие соседи у А12?
Соседи: А11, А13, (?), А22.

[MalexG]

Сообщение от Сергей089

А что делать с крайними элементами?
Какие соседи у А12?
Соседи: А11, А13, (?), А22.

У A12 соседи: A11, A21, A22, A23, A13.

[Сергей089]

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.

[Сергей089]

Ой. Не дочитал задание. Сейчас переделаю.

[Сергей089]

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.

[Sergeo_89]

Спасибо Тебе Сергей ОгромноЕ!!!!!!!!!!!

[Ledom]

извините, кто-нибудь может помочь реализовать это на Си???

[alex_fcsm]

Проблема решена. Одна тема - один вопрос