echo on
%
% Zaklady Matlabu 4.
% Zaklady programovani v Matlabu
%
% Skript spousti jednotlive prikazy, ktere predtim zobrazi, mezi
% prikazy jsou vlozeny pauzy, aby bylo videt, jak prikazy funguji.
% Nektere prikazy jsou doprovozeny vysvetlijici komentari.
% Pro pokracovani staci stisknout libovolnou klavesu.
% Skript je mozne kdykoliv prerusit stiskem CTRL+C.
pause
%
% Vetveni
%
s=input('Zadejte libovolne cislo: ');   % zadani cisla
%
%  Priklad kompletniho vetveni
%
pause
% if s<0
%     disp('Zadali jste zaporne cislo.');
%     % pripadne dalsi prikazy
% elseif s>0                              % nepovinna vetev
%     disp('Zadali jste kladne cislo.');
%     % pripadne dalsi prikazy
% else                                    % taky nepovinna vetev
%     disp('Vami zadana hodnota je bud 0 nebo to neni cislo!');
%     % pripadne dalsi prikazy
% end                                     % konec prikazu if
%
% Nasleduje vlastni pruchod:
% Z vypisu zjistete, ktera vetec se provadi.
%
pause
if s<0
    disp('Zadali jste zaporne cislo.');
    % pripadne dalsi prikazy
elseif s>0                              % nepovinna vetev
    disp('Zadali jste kladne cislo.');
    % pripadne dalsi prikazy
else                                    % taky nepovinna vetev
    disp('Vami zadana hodnota je bud 0 nebo to neni cislo!');
    % pripadne dalsi prikazy
end                                     % konec prikazu if
pause
%
% Nasleduji prikaz 'keyboard', kterym se zapne tzv. klavesnicovy mod.
% V jeho ramci je mozne zkouset si prikazy. Mozna se zobrazi editor s timto
% skriptem, muzete to ignorovat a prepnout se zpet do prikazoveho okna Matlabu.
% Pro pokracovani skriptu zadejte prikaz 'dbcont'.
keyboard
clc
%
% Cykus for
% 
pause
s=input('Vypocet faktorialu, zadejte libovolne nezaporne cele cislo: ');
f=1;
pause
%
%  Priklad cyklu for
%
% for k=1:s
%    f=f*k;
% end
pause
%
% Nasleduje vlastni pruchod:
% Prikazy se vypisuji v kazdem pruchodu.
%
pause
for k=1:s
    f=f*k;
end
pause
disp(['Faktorial cisla ',num2str(s),' je ',num2str(f),'.'])
pause
f=prod(1:s)         % takhle je to jednodussi, funguje to i pro 0
pause
% Nasleduje prikaz 'keyboard', pro pokracovani skriptu zadejte prikaz 'dbcont'.
keyboard
clc
%
% Cyklus while
% Priklad: nalezeni nejmensiho cisla x, pro ktere je v ramci pocitacove presnosti 1+x>1
%
x=1;
pause
n=1;    % pocet pruchodu cyklem
pause
%
%  Priklad cyklu while
%
% while 1+x/2>1
%     x=x/2;
%     n=n+1;
% end
pause
%
% Nasleduje vlastni pruchod:
% Vypneme zobrazovani prikazu, protoze pocet pruchodu cyklem je velky.
%
pause
echo off
while 1+x/2>1
    x=x/2;
    n=n+1;
end
echo on
pause
x       % hodnota nalezeneho cisla
n       % pocet pruchodu cyklem
pause
eps     % porovnani s matlabovskou konstantou
pause
% Nasleduje prikaz 'keyboard', pro pokracovani skriptu zadejte prikaz 'dbcont'.
keyboard
clc
echo off
clear all