function porovnani_matice
% zjistí pro libovolný uživatelem zadaný prvek matice z klávesnice, zda je
% kladný, záporný nebo rovný nule
% využita funkce porov_vst.m - viz http://home.zcu.cz/~lsroubov/PPEL
% uživatel zadá z klávesnice poèet øadkù a sloupcù matice a prvky matice

r=input('Zadej pocet radku: r='); % uživatel zadá èíslo r, pocet øádkù matice
s=input('Zadej pocet sloupcù: s='); % uživatel zadá èíslo s, pocet sloupcù matice
for m=1:r       % for poèátek:krok:konec (zde od 1 do r, krok 1 není uveden), cyklus pøes øádky matice
    for n=1:s   % for poèátek:krok:konec (zde od 1 do s, krok 1 není uveden), cyklus pøes sloupce matice
        fprintf('\nZadej prvek [%d,%d]: ',m,n)  % formatovany výpis na obrazovku, m,n - promìnné cyklù se vypíší na pozice formátovacích sekvencí %d, d - dekadický zápis, \n – nová øádka
        A(m,n)=input('');                       % uživatel zadá prvek matice na m-tém øádku a n-tém sloupci
        porov_vst(A(m,n))                   % funkce porov_vst se vstupním parametrem(prvek matice A na m-tém øádku a n-tém sloupci), viz http://home.zcu.cz/~lsroubov/PPEL
    end                                     % ukonèení cyklu for s indexem n
end                                         % ukonèení cyklu for s indexem m
disp('Matice:')                             % výpis na obrazovku bez názvu promìnné (øetìzec v '')
disp(A)                                     % výpis na obrazovku bez názvu promìnné (matice)
