function porovnani_soubor
% 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
% matice vypsána na obrazovku a do souboru

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 pomocí disp:')                 % výpis na obrazovku bez názvu promìnné
disp(A)                                     % výpis na obrazovku bez názvu promìnné
fprintf('Matice pomocí fprintf:\n');        % formatovany výpis na obrazovku, \n – nová øádka
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('%8.2f\t',A(m,n));          % formatovany výpis na obrazovku, \t – tabulator
    end                                     % ukonèení cyklu for s indexem n
    fprintf('\n');                          % formatovany výpis na obrazovku, \n nová øádka
end                                         % ukonèení cyklu for s indexem m
f=fopen('data.txt', 'w');                   % otevøení souboru data.txt pro zápis (parametr 'w' - write), vytvoøí nový soubor, je-li to nutné
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(f,'%8.2f\t',A(m,n));          % formatovany výpis do souboru (parametr f), \t – tabelator
    end                                     % ukonèení cyklu for s indexem n
    fprintf(f,'\n');                        % formatovany výpis do souboru (parametr f), \n nová øádka
end                                         % ukonèení cyklu for s indexem m
fclose(f);                                  % uzavøení souboru data.txt (f)
%-------------------------------------------------
% fprintf - formátovaný výstup
% fprintf('...',...) - formátovaný výstup na obrazovku
% fprintf(f,'...',...) - formátovaný výstup do souboru, f celoèíselný 
% identifikátor souboru získaný pøi otevøení souboru ( f=fopen(...) )
% napø. fprintf('cislo  %-8.3f\n', x); 
% %       - zaèátek formátovací sekvence
% -,+,0   - zobrazení znaménka nebo vedoucí nuly
% 8       - šíøka pole
%.3       - z toho poèet míst za des.teèkou (pøesnost)
% f		  - znak oznaèující druh konverze
%----------------------------------------------------
%  		 c	   ... znak
%  		 d     ... dekadický zápis (znaménkovì)
% 		 e / E ... exponencielní zápis (3.14e+00 / 3.14E+00)
%  		 f 	   ... zápis v pevné øádové èárce
%        g / G ... exponencielní zápis
% 		 x / X ... hexadecimální zápis (a-f / A-F)
% 		 o     ... oktalový (osmièkový) zápis
%  		 u 	   ... dekadický zápis (neznaménkovì)
% 		 s	   ... øetìzec znakù
% 
% Speciální znaky: \n – nová øádka  
%                  \b – Backspace  
%                  \t – TAB      
% dvojice: \\    %%   \''       (zpìtné lomítko,procento,uvozovky)