Rien de bien extraordinaire, mais cela apportera quelques réponses à plusieurs questions qu'on m'a posé :
Test de primalité :
- Code: Tout sélectionner
Define testprem(n)=
Prgm
:test:=0
:For i,2,floor(√(n))
:If mod(n,i)=0 Then
:test:=1
:d:=i
:i:=n-1
:EndIf
:EndFor
:If test=0 Then
:Disp n," est premier"
:Else
:Disp n," n'est pas premier"
:Disp n,"est divisible par ",d
:EndIf
:EndPrgm