function porov_vst(k)
% zjistí pro libovolný vstup, zda je èíslo
% kladné, záporné nebo rovné nule

if k<0                                         % podmínka - logický výraz - je-li k<0
    disp(['Cislo ',num2str(k),' je záporné']); % výpis na obrazovku bez názvu promìnné, num2str pøemìní èíslo na øetìzec
                                               % disp() má 1 parametr, proto øetìzce v []
elseif k==0                                    % podmínka - logický výraz - je-li k rovno 0
    disp(['Cislo je ',num2str(k)]);            % výpis na obrazovku bez názvu promìnné, num2str pøemìní èíslo na øetìzec
                                               % disp() má 1 parametr, proto øetìzce v [] 
else                                           % jestliže neplatí ani k<0 ani k==0
    disp(['Cislo ',num2str(k),' je kladné']);  % výpis na obrazovku bez názvu promìnné, num2str pøemìní èíslo na øetìzec
                                               % disp() má 1 parametr, proto øetìzce v []
end                                            % ukonèení podmínìného pøíkazu

% funkce s názvem porov_vst obsahuje klíèové slovo function,
% hlavièka je ve tvaru function nazev(vstup)
% hlavièka zajiš�uje pøenos dat do funkce
% promìnná ve funkci je lokální (po skonèení posledního pøíkazu funkce
% zaniknou)
%-----------------------------------------------------
% funkce porov_vst(k) musí být volána z pøíkazového øádku MATLABu
% svým názvem a parametrem v kulatých závorkách:
% napø. porov_vst(-100)
% nebo napø. a=4; porov_vst(a)
%-----------------------------------------------------
% funkce mùže být použita v jiné funkci napø. viz porovnani_vektor.m,
% porovnani_matice.m nebo porovnani_soubor.m 
% - viz http://home.zcu.cz/~lsroubov/PPEL
