aldjazair Posté le 16 février 2005 à 15:03:17
type entier=longint;
fraction=record num,den:entier end;
function pgcd(a,b:entier):entier;
var c:entier;
begin
while ( b>0) do begin a:=a mod ( b); c:=a; a:=b; b:=c; end;
pgcd:=b;
end; / / pgcd
lol, du Pascal, ca me rappelle des souvenirs... ^^