Hallöle,
Habe ein Problem ich möchte eine Funktion schreiben die eine Teilerfremde Zahl von 3 anderen Zahlen ausgibt bzw in eine Variable übergibt
Habe mir das etwa so gedacht...
Code:
while 1:
if Teilerfremd(a,public_fi)==1 and a!=p and a!=q:
print a,
if a==1000:
break
a+=1
Das ist jetz nur ein Beispiel.. ich weiß einfach nicht wie ich das in VB.net code bekommen... :?:
Vlt habt ihr eine idee
Mfg Impi
Added after 5 hours 57 minutes:
Habe jetz bissel rumgecodet aber es klappt immernoch nicht
vlt findet ihr einen denkfehler ich finden keinen :?:
Code:
Private Function pubKey_e(ByRef teiler, ByVal primFI, ByVal primOne, ByVal primTwo)
For c As Integer = 2 To 1000
If Teilerfremd(teiler, primFI) = 1 And teiler <> primOne And teiler <> primTwo Then
Console.Write(teiler)
End If
Next c
End Function
Private Function Teilerfremd(ByRef teiler, ByVal primFI)
For c As Integer = 2 To primFI
If teiler Mod c = primFI Mod c = 0 Then
Return 0
Else
Return 1
End If
Next c
End Function
Hoffe auf Hilfe
Mfg Impi