XProfan

Titre de la fenêtre "Bachet-erweiterter Euklidischer Algorithmus"
Fenêtre Style 24
declare a&,b&, g&,x&,y&,s$
Main:
Font 2
CLS
imprimer "\n qui Algorithmus cherchez den ggT(a,b) et begründet ihn.\n"
imprimer " Es gilt: ggT(a,b) = a * X + b * Y   avec a,b,X,Y ganzzahlig."
imprimer
imprimer "\n a = ";:input a&
imprimer   " b = ";:input b&
g&=Bachet(a&,b&)
Font 2:Imprimer "\n\n  ggT(a,b) = ";g&,"   = ",x&,
Font 0:imprimer "*",a&,
Font 2:imprimer "+",y&,
Font 0:imprimer "*",b&,"\n"
waitinput
Goto "Main"

proc Bachet :parameters a&,b&

    declare 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

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

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

        si bg&=0

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

        d'autre

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

        endif

        si bu&=0

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

        d'autre

            cu&=bg&\bu&

        endif

    endwhile

    return g&

endProc