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

Traduction MuPAD

-Version itérative :
pgcd:=proc(a,b)
local r:
begin
while (b>0) do
r:=a mod b:
a:=b:
b:=r:
end_while:
return(a):
end_proc;

-Version récursive :

pgcd:=proc(a,b)
begin
if (b=0) then
 return(a)
 else 
return(pgcd(b,a mod b)):
end_if:
end_proc;


Documentation de giac écrite par Renée De Graeve