function [A,b]=soustava_rovnic_vst
% zadani soustavy rovnic o zvolenem poctu neznamych uzivatelem z klavesnice
% vystup funkce: matice koeficientù soustavy A, sloupec pravých stran b - zadán jako radkovy vektor

r=input('Zadejte pocet neznamych v soustave rovnic:\n n=');
  % vstup, do promenne r se ulozi hodnota zadana z klavesnice
  % \n - text n= se zacina psat na nove radce
if (r==0)
    msgbox('0 rovnic, to je divne? Je tam chybicka!','Problem','error');
    A=[];b=[];
    return
elseif (r==1)
    msgbox('Resim jen 1 rovnici.','Hlaseni','warn');
    pause
else
    msgbox('Zatim vse OK.','Hlaseni','help');
    pause
end  
A=zeros(r); % vytvoreni nulove ctvercove matice
fprintf('\n Zadejte prvky matice soustavy A:'); % vypis dat na obrazovku
                                                % \n  - text zacina na nove radce
for m=1:r % cyklus s pevnym poctem opakovani, m urcuje radky matice
    for n=1:r % cyklus s pevnym poctem opakovani, n urcuje sloupce matice
        fprintf('\n A[%d,%d]=',m,n) % vypis dat na obrazovku
                                    % misto znaku % se vypisi cisla m,n
                                    % napr. A[1,1]=
                                    % \n  - text zacina na nove radce
        A(m,n)=input(''); % vstup, do do matice A
                          % na pozici m-ty radek a n-ty sloupec se ulozi
                          % hodnota zadana z klavesnice 
    end; % ukonceni cyklu
end; % ukonceni cyklu
fprintf('\n Zadejte prvky vektoru pravych stran b:'); % vypis dat na obrazovku
                                                      % \n  - text zacina na nove radce
for m=1:r % cyklus s pevnym poctem opakovani, m urcuje poradi prvku ve vektoru
    fprintf('\n b[%d]=',m) % vypis dat na obrazovku
                           % misto znaku % se vypise cislo m
                           % napr. b[1]=
                           % \n  - text zacina na nove radce
    b(m)=input(''); % vstup, do do m-teho prvku vektoru b
                    % se ulozi hodnota zadana z klavesnice
end;