Ciao,
Vorsei trovare con una function se un intero (long) positivo è un numero primo. Concettualmente il crivello di Eratostene mi sembra antieconomico.
Moderatori: Anthony47, Flash30005
Function numprimi(num)
numprimi = "primo"
For i = 2 To num - 1
If Int(num / i) = num / i Then
numprimi = "multiplo"
End If
Next i
End Function
Function numprimi(num As Long) As Boolean
numprimi = True
For I = 2 To num / 2
If Int(num / I) = num / I Then
numprimi = False
Exit Function
End If
Next I
End Function
For I = 2 To (num ^ (1 / 2)) 'fino a radice quadra NUM
Torna a Applicazioni Office Windows
formattare una colonnacon numeri senza virgolaSalve Autore: giorgioa |
Forum: Applicazioni Office Windows Risposte: 5 |
Come nascondere I Numeri non Appartenenti Al Mese Deside Autore: Maury170419 |
Forum: Applicazioni Office Windows Risposte: 3 |
selezionare numero da elenco fino ad esaurimento dei numeri Autore: marcus69 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 59 ospiti