kgV berechnen in tScheme
Der Code
Zur Berechnung des kgV wird die Funktion zur Berechnung des ggT eingesetzt. Die Formel für das kgV ist dann bestechend einfach:
(define (kgv m n)
(/ (* m n)
(ggt m n)
)
)
Die Funktionsweise
Wir dividieren also zur Bestimmung des kleinsten gemeinsamen Vielfachen das Produkt von m und n durch ihren größten gemeinsamen Teiler.
Der Aufruf
*** tScheme, Version 2.7 *** To quit, type `(quit)` or Ctrl-D (Linux), Ctrl-C (Windows) -> (load "kgv.s") function[ggt] function[kgv] -> (kgv 12 15) 60 ->
© 2006-2020 Solvium.de - Impressum
