7 svar · 977 visningar · startad av racce
Hej!
Hur tar man reda på om ett tal är primtal? Jag har gjort ett litet program i miniräknaren för att kolla det. Det tar oerhört lång tid och jag vet inte ens om det fungerar som det ska.
Jag undrar om det finns ett bättre sätt att ta reda på primtal än med min miniräknarkod.
Prompt P
If (P/2)=iPart(P/2)
Then
Disp 2
Stop
End
For(C,3,rot(p),2)
If iPart(P/C)=(P/C)
Then
C->S
End
If S>1
Then
Disp S
Stop
End
Output(8,10,(iPart((C/rot(P))*100)))
End
Disp S
Är det nån som vet hur man gör med ASP och hur VBscriptkoden ska se ut. Nån kan ju tipse mig om miniräknarkoden med.
---------------------------------------
Texas Instruments TI-83 Plus
Du kan testa om ett udda heltal n är ett primtal i Java med följande metod:
public static boolean isPrime(long n)
{
for(long i=3; i*i<=n; i+=2)
if(n%i == 0)
return false;
return true;
}
Algoritmen är snabb för små (32-bitars) tal men oanvändbar för jämna 64-bitars longs.
Det finns andra snabbare metoder också men oftast kräver de kunskap om talteori, såsom Fermats lilla sats mm, för att kunna förstås.
Du kan testa om ett udda heltal n är ett primtal i Java med följande metod:
Är inte det här ASP-forumet? 
Jo, men eftersom frågeställaren huvudsakligen undrade hur man kollar om ett tal är ett primtal så kunde Java-koden beskriva en sådan lösning.
I VBScript..
function isPrime(mVal)
dim i : i=3
if mVal < 2 then
isPrime = false
else
isPrime = true
mValSQR=sqr(mVal)
while i<=mValSQR
if mVal mod i=0 then
isPrime = false
exit function
end if
i = i + 2
wend
end if
end function
[Redigerat av emission den 22 jan 2001]
Nja, du behöver inte iterera ett steg i taget eftersom ett primtal aldrig kan vara jämnt. Byt
i = i + 1
mot
i = i + 2
och börja på i = 3 istället.
Så sant. Skriptet är modifierat.
Tack! Tänkte om det fanns ett effektivt sätt att få reda på det. Men det går ju iaf relativt fort att få reda på små primtal.
Får använda mig av emmissions funktion eller nån liknande.
Smileys: 
