XProfan

Título de la ventana "Bachet-erweiterter Euklidischer Algorithmus"
Ventana de Estilo 24
declarar a&,b&, g&,x&,y&,s$
Main:
Font 2
CLS
imprimir "\n Der Algorithmus sucht el ggT(a,b) y begründet ihn.\n"
imprimir " Lo gilt: ggT(a,b) = a * X + b * Y   con a,b,X,Y ganzzahlig."
imprimir
imprimir "\n a = ";:input a&
imprimir   " b = ";:input b&
g&=Bachet(a&,b&)
Font 2:Imprimir "\n\n  ggT(a,b) = ";g&,"   = ",x&,
Font 0:imprimir "*",a&,
Font 2:imprimir "+",y&,
Font 0:imprimir "*",b&,"\n"
waitinput
Goto "Main"

proc Bachet :parámetros a&,b&

    declarar bg&,bu&,cg&,cu&,xg&,xu&,yg&,yu&
    bg&=a&
    cg&=0
    xg&=1
    yg&=0
    bu&=b&
    cu&=a&\b&
    xu&=0
    yu&=1

    mientras que (bg&<>0) and (bu&<>0)

        xg&=xg&-cu&*xu&
        yg&=yg&-cu&*yu&
        bg&=bg& mod bu&

        if bg&=0

            g&=bu&
            x&=xu&
            y&=yu&

        más

            cg&=bu&\bg&
            xu&=xu&-cg&*xg&
            yu&=yu&-cg&*yg&
            bu&=bu& mod bg&

        endif

        if bu&=0

            g&=bg&
            x&=xg&
            y&=yg&

        más

            cu&=bg&\bu&

        endif

    endwhile

    volver g&

endProc