Hallo
Ich habe eine Funktion geschrieben die von 3 Zahlen alle Teilerfremden in einem Wertebereich von 2 bis 1000 ausgibt
Nur ich habe ein Problem es klappt nicht richtig^^
Ich bekomme immer nur die Zahl 2 Ausgegeben ich versuche seit heut morgen die Funktion zum laufen zu bringen aber vergeblich...
Hoffe auf Hilfe
Mfg
Ich habe eine Funktion geschrieben die von 3 Zahlen alle Teilerfremden in einem Wertebereich von 2 bis 1000 ausgibt
Nur ich habe ein Problem es klappt nicht richtig^^
Quellcode
- Private Function pubKey_e(ByVal 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(ByVal 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
Ich bekomme immer nur die Zahl 2 Ausgegeben ich versuche seit heut morgen die Funktion zum laufen zu bringen aber vergeblich...
Hoffe auf Hilfe
Mfg