XProfan

Titre de la fenêtre " M U L T I N O M I A L K O E F F I Z I E N T"
declare w$,z$[],anz&[],c$,i&,n&,flg&:CLS:font 2
imprimer "\n qui Procédure berechnet le nombre unterschiedlich aussehender \n"
imprimer " Anordnungen aller marque, wobei manche marque aussi wiederholt\n"
imprimer " auftreten (= Gruppen un-unterscheidbarer marque bilden) peut.\n"
nochmal:
Imprimer "\n\n donner vous une Zeichenkombination un: ";:input w$:cas w$=»:end:n&=-1

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

    whileloop 0,n&:i&=&Boucle:si z$[i&]=c$:anz&[i&]=anz&[i&]+1:flg&=0:pause:endif

        endwhile:si flg&:inc n&:z$[n&]=c$:anz&[n&]=1:endif
        endwhile:imprimer
        :whileloop 0,n&:imprimer " ";z$[&Boucle];" venez ";anz&[&loop];" la fois avant.":endwhile
        imprimer "\n Daher gibt es ";
        imprimer format$("#################",multinomkoeff(len(w$),n&,anz&[]));" unterscheidbare Anordnungen!"
        waitinput:cls:goto "nochmal"

        proc multinomkoeff :parameters k&,n&,anz&[]:declare p!:p!=1

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

        endproc