| Jak sprawdzić czy dana liczba jest liczbą pierwszą? |
|
Problem: Chciałbyś sprawdzić czy podana liczba jest liczbą pierwszą. Rozwiązanie: Możesz skorzystać np. z takiej funkcji własnej. Function CzyPierwsza(lLiczba As Long) As Boolean Dim iLicznik As Long Select Case lLiczba Case Is < 2: CzyPierwsza = False Case 2: CzyPierwsza = True Case Else For iLicznik = lLiczba - 1 To 2 Step -1 If lLiczba Mod iLicznik = 0 Then CzyPierwsza = False: Exit Function Else CzyPierwsza = True End If Next iLicznik End Select End Function |
|
| Zmieniony ( Czwartek, 01. Lipiec 2010 20:30 ) |