erw. ggT
--------
Mit dieser Funktion kann man den ggT zweier 
ganzer Zahlen a und b berechnen und ein x und y, 
so da gilt: ggT(a,b)=a*x+b*y

Es erscheinen nacheinander zwei Eingabefenster, 
in denen man die beiden ganzen Zahlen a und b 
eingaben kann. Wurde die Zahl nicht korrekt 
eingegeben, so wird abgebrochen und zum 
Hauptfenster zurckgesprungen. Der Button 
'Cancel' erzielt den gleichen Effekt. 'Hilfe' zeigt 
diesen Hilfetext an und 'Ok' oder drcken der 
Return- bzw. Enter- Taste akzeptiert Eingabe 
(oder nicht, falls sie fehlerhaft ist).
Das Ergebnis wird an erster Stelle in die 
Protokollisten geschrieben. Dabei steht rechts der
ggT von a und b und links steht die Rechnung in
der Form: ggT(a,b)=a*x+b*y

Definition des ggT siehe auch Hilfe zu ggT!
Anders als bei ggT wird hier der erweiterte
Euklidische Algorithmus verwendet.

erweitereter Euklidischer Algorithmus:
v=0
w=0
x=0
y=0

if (abs(a)>abs(b)) then do
   a0=a
   b0=b
end
else do
   a0=b
   b0=a
   a=a0
   b=b0
end

x0=1
x1=0
y0=0
y1=1

if (a=0) | (b=0) then do
   a=0
   x0=0
   signal ausgabe
end

rest=a//b

do while rest<>0
    rest=a//b
    q=a%b
    a=b
    b=rest
    x2=x0-(q*x1)
    y2=y0-(q*y1)
    x0=x1
    x1=x2
    y0=y1
    y1=y2
end

ausgabe:
  ergebnis=a

Bemerkung:
Es gibt auch andere Zahlen x und y, die die 
Gleichung der Form ggT(a,b)=a*x+b*y
erfllen.

Beispiel:
a=609
b=-2079
Ausgabe:
ggT(609,-2079)=12*-2079+41*609=21

a=0
b=200
Ausgabe:
ggT(0,200)=0*0+0*200=0

