Работы с матрицами

[Foxx]

Здравствуйте! Даны двумерная матрица 5x5. Как можно найти сумму наддиагональных элементов i-ой строки, и также сумму поддиагональных элементов i-ой строки. Заранее благодарен!

[Google2010]

над побочной

for i:=1 to n do
                  for j:=1 to n-i do
                 s[i]:=s[i]+a[i,j];

под побочной

for i:=1 to n do
                  for j:=n-i+2 to n do
                    s1[i]:=s1[i]+a[i,j];

над главной

for i:=1 to n do
                    for j:=i+1 to n do
                         s2[i]:=s2[i]+a[i,j];

под главной

 for i:=1 to n do
                    for j:=1 to i-1 do
                         s3[i]:=s3[i]+a[i,j];

[Arigato]

Какая из диагоналей нужна, главная или побочная?
А так же выкладывайте свои наработки.

[Foxx]

Желательно рассмотреть и для главной и для побочной диагонали.

program prim5;
   uses crt;
   var a:array[1..10,1..10] of real;
   x:array [1..10] of real;
   i,j,m,n,k,r:integer;
   y,s,c,max:real;
begin
   clrscr;
   write('Vvedite n='); read(n);
   {---------------------------------------part 1-----------------------------------}
   for i:=1 to n do
      for j:=1 to n do
      a[i,j]:=(n-i*i+1)/j;
   writeln(' ':20,'Matrica A');
   for i:=1 to n do
      begin
         for j:=1 to n do write(a[i,j]:8:3);
         writeln;
      end;
   readln;
   {---------------------------------------part 2-----------------------------------}
   for i:=1 to n do
    begin
       s:=0;
       for j:=1 to n do s:=s+a[i,j];
       x[i]:=s;
    end;
    writeln(' ':20,'Vector X');
   for i:=1 to n do write(x[i]:8:3,' ');
   readln;
end.

Вот здесь во 2ой части и затрудняюсь, не представляю как цикл j нужно записать, чтобы рассчитывать над диагональю или под ней. Здесь описывается сумма i-ой строки.

[Foxx]

Вот разобрался. А как то же самое написать для побочной диагонали.

program prim5;
   uses crt;
   var a:array[1..10,1..10] of real;
   x:array [1..10] of real;
   i,j,m,n,k,r:integer;
   y,s,c,max:real;
begin
   clrscr;
   write('Vvedite n='); read(n);
   {---------------------------------------part 1-----------------------------------}
   for i:=1 to n do
      for j:=1 to n do
      a[i,j]:=(n-i*i+1)/j;
   writeln(' ':20,'Matrica A');
   for i:=1 to n do
      begin
         for j:=1 to n do write(a[i,j]:8:3);
         writeln;
      end;
   readln;
   {---------------------------------------part 2-----------------------------------}
   {сумма наддиагональных элементов i-ой строки главной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=i+1 to n do s:=s+a[i,j];
       x[i]:=s;
    end;
    writeln('Vector X - Sum naddiag elem i-oi stroki glav diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма поддиагональных элементов i-ой строки главной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=1 to i-1 do s:=s+a[i,j];
       x[i]:=s;
    end;
    writeln('Vector X - Sum poddiag elem i-oi stroki glav diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма наддиагональных элементов i-ого столбца главной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=1 to i-1 do s:=s+a[j,i];
       x[i]:=s;
    end;
    writeln('Vector X - Sum naddiag elem i-ogo stobsa glav diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма поддиагональных элементов i-ого столбца главной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=i+1 to n do s:=s+a[j,i];
       x[i]:=s;
    end;
    writeln('Vector X - Sum poddiag elem i-ogo stolbsa glav diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   readln;
end.

[Google2010]

найти сумму наддиагональных элементов i-ой строки, и также сумму поддиагональных элементов i-ой строки.

http://www.programmersforum.ru/showp...82&postcount=2

[Foxx]

Google2010 Спасибо огромное. Но вот еще с одним затрубдняюсь, все другое прописал для i-го столбца, а как будет для i-го столбца над и под побочной диагональю.

program prim5;
   uses crt;
   var a:array[1..10,1..10] of real;
   x:array [1..10] of real;
   i,j,m,n,k,r:integer;
   y,s,c,max:real;
begin
   clrscr;
   write('Vvedite n='); read(n);
   {---------------------------------------part 1-----------------------------------}
   for i:=1 to n do
      for j:=1 to n do
      a[i,j]:=(n-i*i+1)/j;
   writeln(' ':20,'Matrica A');
   for i:=1 to n do
      begin
         for j:=1 to n do write(a[i,j]:8:3);
         writeln;
      end;
   readln;
   {---------------------------------------part 2-----------------------------------}
   {сумма наддиагональных элементов i-ой строки главной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=i+1 to n do s:=s+a[i,j];
       x[i]:=s;
    end;
    writeln('Vector X - Sum naddiag elem i-oi stroki glav diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма поддиагональных элементов i-ой строки главной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=1 to i-1 do s:=s+a[i,j];
       x[i]:=s;
    end;
    writeln('Vector X - Sum poddiag elem i-oi stroki glav diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма наддиагональных элементов i-ого столбца главной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=1 to i-1 do s:=s+a[j,i];
       x[i]:=s;
    end;
    writeln('Vector X - Sum naddiag elem i-ogo stobsa glav diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма поддиагональных элементов i-ого столбца главной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=i+1 to n do s:=s+a[j,i];
       x[i]:=s;
    end;
    writeln('Vector X - Sum poddiag elem i-ogo stolbsa glav diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма наддиагональных элементов i-ой строки побочной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=1 to n-i do s:=s+a[i,j];
       x[i]:=s;
    end;
    writeln('Vector X - Sum naddiag elem i-oi stroki poboch diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма поддиагональных элементов i-ой строки побочной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=n-i+2 to n do s:=s+a[i,j];
       x[i]:=s;
    end;
    writeln('Vector X - Sum poddiag elem i-oi stroki poboch diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   {сумма наддиагональных элементов i-ого столбца побочной диагонали}
   for i:=1 to n do
    begin
       s:=0;
       for j:=1 to n-i+1 do s:=s+a[j,i];
       x[i]:=s;
    end;
    writeln('Vector X - Sum naddiag elem i-ogo stolbsa poboch diag');
   for i:=1 to n do write(x[i]:8:3,' ');
   writeln;
   readln;
end.

Все разобрался. Спасибо еще раз.