Zadání:

Vytvořte proceduru pro načtení matice ze souboru

Procedura načte matici ze souboru s následující strukturou:
m - počet řádků; mezera; n - počet sloupců
Hodnoty matice po řádcích oddělené mezerou.

2 2
1 2
3 4

Procedure NactiMatici(JmenoSouboru:string;var Matice:tMatice);
{Procedura nacte matici ze souboru s nasledujici strukturou:
 m - pocet radku, n - pocet sloupcu
 hodnoty matice po radcich oddelene mezerou.
 napr. matice 1 x 1 obsahujici prvek 1:
 1 1
 1        }
var f:text;
    i,j:tIndex;
    m,n:integer;
begin {NactiMatici}
  assign(f,JmenoSouboru);
  reset(f);
  read(f,m,n);
  i:=1;j:=1;
  while (i<=m)and(i<=Max) do
  begin
    while (j<=n)and(j<=Max) do
    begin
      read(f,matice[i,j]);
      j:=succ(j);
    end;
    j:=1;
    i:=succ(i);
    readln(f);
  end;
  close(f);
end; {NactiMatici}
  

Zadání:

Vytvořte proceduru pro vypsání hodnot matice

Procedure PisMatici(var Matice:tMatice;M,N:tIndex);
{Procedura vypise matici o M sloupcich a N radcich.}
var i,j:tIndex;
begin {PisMatici}
  for i:=1 to m do
  begin
    for j:=1 to n do
      write(matice[i,j]:3:0,' ');
    writeln;
  end;
end; {PisMatici}
  

Zadání:

Vytvořte proceduru, která k dané matici vytvoří tutéž matici s vynulovanou hlavní diagonálou

Hlavní diagonála obsahuje prvky, jejichž sloupcové a řádkové index se rovnají

Procedure NulujDiagonalu(var Vstupni,Vystupni:tMatice;N:tIndex);
{Procedura vynuluje hlavni diagonalu.}
var i:tIndex;
begin {NulujDiagonalu}
  Vystupni:=Vstupni;
  for i:=1 to n do Vystupni[i,i]:=0;
end; {NulujDiagonalu}
  

Zadání:

Vytvořte proceduru, která k dané matici vytvoří tutéž matici s vynulovanou vedlejší diagonálou

Vedlejší diagonála obsahuje prvky s indexy "i" a "n-i+1"

Procedure NulujVDiagonalu(var Vstupni,Vystupni:tMatice;N:tIndex);
{Procedura vynuluje vedlejsi diagonalu.}
var i:tIndex;
begin {NulujVDiagonalu}
  Vystupni:=Vstupni;
  for i:=1 to n do Vystupni[i,n-i+1]:=0;
end; {NulujVDiagonalu}
  

Zadání:

Vytvořte proceduru, která k dané matici vytvoří tutéž matici s vynulovanými prvky nad hlavní diagonálou

Procedure NulujNadDiagonalou(var Vstupni,Vystupni:tMatice;N:tIndex);
{Procedura vynuluje prvky nad hlavni diagonalou.}
var i,j:tIndex;
begin {NulujNadDiagonalou}
  Vystupni:=Vstupni;
  for i:=1 to N do
    for j:=1 to N do
      if j>>i then Vystupni[i,j]:=0;
end; {NulujNadDiagonalou}
  

Zadání:

Vytvořte proceduru, která k dané matici vytvoří tutéž matici s vynulovanými prvky pod hlavní diagonálou

Procedure NulujPodDiagonalou(var Vstupni,Vystupni:tMatice;N:tIndex);
{Procedura vynuluje prvky pod hlavni diagonalou.}
var i,j:tIndex;
begin {NulujPodDiagonalou}
  Vystupni:=Vstupni;
  for i:=1 to N do
    for j:=1 to N do
      if j< i then Vystupni[i,j]:=0;
end; {NulujPodDiagonalou}
  

Zadání:

Vytvořte proceduru pro součet dvou matic

Matice musejí být stejného typu. Sčítají se prvky se stejnými indexy.

Procedure SectiMatice(var Matice1,Matice2,Vystup:tMatice;M1,N1:tIndex);
{Procedura secte dve matice stejneho typu.}
var i,j:tIndex;
begin {SectiMatice}
  for i:=1 to M1 do
    for j:=1 to N1 do
      Vystup[i,j]:=Matice1[i,j]+Matice2[i,j];
end; {SectiMatice}
  

Zadání:

Vytvořte proceduru pro násobení dvou matic

     Součin matic je dán vztahem: C[i,j] = SUMA(A[i,k] * B[k,j]),
     pro k = 1,2, ..... , p
         i = 1,2, ..... , m
         j = 1,2, ..... , n
     A  -   m řádků, p sloupců 
     B  -   p řádků, n sloupců 
     C  -   m řádků, n sloupců
  

Procedure NasobMatice(var Matice1,Matice2,Vystup:tMatice;M,N,P:tIndex);
{Procedura provede nasobeni dvou matic.}
var i,j,k:tIndex;
begin {NasobMatice}
  for i:=1 to M do
    for j:=1 to P do
    begin
      vystup[i,j]:=0;
      for k:=1 to N do vystup[i,j]:=vystup[i,j]+matice1[i,k]*matice2[k,j];
    end;
end; {NasobMatice}
  

Zadání:

Vytvořte proceduru, která k dané matici vytvoří transponovanou matici

Transponování matice znamená přehození řádků a sloupců

Procedure Transponuj(var Matice,Transponovana:tMatice;M,N:tIndex);
{Procedura provede transponovani matice.}
var i,j:tIndex;
begin {Transponuj}
  for i:=1 to M do
    for j:=1 to N do
      Transponovana[j,i]:=Matice[i,j];
end; {Transponuj}
  

Zadání:

Vytvořte funkci pro určení maxima řádkových minim matice

Function MaxRowMin(Matrix:tMatice):real;
{Funkce urci maximum z radkovych minim}
var SmallMin,BigMax:real;
    i,j:tIndex;
begin {MaxRowMin}
  for i:=1 to Max do begin
    SmallMin:=Matrix[i,1];
    for j:=1 to Max do
      if Matrix[i,j] < SmallMin then SmallMin:=Matrix[i,j];
    if i=1 then
      BigMax:=SmallMin
    else
      if SmallMin > BigMax then BigMax:=SmallMin;
  end; {for i}
  MaxRowMin:=BigMax;
end; {MaxRowMin}
  

Zadání:

Vytvořte funkci pro určení minima řádkových maxim matice

Function MinRowMax(Matrix:tMatice):real;
{Funkce urci minimum z radkovych maxim}
var SmallMax,BigMin:real;
    i,j:tIndex;
begin {MinRowMax}
  for i:=1 to Max do begin
    SmallMax:=Matrix[i,1];
    for j:=1 to Max do
      if Matrix[i,j] > SmallMax then SmallMax:=Matrix[i,j];
    if i=1 then
      BigMin:=SmallMax
    else
      if SmallMax < BigMin then BigMin:=SmallMax;
  end; {for i}
  MinRowMax:=BigMin;
end; {MinRowMax}