XProfan

Titre de la fenêtre "Permutationen im eindeutigen Lucas-Lehmer Code darstellen"
CLS
AppendMenuBar 10, "Summe aufeinanderfolgenden Fakultäten la fois ihrem index ist Nächste_Fakultät-1"
' "https://de.wikipedia.org/wiki/Fakult%C3%A4tsbasiertes_Zahlensystem"
var xf!=0.797:var xr%=(%WinRight- %WinLeft-width(%Hwnd))+1
var yf!=0.72 :var yr%=(%WinBottom-%WinTop-height(%Hwnd))+1
var u%= 640*1.5 : var v%= 480*1.5
Fenêtre (u%-xr%)*xf!+xr%, (v%-yr%)*yf!+yr%
SetWindowPos %HWnd=(%maxx-u%)/2,((%maxy-v%)/2) - u%,v%
Déclarer s$,s!,n!,m!,m&,mmax&,prod!,lprod!,w&[200]
set("decimals",0)
Font 2:randomize
nomoi:
CLS rnd(8^8)
Imprimer " Zugrundeliegende Frage: Welches Produkt aller Integerzahlen de n jusqu'à 1 "
Imprimer " ergibt un bestimmtes Ergebnis 'faculté de n' = \n ";
Contribution s$
s!=val($ S)
Imprimer "\n (reste)-Laufprodukt:"
ausloten:
prod!=1

WhileLoop 2147483647

    n!=&Boucle
    lprod!=prod!
    Prod!=Prod!*n!
    cas Prod!>S!:pause

Endwhile

'imprimer " Drüber:  Produkt 1 .. "; n!;" avec Produkt ";tab(40);Prod!
'imprimer " Drunter: Produkt 1 .. "; n!-1; " avec Produkt ";tab(40);LProd!
m!=n!-1
m&=m!
cas mmax&<m&:mmax&=m&
'imprimer m!,
w&[m&]=w&[m&]+1
S!=s!-LProd!
cas s!>0: goto "ausloten"
imprimer
imprimer
'imprimer " = ";mmax&;":";

WhileLoop mmax&,0,-1

    si W&[&Boucle]>9:imprimer "'";

        si W&[&Boucle]>99:imprimer "'";

            si W&[&Boucle]>999:imprimer "'";

            endif

        endif

    endif

    imprimer W&[&Boucle];
    'cas (&Loop>1):imprimer ",";

Endwhile

WaitInput
clear w&[]
mmax&=0
goto "nomoi"