1   VARIABLES
2     a EST_DU_TYPE NOMBRE
3     h EST_DU_TYPE NOMBRE
4     yA EST_DU_TYPE NOMBRE
5     b EST_DU_TYPE NOMBRE
6     yB EST_DU_TYPE NOMBRE
7     yC EST_DU_TYPE NOMBRE
8     yD EST_DU_TYPE NOMBRE
9   DEBUT_ALGORITHME
10    //On choisit pour h une valeur très proche de 0.
11    h PREND_LA_VALEUR 0.0000000001
12    a PREND_LA_VALEUR -8
13    TANT_QUE (a<8) FAIRE
14      DEBUT_TANT_QUE
15      //a et yA sont les coordonnées d'un point A de Cf
16      yA PREND_LA_VALEUR F1(a)
17      //yC est l'ordonnée d'un point C d'abscisse a très proche de Cf', donc yC est proche de f'(a)
18      yC PREND_LA_VALEUR (F1(a+h)-F1(a))/h
19      //b et yB sont les coordonnées d'un point B de Cf
20      b PREND_LA_VALEUR a+0.01
21      yB PREND_LA_VALEUR F1(b)
22      //yD est l'ordonnée d'un point D d'abscisse b proche de Cf', donc yD est proche de f'(b)
23      yD PREND_LA_VALEUR (F1(b+h)-F1(b))/h
24      //Trace le segment [AB] proche de Cf en bleu
25      TRACER_SEGMENT (a,yA)->(b,yB)
26      //Trace le segment [CD] proche de Cf' en rouge
27      TRACER_SEGMENT (a,yC)->(b,yD)
28      a PREND_LA_VALEUR b
29      FIN_TANT_QUE
30    AFFICHER "La courbe représentative de la fonction f est colorée en bleu"
31    AFFICHER "La courbe représentative de sa dérivée f' est colorée en rouge."
32  FIN_ALGORITHME
33 
34 Fonction numérique utilisée :
35 F1(x)=(-x*x*x+3*x*x+10*x-2)/sqrt(10*x*x+100)