Kleinste gemeinsame Vielfache zweier Zahlen

By Frank Kalis

Posted on Aug 3, 2004 von in SQL Server
CREATE FUNCTION dbo.kgv(@zahl1 int, @zahl2 int ) 
RETURNS INT
AS 
  BEGIN
   RETURN (@zahl1 * @zahl2) / dbo.ggt(@zahl1, @zahl2)
  END
 GO

SELECT dbo.kgv(24,36)
DROP FUNCTION dbo.kgv
            
----------- 
72

(1 row(s) affected)

Der Vollständigkeit halber hier noch einmal die Funktion zur Ermittlung des grösssten gemeinsamen Teilers:

CREATE FUNCTION dbo.ggt(@zahl1 int, @zahl2 int) 
RETURNS INT
AS
 BEGIN
   DECLARE @zahl3 INT
   SET @zahl3=1
   WHILE (@zahl3 <> 0)
    BEGIN        
     SET @zahl3=@zahl1 % @zahl2
     SET @zahl1=@zahl2
     SET @zahl2=@zahl3
    END
  RETURN @zahl1
 END
GO

Dies ist dies Adaption der Excel Funktion KGV.

Dieser Eintrag wurde eingetragen von und ist abgelegt unter SQL Server. Tags: ,

Noch kein Feedback


Formular wird geladen...