Anonymní profil Johnny – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Johnny – Programujte.comAnonymní profil Johnny – Programujte.com

 

Příspěvky odeslané z IP adresy 90.181.183.–

Johnny
Pascal › sirka pasma matice
17. 6. 2013   #178148

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

děkuji za rady

Johnny
Pascal › sirka pasma matice
17. 6. 2013   #178147

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.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032019 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý