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