procedure saisie(S a : réel, S b : réel, S n : entier)
{
        Répeter
        {
                Afficher("Veuillez entrer l'intervalle [a,b] sur lequel vous souhaitez intégrer votre fonction")
                Saisir(a,b)
        } jusqu'à (a < b)
        
        Répeter
        {
                Afficher("Veuillez saisir le nombre d'intervalle pour l'intégration")
                Saisir(n)
        
        } jusqu'à (n > 0)
}

fonction calcul_pas_intégration(E a : réel, E b : réel, E n : entier) : réel
{
        retourne (b - a)/n
}

fonction terme_exp(E x : réel, E i : entier) : réel
{
        variable j : entier
                 t : réel

        t <-- 1
        
        Pour j de 1 à i
                t <-- t*x/j
                
        retourne t
}

fonction exponentielle(E x : réel) : réel
{       constante reel PRECISION <-- 0,00000000000001

        variable i : entier
                 t, exp : réel

         i <-- 0        
         exp <-- 0
         Répeter
         {      
                t <-- terme_exp(x,i)
                exp <-- exp + t
                i <-- i + 1
         } jusqu'à (t < PRECISION)
         
         retourne exp
}

fonction f(E x : réel) : réel
{
        retourne exponentielle(x)
}


Algorithme Calcul_intégrale_methode_trapeze
{
        variable a, b, pas, Integrale : réel
                 n, i : entier


        saisie(a,b,n)
        pas <-- calcul_pas_integration(a,b,n)
        
        Integrale <-- (f(a) + f(b))/2
        
        Pour i de 1 à n-1
                Integrale <-- Integrale + f(a+i*pas)
                
        Integrale <-- Integrale * pas
        
        Afficher("Le résultat de l'intégration est ", Intégrale, ".\n")
}