next up previous contents index
suivant: Traduction MapleV monter: Calcul du PGCD par précédent: Traduction algorithmique   Table des matières   Index

Traduction Xcas

- Version itérative :
pgcd(a,b):={
  local r; 
  while (b!=0){
   r:=irem(a,b);
   a:=b;
   b:=r;
  } 
  return(a);
};
- Version récursive.
pgcdr(a,b):={
  if (b==0) 
    return(a);
  else 
    return(pgcdr(b,irem(a,b)));
};


Documentation de giac écrite par Renée De Graeve