function a = je_prvocislo1(c)
% je_prvocislo1 - test prvociselnosti (1. zpusob)
% a = je_prvocislo1(c)
% c ... nezaporne cele cislo
% vystup:
% a ... 1 ('c' je prvocislo) nebo 0 ('c' neni prvocislo)

if nargin<1
    error('Zadejte vstup!')
elseif c<=0 || fix(c)~=c % 'c' musi byt kladne cele cislo (prirozene)
    error('Zadejte kladne cele cislo!')
end
% testujeme prvociselnost - cisla 1,2,3 jsou zpracovana zvlast:
if c == 1
    a = 0; % 1 neni prvocislo
    return; % koncime
elseif c==2 || c==3
    a = 1; % 2 a 3 jsou prvocisla
    return;
end

% --------------- nejjednodussi zpusob:
for k=2:c-1 % zkusime delit skoro vsim
    if mod(c,k)==0
        a = 0;
        return;
    end
end
a = 1; % kdyz funkce zatim neskoncila returnem, tak 'c' je prvocislo
