XProfan

Español

p.specht

Für Reihen-Aufstellungen gilt el bekannte Permutationsformel x = n ! (sprich "n Faktorielle"), nämlich x = n * (n-1) * (n-2) * ... a 1 herunter. Mit 1 a multiplizieren ändern aber natürlich nichts mehr al Ergebnis, also Es el eigentliche Runterzählgrenze el 2.

En Sitzordnungen a Rundtischen unterscheidet uno aber Ende y Anfang no. Lo son por lo tanto una volle Drehung (=n Plätze) weniger unterschiedlichen Anordnungsmöglichkeiten, por lo tanto lautet el Formel x = (n-1)*(n-2)*... *2 o.
"Faktorielle de (n-1)".

En Armreifen con al Reif gleichverteilten Schmucksteinen es como weiterer Faktor a berücksichtigen, daß el Ring en efecto umgedreht en el Tisch gelegt voluntad kann. Rückläufige Anordnungen el Steine voluntad por lo tanto de rechtläufigen no unterschieden, el Formel lautet por lo tanto x = (n-1)*(n-2)*... * 3 o. x = 1/2 * Faktorielle de (n-1). Das nachstehene Progi zeigt, wieviele Unikate solcher Schmuckreifen producido voluntad puede, y löst así una altes Mathe-Rätsel.

Kompilieren Marca Separación

Título de la ventana upper$("   R I N G S Y M M E T R I E :    "+\
"A r m r e i f s c h m u c k s t e i n m u s t e r p r o b l e m")
AppendMenubar 100, "von homepages.fh-friedberg.de/boergens/problem/problem_01_09loe.htm"
Declarar i&
Cls
imprimir "\n Un Firma verkauft goldene Armreifen con verschiedenfarbigen"
imprimir " Schmucksteinen gleichverteilt al Umfang. Wievielen Käufern kann"
imprimir " en n unterschiedlichen Schmucksteinen garantiert una Unikat   "
imprimir " betreffend el Muster, el el Steine forma, verkauft voluntad ?"
imprimir " [Taste]":waitinput :cls:imprimir:font 2
imprimir " Anzahl el Schmucksteine   Anzahl möglicher Unikate ":imprimir

whileloop 29:i&=&Loop

    imprimir mkstr$(" ",20-len(str$(i&)))+str$(i&);tab(32);
    imprimir translate$(format$("%g",round(faku(i&-1)/2,0)),"E0"," * 10 ^ ")

endwhile

waitinput:Imprimir " Ciao!"
waitinput 4000:End

proc faku :parámetros i&:var prod!=1

    whileloop i&:prod!=prod!*&Loop:endwhile:volver prod!

    ENDPROC