# Näherungsweise Berechnung von bestimmten Integralen

EINGABE

f:read("Gib die Funktion f(x):= ein");

a:read("Gib die Untergrenze ein");

b:read("Gib die Obergrenze ein");

n:read("Gib die Streifenzahl ein");

VERARBEITUNG

Bestimmung der Streifenbreite

dx:(b-a)/n;

Fußpunkte bestimmen

g(k):=x[k]:a+k*dx /* Berechnung der Fußpunkte */;

x_wert:makelist(g(k),k,0,n);

Untersumme bestimmen

US:sum(f(x[k])*dx,k,0,n-1);

Obersumme bestimmen

OS:sum(f(x[k])*dx,k,1,n);

Mittelwert aus Untersumme und Obersumme ermitteln

F:(US+OS)/2.0;

AUSGABE

print("Das bestimmte Integral ist näherungsweise",F);