XProfan

Español

p.specht

Referencia: Im Pascal´schen Dreieck beginnt el Zeilenzählung (N) en 0. El Form uno "Quadratischen Polynoms" (Potenz 2) es por lo tanto en el 3. Línea de oben para encontrar, el 2. Term (k=2) aber en el 2. Spalte!

Kompilieren Marca Separación

proc BinKoeff :parámetros n&,k&

    caso n&=0:volver 0.0
    caso k&=0:volver 1.0
    caso (2*k&)>n&:k&=n&-k&
    declarar r!,z&:z&=n&-k&:r!=z&+1

    Whileloop k&,2,-1

        r!=r!*(&Loop+z&)
        caso r!>10^200:volver -1.0
        r!=r!/&Loop

    endwhile

    volver r!

ENDPROC

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

10.05.2021 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

p.specht

nCr-Algorithmus (Ergänzung a oben):
--------------------
Un effiziente Berechnung des Binomialkoeffizienten es en el meisten wissenschaftlichen Taschenrechnern por el nCr-Algorithmus realisiert - sonst wäre hay en N=70 ya Overflow gegeben! nCr se "n Choose r" heißen, el englische Bezeichnung unseres "N encima k" o. "k de N".
Quelle: Wikipedia

Kompilieren Marca Separación

Título de la ventana "Binomialkoeffizient gem. ´n Choose r´ = nCr-Algorithmus"
'https://de.wikipedia.org/wiki/Binomialkoeffizient#Algorithmus_zur_effizienten_Berechnung
Ventana de Estilo 24:Cls:declarar N&,k&
Repeat:imprimir "\n N =",:input N&:imprimir " k =",:input k&
imprimir "\n Binom_nCr(N,k) = ";format$("%g",Binom_nCr(N&,k&))

Until &Loop'= 0

proc Binom_nCr :parámetros N&,k&

caso k&=0:volver 1:caso N&<=0:volver 0
var P!=1:caso (2*k&)>N&:k&=N&-k&

whileloop k&'En nCr treten sólo Ganzzahlen en:

    P!=P!*(N&-k&+&Loop)/&Loop

endwhile

volver P!

ENDPROC