XProfan

Français

p.specht

qui N-sur-k Funktion (Binomialkoeffizienten des Pascal´schen Dreiecks) führt vite trop riesigen payons, qui qui Double-precision floats de XProfan überfordern. ici c'est pourquoi mon Versuch, qui Zahlendarstellung avec getrennten Exponenten trop berechnen: Float-payons sur 10^154 drohen nämlich im prochain Schritt überzulaufen, et volonté ici ensuite aufgesplittet. qui Nombre de dadurch zusätzlich nötigen Kommaverschiebungen wird ensuite zusätzlich angeschrieben. Im allseits bekannten Pascalschen Dreieck ist N qui 'N-te Untergeschoß-Ebene' et k qui lieu dans qui jeweiligen la ligne, de à gauche ab 1 gezählt. Demo sans Gewähr!

Kompilieren Marque Séparation

Titre de la fenêtre "BinCoeff(n over k) = n!/((n-k)!*k!)"
var f!=10^154'1.3407807929942596324916056014016*10^154
declare n!,k!,p!,q!,i&:font 2: rpt:
set("decimals",0):cls rgb(0,240,255)
imprimer " N = ";:input n!: loop:
locate 2,1:imprimer " k = ";:input k!:cas k!=0:goto "rpt"

si k!>n!:beep:goto "rpt":endif :cas 2*k!>n!:k!=n!-k!

    i&=int(k!+0.00000000000005):p!=1:q!=0

    whileloop i&,1,-1:p!=p!*(n!+1-&Boucle):p!=p!/&Boucle

        si p!>f!:p!=p!/f!:q!=q!+1:endif

        endwhile

        imprimer "= BinCoeff(";n!;" over ";k!;") = "
        cas (p!>10000000000) or (q!>0): set("decimals",17)
        imprimer p! :cas q!:imprimer " *10^";154*q!
        goto "loop"