lOwl |
|
| CITAZIONE (»Master @ 5/7/2012, 20:20) CITAZIONE (lOwl @ 5/7/2012, 20:18) Lo so che ci sono i numeri primi solo fino a 10.000, ma su internet ho trovato la lista fino a lì e non avevo voglia di scrivere un programma che li trovasse. Stasera o domani ci provo! CITAZIONE (»Master @ 5/7/2012, 19:48) bravo, però non c'è bisogno di limitarti a soltanto 10000, puoi averne quanti vuoi (ovvio che se sali troppo il limite li avrai soltanto dopo l'eta dell'universo xD) ecco qui un script che ho fatto in 3 minuti lol CODICE Dim $arr[1]=[2]
ConsoleWrite("Creo una lista con i numeri primi minori di 30000"&@LF)
ConsoleWrite($arr[0]&@LF)
$size=UBound($arr)
For $x=3 To 30000
For $y=0 To $size-1
If IsInt($x/$arr[$y]) Then ExitLoop
Next
If $y=$size Then
ReDim $arr[UBound($arr, 1)+1]
$arr[UBound($arr, 1)-1]=$x
ConsoleWrite($x&@LF)
$size=UBound($arr)
EndIf
Next Non ho capito bene come funziona il codice che mi hai messo. Così faecendo, non trova solo i numeri dispari? ovviamente ci sono soltanto numeri dispari, se non lo fossi sarebbero divisibili per due e non sarebbero primi xD comunque non prova soltanto la divisione per 2, prova la divisione per due e per tutti i altri numeri primi trovati, se non è divisibile per nessuno di loro, esso è primo e viene aggiunto alla lista xd Ci ho fatto una figura di m. L'ho capito solo ora. Non avevo capito come funziona la funzione ReDim... Ora mi è chiaro il funzionamento. |
| | |
