Verständnisproblem GGT

[Raicoon88]

Hey ihr.
ich bin totaler Delphi-Neuling, muss mich aber wegen dem Schulfach Informatik da durchwursteln.
Unsere Aufgabe, die ich jetzt bereits zuhause erledigt habe, ist es, ein Programm zu erstellen, dass den größten gemeinsamen Teiler errechnet.
Nach einigen eigenen Versuchen, habe ich mir eine Lösung aus dem Internet gesucht, die auch funktioniert.
Nur ich kann es noch nicht so ganz nachvollziehen! (Wir arbeiten mit Delphi 5.1 ...)
Folgende Unit:

var a, b, r : Integer; // a= 1. Zahl, b= 2. Zahl, r= Rest ? ... :-S

procedure TForm1.Button1Click(Sender: TObject);
begin

(* Zahlen einlesen *)

a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
r := b; // Warum ist r:= b ?


(* Euklidischer Algorithmus *)

while r <> 0 do
begin
r := a mod b; // heißt das, das r:= der rest aus a:b ist?
a := b; // wieso wird a jetzt dem wert b zugeordnet?
b := r; // und wieso wird b:=r?
end;

(* ggT ausgeben *)

Edit3.Text := IntToStr(a); // wieso (a) ?
if a = 1 then ShowMessage('Die beiden Zahlen sind teilerfremd.');

end.


Ansonsten habe ich selbst einige Sachen hinzugefügt oder von der Lösung weggelassen, die ich hier nicht aufliste.
Ich hoffe, ihr könnt mir etwas helfen ! Bin total verwirrt!

Liebe Grüße

[Sir Rufo]

Versuch einfach zu verstehen, wie man GGT bestimmt (so ganz losgelöst von Delphi).

Dann schau dir das Ganze nochmal an.
Dann gehe Schritt für Schritt durch das Programm und schreibe Dir bei jedem Schritt auf,
welchen Wert die Variablen haben.

Code:

---  1 -  2 -  3 -  4 -  5 -  6 -  7 -  8 -  9 - 10 -
a =
b =
r =

Dann wirst du es auch verstehen