Traduction C++ To Vb

Question

Bonjour, je cherche à créer une fonction Math en VB J'ai trouvé l'equivalent en c++ seulement il faudrais que quelqu'un de tres gentil me le traduise en VB svp ::)

int jacobi(int m,int n){
int t;
if (m>n) m=m%n;
if (m==0) return 0;
if (m==1) return 1;
if (m==2) {
if (n&1==0) return 0;
t=n&7; /* t = n % 8 */
if (t==1 || t==7) return 1;
return -1;
}
if ((m&1)==0)
return jacobi((m>>1),n)*jacobi(2,n);
if ((m&3)==3 && (n&3)==3) return -jacobi(n,m);
return jacobi(n,m);
}

Merci :)

econs · Answer

Salut,



Ca doit donner quelquechose comme ceci (pas test&#233;) :





Public Function Jacobi(m As Integer, n As Integer) As Integer

Dim t As Integer



    If m>n Then m = m Mod n

    If m=0 Then Jacobi=0

    If m=1 Then Jacobi=1

    If m=2 Then

        If (n And 1)=0 Then Jacobi=0

        t=n And 7

        If (t=1 Or t=7) Then Jacobi=1

        Jacobi=-1

    End If

    If (m And 1)=0 Then Jacobi=Jacobi(Int(m/2),n)*Jacobi(2,n)

    If (m And 3)=3 And (n And 3)=3 Then Jacobi=Jacobi(n,m)*-1

    Jacobi = Jacobi(n,m)

End Sub


Manu

Egyde · Answer

C'est pas tout à fait ça econs (int en C++ devient Long en VB. De plus, quand on return, on quitte la fonction, ie ton programme relance Jacobi si "m And 1" et "m=0"

Public Function jacobi(ByVal m As Long, ByVal n As Long)

  Dim t As Long

  If (m > n) Then
    m = m Mod n
  End If
  If (m 0) Then jacobi 0: Exit Function
  If (m 1) Then jacobi 1: Exit Function
  If (m = 2) Then 
    If (n And 1)=0 Then jacobi = 0: Exit Function
    t n And 7; ' t n % 8
    If (t 1) Or (t 7) Then
      jacobi = 1
    Else
      jacobi = -1
    End If
    Exit Function
  End If

  If ((m And 1) = 0) Then
    jacobi = jacobi(m\2,n)*jacobi(2,n)
  ElseIf (m And 3)=3 And (n And 3)=3 Then
    jacobi = -jacobi(n,m)
  Else
    jacobi = jacobi(n,m)
  End If

End Function

cs_jmtoulon · Answer

Lol merci pour vos r&#233;ponses ;)

Je viens de me rendre compte que la fonction jacobi n'est pas adapt&#233; &#224; mon projet, je post donc un new msg dans le forum ;)

merci encore

Traduction C++ To Vb

3 réponses

Discussions similaires