function [n,c] = urok(h,r,cil)
% urok - za kolik let bude na uctu pozadovana castka
% [n,c] = urok(h,r,cil)
% h ..... pocatecni vklad [Kc]
% r ..... urok [%]
% cil ... cilova castka [Kc]
% vystupy:
% n ... pocet roku, kdy se spori
% c ... dosazena castka po 'n' letech [Kc]
% priklad volani: [rok, castka] = urok(15000, 2.5, 20000)

% kontroly vstupu (nepovinne, ale vhodne):
if nargin<3 % mame dostatek vstupu?
    error('Musite zadat presne 3 vstupy!')
end
% if nargin==2 
%     cil=50000;
% end
if h<1 % je vlozena castka kladna?
    error('Vlozena castka musi byt alespon 1 Kc!')
end
if r<=0 || r>100 % je urok mezi 0,neco a 100 procenty?
    error('Zadejte spravny urok v procentech!')
end
if cil<=h % je cilova castka vyssi nez vklad?
    error('Cilova castka musi byt vyssi nez vklad!')
end

% dulezity kod funkce:
k=1+r/100; % koeficient rustu
n = 1; % priprava roku
c = h; % priprava (zustatek na konci 'n'-teho roku)
while c<cil
    c = h*k^n; % zustatek na konci daneho roku
    % disp(sprintf('%d. rok ... %g Kè',n,c)) % vypis neni potreba
    n = n+1; % jdeme na dalsi rok
end