kgV von zwei Zahlen

Struktogramm:

Programmcode:

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

PROGRAM klgeVi;
FUNCTION ggT( a : LONGINT;
              b : LONGINT) : LONGINT;
VAR
  rest: LONGINT;
BEGIN
  WHILE rest <> 0 DO BEGIN
    rest := a MOD b;
    a    := b;
    b    := rest;
  END;
  ggt := a;
END;

FUNCTION kgv( a : LONGINT;
              b : LONGINT) : LONGINT;
BEGIN
  kgv:= (a * b) DIV (ggt(a,b));
END;

(*==============Beginn des Hauptprogramms=========*)
VAR
  a,b : LONGINT;
BEGIN
  a := 14;
  b := 15;
  Writeln(kgV(a,b));
  Readln;
END.

Weiter zur Addition von Brüchen:

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