next up previous contents index
suivant: Traduction Xcas monter: La fonction estpremc en précédent: La fonction estpremc en   Table des matières   Index

Traduction algorithmique

fonction estpremc(N)
//utilise la fonction crible pour tester si n est premier
local PREM,S;
crible(floor(sqrt(N)))->PREM
dim(PREM)->S
si  (N=1) retourne(FAUX)
pour K de 1 a S faire
 si  (N mod ,PREM[K])=0)
    retourne(FAUX);
 fsi
fpour
retourne(VRAI)
ffonction


Documentation de giac écrite par Renée De Graeve