FUNCTION Valeur(x : REAL; P : Polynôme) : REAL;
VAR i : INTEGER;
xn, Somme : REAL;
BEGIN
xn := x;
Somme := P.Coeff[0];
FOR i := 1 TO P.Degre DO
BEGIN
Somme := Somme + xn * P.Coeff[i];
xn := x * xn;
END;
Valeur := Somme;
END;
FUNCTION Valeur(x : REAL; P : Polynôme) : REAL;
VAR i : INTEGER;
Resultat : REAL;
BEGIN
Resultat := P.Coeff[P.Degre];
FOR i := P.Degre-1 DOWNTO 0 DO
Resultat := Resultat*x + P.Coeff[i];
Valeur := Resultat;
END;
FUNCTION Valide(P : Perm) : BOOLEAN;
PROCEDURE Entrée(VAR P : Perm);
PROCEDURE Affiche(P : Perm);
PROCEDURE AfficheCycles(P : Perm);
FUNCTION IsIdentité(P : Perm) : BOOLEAN;
PROCEDURE Identité(VAR P : Perm);
PROCEDURE Inverse(P : Perm; VAR Q : Perm);
Q[P[i]] := i;
PROCEDURE Compose(P,Q : Perm; VAR R : Perm);
R[i] := Q[P[i]];
FUNCTION Ordre(P : Perm) : INTEGER;