Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldindex/action.php on line 0

Deprecated: Function split() is deprecated in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 154

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 453

Strict Standards: Only variables should be passed by reference in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/doku.php on line 71
<code pascal>

(*
 * Vypise vsechny retezce, ktere vzniknou zpermutovanim znaku retezce
 * "ceho", kazdy takovy retezec vypise na samostatnem radku a pripoji
 * pred nej retezec "prefix".
 *)
procedure vypisPermutaceStep(ceho, prefix: string);
var
    i: integer;
    zbyvaZpermutovat,
    novyPrefix: string;
begin
    {permutace prazdne mnoziny = 1prvkova mnozina, prvkem prazdna posloupnost}
    if (length(ceho) = 0) then begin
        writeln(prefix);

    {jinak postupne fixujeme jednotlive prvky, rekurzivne zpermutujeme zbytek
     a zafixovany prvek pripojime pred kazdou permutaci zbytku}
    end else begin
        for i := 1 to length(ceho) do begin
	    zbyvaZpermutovat := ceho;
	    delete(zbyvaZpermutovat, i, 1);

	    novyPrefix := prefix + ceho[i];
	    vypisPermutaceStep(zbyvaZpermutovat, novyPrefix);
	end;
    end;
end;

var
    retezec: string;
begin
  readln(retezec);
  vypisPermutaceStep(retezec, '');
end.

</code>