Print SquareRoot(2)
Print ggT(8,4)
Print kgV(4,16)
Print Fak(5)
waitkey

Function SquareRoot#(Zahl#)
 Return Sqr#(Zahl#)
End Function

Function Fak(Zahl)
 If Zahl=>1 Then Wert=1
 For Nr=2 To Zahl
  Wert=Wert*Nr
 Next
 Return Wert
End Function

Function kgV(Zahl1,Zahl2)
   Local Counter
   Local kgV   
   While Not kgV       
      Counter = Counter + 1
      If Float(Counter)/Float(Zahl1) = Counter/Zahl1 Then
         If Float(Counter)/Float(Zahl2) = Counter/Zahl2 Then
            kgV = Counter
         EndIf
      EndIf 
   Wend   
   Return kgV   
End Function

Function ggT(a%,b%)
   While b<>0
      r = a Mod b
      a = b
      b = r
   Wend
   Return a
End Function

#include <windows.h>
#include "dll.h"

EXPORT float CALLBACK Sqr(float a)
{
    float x0;
    float check;
    while ( x0 != check)
    {
          check = x0;
          x0 = 0.5 * ( x0 + a / x0);
    };
    return x0;
}

EXPORT int CALLBACK ggT(int A,int B)
{
       int R;
       while ( B > 0 )
       {
             R = A % B;
             A = B;
             B = R;
       };
       return A;
}

EXPORT int CALLBACK kgV(int A,int B)
{
       return A * ( B / ggT(A,B));
}

EXPORT int CALLBACK Fak(int n)
{
       int check=1;
       for (int i=1;i<=n;i++)
       {
           check=check*i;
       }
       return check;
}

EXPORT int CALLBACK nCr(int n,int k)
{
       return Fak(n)/(Fak(k)*Fak(n-k));
}

#ifdef __cplusplus
#define EXPORT extern "C" __declspec (dllexport)
#else
#define EXPORT __declspec (dllexport)
#endif

EXPORT float CALLBACK Sqr(float a);
EXPORT int CALLBACK ggT(int A,int B);
EXPORT int CALLBACK kgV(int A,int B);
EXPORT int CALLBACK Fak(int n);
EXPORT int CALLBACK nCr(int n,int k);

.lib "maths.dll"
SquareRoot#( a# ):"Sqr"
ggT%( A%,B% ):"ggT"
kgV%( A%,B% ):"kgV"
Fak%( n% ):"Fak"
nCr%( n%,r% ):"nCr"

Function SquareRoot#(Zahl#)
 Return Sqr(Zahl#)
End Function