XProfan

Título de la ventana "Permutationen en el eindeutigen Lucas-Lehmer Code darstellen"
CLS
AppendMenuBar 10, "Summe aufeinanderfolgenden Fakultäten veces ihrem Index es 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
Ventana (u%-xr%)*xf!+xr%, (v%-yr%)*yf!+yr%
SetWindowPos %HWnd=(%maxx-u%)/2,((%maxy-v%)/2) - u%,v%
Declarar s$,s!,n!,m!,m&,mmax&,prod!,lprod!,w&[200]
set("decimals",0)
Font 2:randomize
nomoi:
CLS rnd(8^8)
Imprimir " Zugrundeliegende Cuestión: Welches Produkt aller Integerzahlen de n a 1 "
Imprimir " ergibt una bestimmtes Ergebnis 'Fakultät de n' = \n ";
Entrada s$
s!=val(s$)
Imprimir "\n (Rest)-Laufprodukt:"
ausloten:
prod!=1

WhileLoop 2147483647

    n!=&Loop
    lprod!=prod!
    Prod!=Prod!*n!
    caso Prod!>S!:romper

EndWhile

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

WhileLoop mmax&,0,-1

    if W&[&Loop]>9:imprimir "'";

        if W&[&Loop]>99:imprimir "'";

            if W&[&Loop]>999:imprimir "'";

            endif

        endif

    endif

    imprimir W&[&Loop];
    'caso (&Loop>1):imprimir ",";

EndWhile

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