SOLVIUM

Programmierung

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-2019 Solvium.de - Impressum

» Blog powered by Wordpress. Silk icons von FamFamFam.