title image


Smiley Re: Ersatz fuer Mod
Public Function ggt(u As Double, v As Double)

Dim buff As Double

If u Int(u) Or v Int(v) Then

ggt = 1

Exit Function

End If

If v < u Then

buff = v

v = u

u = buff

End If

While u > 0

buff = u

If v < u Then

u = u - v * Int(u / v) '(v Mod u)

Else

u = v - u * Int(v / u) '(u Mod v)

End If

v = buff

Wend

ggt = v

End Function



besser so?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: