Français
Source/ Codesnippets

Rundtisch-Permutationen et Ringsymmetrien

 

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.
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

 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
20.05.2021  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

1.378 Views

Untitledvor 0 min.
Hans Neff24.01.2023
p.specht21.11.2021
R.Schneider20.11.2021
Uwe Lang20.11.2021
plus...

Themeninformationen

cet Thema hat 1 participant:

p.specht (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie