XProfan

windowtitle "Neuer Euklid (verwendet Modulo-Funktion)"

proc ggT : parameters a&,b&

    var c&=0

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

        case a&=0:return b&

        while b&<>0: c&=a& mod b&:a&=b&:b&=c&

            endwhile:return a&

        endproc

        declare a&,b&,ggt&

        While 1:cls:set("decimals",0):print

            print "    Bitte nur Ganzzahlen bis 2147483647"
            print:print "    Zähler = ";:input a&:case a&=0:end
            print "    Nenner = ";:input b&:case b&=0:end
            ggT&=ggT(a&,b&):print "    ggT(";a&;",";b&;")= ";ggT&
            print: if b&/ggt&>1 :print "    Bruch: ";a&/ggt&;"/";b&/ggt&
            case a&>b&:print "    bzw.",a&\b&;"<";(a& mod b&)/ggt&;"/";b&/ggt&;">"
            else:print "    Ergebnis: ";a&/ggt&;:endif
            WaitInput

        endwhile

        End