Lösung zur GgT-Berechnung

Struktogramm:

Programmcode:

(* Schule :Gewerbeoberschule "Max Valier" Bozen
   Klasse : 3Ia
   Author : P.S./E.P. (Gruppe 4)
   Lizenz : GPL                                   *)

FUNCTION ggt( a : LONGINT;
              b : LONGINT) : LONGINT;

VAR
  rest: LONGINT;
BEGIN
  WHILE rest <> 0 DO BEGIN
  (*Durch Modfunktion wird GGT errechnet*)
  rest := a MOD b;
  a    := b;
  b    := rest;
END;

Weitere Anwendung mit kgV!

Autor:P.S./E.P.(Gruppe4)