XProfan

windowtitle "Neuer Euklid (verwendet Modulo-Funktion)"

proc ggT : parameters a&,b&

    var c&=0

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

        cas a&=0:return b&

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

            endwhile:return a&

        endproc

        declare a&,b&,ggt&

        Tandis que 1:cls:set("decimals",0):imprimer

            imprimer "    s'il te plaît seulement Ganzzahlen jusqu'à 2147483647"
            imprimer:imprimer "    Zähler = ";:input a&:cas a&=0:end
            imprimer "    Nenner = ";:input b&:cas b&=0:end
            ggT&=ggT(a&,b&):imprimer "    ggT(";a&;»;b&;")= ";ggT&
            imprimer: si b&/ggt&>1 :imprimer "    Bruch: ";a&/ggt&;"/";b&/ggt&
            cas a&>b&:imprimer "    bzw.",a&\b&;"<";(a& mod b&)/ggt&;"/";b&/ggt&;">"
            d'autre:imprimer "    Ergebnis: ";a&/ggt&;:endif
            WaitInput

        endwhile

        Fin