XProfan

Título de la ventana " M U L T I N O M I A L K O E F F I Z I E N T"
declarar w$,z$[],anz&[],c$,i&,n&,flg&:CLS:font 2
imprimir "\n El Procedimiento berechnet el número unterschiedlich aussehender \n"
imprimir " Anordnungen aller Signo, wobei manche Signo auch wiederholt\n"
imprimir " auftreten (= Gruppen un-unterscheidbarer Signo forma) puede.\n"
otra vez:
Imprimir "\n\n Geben Sie una Zeichenkombination una: ";:input w$:caso w$="":end:n&=-1

Whileloop len(w$):c$=mid$(w$,&Loop,1):flg&=1

    whileloop 0,n&:i&=&Loop:if z$[i&]=c$:anz&[i&]=anz&[i&]+1:flg&=0:romper:endif

        endwhile:if flg&:inc n&:z$[n&]=c$:anz&[n&]=1:endif
        endwhile:imprimir
        :whileloop 0,n&:imprimir " ";z$[&Loop];" kommt ";anz&[&bucle];" veces antes de.":endwhile
        imprimir "\n Daher hay ";
        imprimir format$("#################",multinomkoeff(len(w$),n&,anz&[]));" unterscheidbare Anordnungen!"
        waitinput:cls:goto "nochmal"

        proc multinomkoeff :parámetros k&,n&,anz&[]:declarar p!:p!=1

            :whileloop 0,n&:whileloop anz&[&Loop]:p!=p!*k&/&Loop
            dec k&:endwhile:endwhile:volver p!

        ENDPROC