XProfan

Français

p.specht

Pour Reihen-Aufstellungen gilt qui bekannte Permutationsformel x = n ! (sprich "n Faktorielle"), nämlich x = n * (n-1) * (n-2) * ... jusqu'à 1 herunter. avec 1 trop multiplizieren changement mais naturellement rien plus am Ergebnis, alors ist qui eigentliche Runterzählgrenze qui 2.

chez Sitzordnungen à Rundtischen unterscheidet on mais Ende et Anfang pas. il y a daher um une volle Drehung (=n Plätze) moins unterschiedlichen Anordnungsmöglichkeiten, daher lautet qui Formel x = (n-1)*(n-2)*... *2 bzw.
"Faktorielle de (n-1)".

chez Armreifen avec am Reif gleichverteilten Schmucksteinen ist comme weiterer facteur trop berücksichtigen, qui qui Ring oui aussi umgedreht sur den Tisch gelegt volonté peux. Rückläufige Anordnungen qui Steine volonté daher de rechtläufigen pas unterschieden, qui Formel lautet daher x = (n-1)*(n-2)*... * 3 bzw. x = 1/2 * Faktorielle de (n-1). cela nachstehene Progi zeigt, wieviele Unikate solcher Schmuckreifen hergestellt volonté peut, et löst avec cela un altes Mathe-Rätsel.

Kompilieren Marque Séparation

Titre de la fenêtre 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"
Déclarer i&
Cls
imprimer "\n une Firma verkauft goldene Armreifen avec verschiedenfarbigen"
imprimer " Schmucksteinen gleichverteilt am périphérie. Wievielen Käufern kann"
imprimer " chez n unterschiedlichen Schmucksteinen garantiert un Unikat   "
imprimer " betreffend cela Muster, cela qui Steine bilden, verkauft volonté ?"
imprimer " [bouton]":waitinput :cls:imprimer:font 2
imprimer " Nombre de Schmucksteine   Anzahl möglicher Unikate ":imprimer

whileloop 29:i&=&Boucle

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

endwhile

waitinput:Imprimer " Ciao!"
waitinput 4000:Fin

proc faku :parameters i&:var prod!=1

    whileloop i&:prod!=prod!*&Boucle:endwhile:return prod!

    endproc