Sirka pasma matice – Pascal – Fórum – Programujte.com

Ahoj, chtel bych vas poprosit o radu, mam vygenerovat matici 20x20 pomoci vzorce round(viz v kodu),toto mam hotove i s vypsanim matice, ale potrebuju zjistit sirku pasma matice(Šířka pásme je maximální vzdálenost dvou nenulových prvků (přes řádky nebo přes sloupce)), ale nevim jak to zapsat, dekuji za jakoukoli radu  

var
  Application: TMyApplication;
  mat:array[1..20,1..20] of real;
  i,j,pasmo:integer;
begin
  for i:=1 to 20 do begin
      for j:=1 to 20 do
      mat[i,j]:=round(sin(i+j)-cos(i));
      end;
  for i:=1 to 20 do begin
      for j:=1 to 20 do
          write(mat[i,j]:3:0);
          writeln;
          end;
  pasmo:=0;
          for i:=1 to 20 do begin
              for j:=1 to 20 do
                  if (mat[i+1,j]>0) and (mat[i-1,j]>0) and (mat[i,j-1]>0) and (mat[i,j+1]>0) then
                 pasmo:=pasmo+1;
          end;
          write('sirka pasma je:',pasmo);
   readln;
end.

#1 Johnny
doplneni: sirka pasma je maximalni vzdalenost nenuloveho prvku od diagonaly, diagonalni matice ma sirku pasma 1

děkuji za rady

Chápu dobře, že se vzdálenost od diagonály počítá takhle?

1 2 3 4 5
2 1 2 3 4
3 2 1 2 3
4 3 2 1 2
5 4 3 2 1

Tenhle čtverec jsem vygeneroval vzorcem vzdálenost(i,j)=abs(i-j)+1. Ten můžeš pustit na každý prvek zkoumané matice a při kombinaci nenulového prvku a největší dosud dosažené vzdálenosti si tu vzdálenost uložit. Jednoduché, ale z hlediska rychlosti ne zrovna optimální.

Rychlejší by bylo procházet matici od nejvzdálenějších prvků k nejbližším (ideálně stylem cikcak: 554444333333...) a při nalezení první nenulové hodnoty uložit aktuální vzdálenost a skončit.

a co takto...?

 A není to takhle?...

for i:=1 to 20 do
  if mat[i,1]=0 then
    break;
SirkaMatice:=(i-1)*2+1;