% script zjistí pro libovolné uživatelem zadané èíslo z klávesnice, zda je
% kladné, záporné nebo rovné nule
% uživatel zadá z klávesnice poèet øadkù a sloupcù matice a prvky matice
% matice vypsána do souboru
clear;                            % vymaže všechny promìnné z pamìti
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
        A(m,n)=input('');                                   % uživatel zadá prvek matice
        if A(m,n)<0                                         % podmínka - logický výraz - je-li prvek matice<0
            fprintf('\nCislo %-8.3f je záporné\n',A(m,n))   % formatovany výpis na obrazovku 
            elseif A(m,n)==0                                % podmínka - logický výraz - je-li prvek matice roven 0
                    fprintf('\nCislo %8.1f rovná se 0\n',A(m,n))   % formatovany výpis na obrazovku 
        else                                                % jestliže neplatí ani A(m,n)<0 ani A(m,n)==0
            fprintf('\nCislo %08.2f je kladné\n',A(m,n))    % formatovany výpis na obrazovku 
        end                                 % ukonèení podmínìného pøíkazu
    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é
disp(A)                                     % výpis na obrazovku bez názvu promìnné
fprintf('Matice:\n');                       % formatovany výpis na obrazovku
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('%6.2f',A(m,n));            % formatovany výpis na obrazovku
    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('Pokus.txt', 'w');                  % otevøení souboru Pokus.txt pro zápis (parametr 'w')
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,'%6.2f',A(m,n));          % formatovany výpis do souboru (parametr f)
    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 Pokus.txt (f)
%-------------------------------------------------
% fprintf - formátovaný výstup
% 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)