Euklidischer Algorithmus - Turbo Pascal

1. Aufgabe
   
   Ausgabe des größten gemeinsamen Teilers zweier positiver ganzer Zahlen. Die ist die verbesserte Version. Bei der Ur-Version  wird davon ausgegangen, das der größte gemeinsame Teiler von m und n gleich dem größten gemeinsamen Teiles von m und m - n ist.
   
2. Struktogramm
   
   
   
   
3. Quellcode
   
   { Funktion: Euklidischer Algorithmus
     Ausgabe des groessten gemeinsamen Teilers zweier ganzer positiver Zahlen
     Autor : DG1XPZ
     Sprache : Turbo Pascal 7.0}
   program euklid;
   
   var m,n:LongInt;
   
   function ggt(m, n: LongInt):LongInt;
   var r: LongInt;
   begin
      repeat
         if m < n then
         begin
            r:=m;m:=n;n:=r;
         end;
         r := m mod n;
         if r<> 0 then
         begin
            m:=n;n:=r;
         end;
         m:=m-n;
      until r=0;
      ggt:=n;
   end;
   
   begin
      writeln('Euklidischer Algorithmus..');
      writeln('Gesucht wird der groesste gemeinsame Teiler.');
      write('Bitte die 1. Zahl eingeben:');
      readln(m);
      write('Bitte die 2. Zahl eingeben:');
      readln(n);
      write('Der groesste gemeinsame Teiler ist:');writeln(ggt(m,n));
   end.
   
   
4. Download euklid.zip