Matematické Fórum

hans66 · 17. 06. 2013 20:11 — Editoval jelena (18. 06. 2013 00:13)

Zavřeno pro duplicitu.

ahoj, ucim se na zkousku a momentalne delam:Vygenerujte matici o rozmerech 20x20 pomoci vzorce M[i,j]=round(sin(i+j)-cos(i)),matici vytisknete na obrazovku.dále zjistete sirku pasma matice a maximalni vzdalenost nenuloveho prvku od hlavni diagonaly.diagonalni matice ma sirku pasma 1.
muj kod:

Code:

var
  Application: TMyApplication;
  mat:array[1..20,1..20] of real;
  i,j: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;
   readln;
end.

poradte mi co je to sirka pasma matice?

Matematické Fórum

#1 17. 06. 2013 20:11 — Editoval jelena (18. 06. 2013 00:13)

matice-sirka pasma(pascal)

Code:

Zápatí