XProfan

windowtitle "Neuer Euklid (verwendet Modulo-Función)"

proc ggT : parámetros a&,b&

    var c&=0

    if a&<b& :c&=a&:a&=b&:b&=c&: endif

        caso a&=0:volver b&

        mientras que b&<>0: c&=a& mod b&:a&=b&:b&=c&

            endwhile:volver a&

        ENDPROC

        declarar a&,b&,ggt&

        Mientras que 1:cls:set("decimals",0):imprimir

            imprimir "    Por favor, sólo Ganzzahlen a 2147483647"
            imprimir:imprimir "    Zähler = ";:input a&:caso a&=0:end
            imprimir "    Nenner = ";:input b&:caso b&=0:end
            ggT&=ggT(a&,b&):imprimir "    ggT(";a&;",";b&;")= ";ggT&
            imprimir: if b&/ggt&>1 :imprimir "    Bruch: ";a&/ggt&;"/";b&/ggt&
            caso a&>b&:imprimir "    o.",a&\b&;"<";(a& mod b&)/ggt&;"/";b&/ggt&;">"
            más:imprimir "    Ergebnis: ";a&/ggt&;:endif
            WaitInput

        endwhile

        End