Eingabe: f : Funktion
a : linker Rand
b : rechter Rand
n : Anzahl Intervalle
x := a; (* Basiert auf : *)
area := f(x); (* 1/2*[f(a)+ 2*Sf(a+n*s)+f(b)]*s *)
s = (b-a)/n; (* s = Schrittweite *)
WHILE (n>1) DO
x := x+s
area := area+2*f(x);
n := n-1;
END;
area := area + f(b);
area := area/2*s;
Ausgabe: area = Näherung der Fläche