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

Traduction Xcas

estprem(n):={
//teste si n est premier
  local prem,j,k;
  if ((irem(n,2)==0) or (irem(n,3)===0) or (n==1)) {
     return(false);
  }
  if ((n==2) or (n==3)) {
     return(true);
  }
  prem:=true;
  k:=5;
  while ((k*k<=n) and prem) {
     if (irem(n,k)==0 or irem(n,k+2)==0) {
        prem:=false;
     }
     else {
        k:=k+6;
     }
  }
  return(prem);
}


Documentation de giac écrite par Renée De Graeve