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;