XProfan

Titre de la fenêtre "Lexikographisch aufsteigende Permutation eingegebener Worte"
' (F) P. Specht 2011, V1.02beta dans XProfan11.2a free, sans Gewähr!
Déclarer t$,t$[],n&,k&,j&,u&,v&,e%,z&,q$

WHILE 1:CLS:e%=1:z&=0:q$=" "

    imprimer " Hinweis: Wirklich ALLE Permutationen volonté ici seulement ensuite geliefert, wenn"
    imprimer " qui Elemente trop Beginn dans lexikalisch aufsteigender Folge angegeben volonté!    "
    imprimer " Beispiel: 1|3|3|4|4.. ou bien Alfons Berta Charly Emil Gustav"
    imprimer " Eingabe qui Elemente s'il te plaît avec Leerzeichen ou bien | comme Trenner:\n"
    input t$:imprimer:t$=$ Trim(t $):t$=translate$(t$,"  "," "):cas instr("|",t$):q$="|"
    t$=translate$(t$," ","|"):t$[]=explode(t$,"|"):n&=SizeOf(t $[])
    imprimer "--- Start ab qui angegebenen Lexikal-Permutation ---"

    Tandis que e%

        inc z&
        casenot q$="|":imprimer " ";

        WhileLoop n&

            imprimer t$[&Boucle-1];:cas &Boucle=n&:continue
            imprimer q$;

        Endwhile

        imprimer

        si n&<2:e%=0:pause:endif

            k&=n&-2

            Tandis que t$[k&]>=t $[k&+1]

                Décembre k&
                cas k&<0:pause

            Endwhile

            si k&<0:e%=0:pause:endif

                j&=n&-1

                Tandis que t$[j&]<=t $[k&]

                    dec j&

                Endwhile

                t$=t $[k&]:t$[k&]=t $[j&]:t$[j&]=t$
                u&=k&+1:v&=n&-1

                Tandis que u&<v&

                    t$=t $[u&]:t$[u&]=t $[v&]:t$[v&]=t$
                    inc u&:dec v&

                Endwhile

            Endwhile

            imprimer "-------------- Ausgegebene Zeilen:",z&,"-----------------"
            WAITINPUT

        ENDWHILE

        FIN