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

Traduction MapleV

-Version itérative :
pgcd:=proc(x,y)
local a,b,r:
a:=x:
b:=y:
while (b>0) do
r:=irem(a,b):
a:=b:
b:=r:
od:
RETURN(a):
end:

-Version récursive :

pgcd:=proc(a,b)
if (b=0) then
RETURN(a)
 else 
RETURN(pgcd(b,irem(a,b))):
fi:
end:


Documentation de giac écrite par Renée De Graeve