function soustava_rovnic_vystup(A,b,x,pocet_korenu)
% vypsani reseni soustavy rovnic na obrazovku
% vstupni parametry funkce (matice koeficientù soustavy A, 
% sloupec pravých stran b - zadán jako radkovy vektor, reseni soustavy x, 
% pocet korenu soustavy, tj. pocet prvku vektoru x)

fprintf('\n Matice koeficientu soustavy:\n'); % vypis dat na obrazovku
for m=1:length(A) % cyklus s pevnym poctem opakovani, m urcuje radky matice
    for n=1:length(A) % cyklus s pevnym poctem opakovani, n urcuje sloupce matice
        fprintf('%.6f\t',A(m,n)) % vypis dat na obrazovku
    end; % ukonceni cyklu
    fprintf('\n') % vypis na obrazovku, \n  - nova radka
end; % ukonceni cyklu

fprintf('\n Vektor pravych stran:\n'); % vypis dat na obrazovku
for m=1:length(b) % cyklus s pevnym poctem opakovani, m urcuje poradi prvku ve vektoru
    fprintf('%.6f\n',b(m)) % vypis formatovanych dat
end; % ukonceni cyklu

% pouziju funkci switch, aby vypis byl v "cestinarsky" spravnem tvaru
switch pocet_korenu
          case 1
            fprintf('\nResena soustava ma %d koren.\n',pocet_korenu);
          case {2,3,4}
            fprintf('\nResena soustava ma %d koreny.\n',pocet_korenu);
          otherwise
            fprintf('\nResena soustava ma %d korenu.\n',pocet_korenu);
end; % ukonceni prepinace switch
fprintf('\n Reseni soustavy rovnic je:\n'); % vypis dat na obrazovku
                                          % \n  - text zacina na nove radce

for m=1:length(x) % cyklus s pevnym poctem opakovani, m urcuje poradi prvku ve vektoru
    fprintf('x(%d)=%12.4f\n',m,x(m)) % vypis formatovanych dat, misto znaku % se
                                      % vypisi cislo m a vypoctena neznama,
                                      % zaokrouhlena na 4 desetinna mista
                                      % napr. x(1)= 0.50
                                      % \n  - text zacina na nove radce
end; % ukonceni cyklu