Euklidscher Algorithmus mit repeat until

[KosMottchen]

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

[Dax]

Gibt das Ding nicht schon nach dem ersten Schleifendurchlauf a mod b als ggT aus?

[jfheins]

Ja, tut es

Ich glaube, das soll so sein:

Delphi-Quellcode:

             
a:=b;               
b:=c; 
until (a)MOD(b)=0;

[CalganX]

Hi KosMottchen,
der euklidische Algorithmus ist bereits hier in der Code-Library zu finden. Die von dir eingefügten Änderungen verändern nicht die Funktionsweise des bereits vorhandenen Codes, sondern sind nur eine andere Schreibweise für exakt das selbe Problem.

Bitte habe Verständnis, dass wir deswegen deinen Code nicht in die Code-Library aufnehmen werden.

Chris