Hallo, ich muss für die Schule ein Programm zur näherungsweisen Bestimmung von Integralen mit der Rechteckmethode schreiben muss.
Ich hab' allerdings 'n paar Probleme dabei.
Das Programm liest die Funktion ein, die Intervallgrenzen und die Anzahl der Rechtecke. Berechnet dann die Breite der Streifen und soll dann sowohl den linken als auch den rechten Funktionswert ausrechnen, an dem das Rechteck eben auf die Kurve trifft.
Wenn er dann die Untersumme berechnet, soll er schauen, welcher der Funktionswerte der kleinere ist und dann damit und der Breite des Streifens den Inhalt dieses Streifens ausrechnen.
Ich weiß nur nicht, wie ich das programmieren soll, dass er nach und nach jedes Rechteck durchgeht.
Mit 'ner Schleife ja auf jeden Fall also zB for i:=1 to n (Anzahl der Streifen) do
Und dann, dass die Gesamtsumme aus den einzelnen Flächeninhalten der Streifen zusammengerechnet wird.
Ich hab' es so versucht:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| begin unters:=unters+us[i]; for j:=0 to n-1 do yL:=(a*(x1+j*d))+b; for k:=1 to n do yR:=(a*(x1+k*d))+b; if yL<yR then us[i]:=d*yL else us[i]:=d*yR; end; label12.caption:=floattostrf(unters,fffixed,5,2); |
Aber es geht nicht ):
Ich hoffe, irgendjemand kann mir behilflich sein.
LG.
Moderiert von Martok: Delphi-Tags eingefügt