da thepaul ja schon einen alogithmus zum GGT nach Euklid gepostet hat (mith while), werd ich mal einen posten, der das etwas anderes löst
(mit repeat until)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,code:integer;
s:string;
begin
VAL (form1.Edit1.Text,a, code); // einlesen
VAL (form1.Edit2.Text,b, code); // einlesen
repeat // wiederhole
c:=(a)MOD(b); // a mod b
b:=c; // rest wird zu b
a:=b; // b wird zu a
until (a)MOD(b)=0; // bis a mod b den rest 0 hat
str(b:5,s);
form1.Edit3.text:=s; // ausgabe ggt in edit3
end;
mfg kos