XProfan

Español

p.specht

El N-encima-k Función (Binomialkoeffizienten des Pascal´schen Dreiecks) führt rasch a riesigen Pagar, el el Double-precision floats de XProfan überfordern. Hier deshalb mein Intento, el Zahlendarstellung con getrennten Exponenten a berechnen: Float-Pagar encima 10^154 drohen nämlich en el nächsten Schritt überzulaufen, y voluntad hier entonces aufgesplittet. El Anzahl el dadurch zusätzlich nötigen Kommaverschiebungen se entonces zusätzlich angeschrieben. Im allseits bekannten Pascalschen Dreieck es N el 'N-te Untergeschoß-Ebene' y k el Ort en el jeweiligen Línea, de links de 1 gezählt. Demo sin Gewähr!

Kompilieren Marca Separación

Título de la ventana "BinCoeff(n over k) = n!/((n-k)!*k!)"
var f!=10^154'1.3407807929942596324916056014016*10^154
declarar n!,k!,p!,q!,i&:font 2: rpt:
set("decimals",0):cls rgb(0,240,255)
imprimir " N = ";:input n!: bucle:
locate 2,1:imprimir " k = ";:input k!:caso k!=0:goto "rpt"

if k!>n!:beep:goto "rpt":endif :caso 2*k!>n!:k!=n!-k!

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

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

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

        endwhile

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