Hi,
ich bin Fabian und behandle seit nun 1,5 Jahren Delphi 7 im Informatikunterricht an der Schule. Nun schreibe ich meine Facharbeit über die numerische Integration mit Delphi. Deshalb wollte ich heute die Rechteckregel (linker Y-Wert jedes Streifens wird zur Flächenberechnung genutzt) programmieren. Hier ergibt sich für mich ein Problem...Hier erstmal mein Programm:
procedure TForm1.BerechnenClick(Sender: TObject);
var Start, Ende, Streifenbreite, Flaeche, Teilflaeche, Intervall, x, y: real;
i, Streifenanzahl: integer;
begin
Flaeche:=0;
Start:=StrToFloat(Startpunkt.Text);
Ende:=StrToFloat(Endpunkt.Text);
Streifenbreite:=StrToFloat(Streifengroesse.Text);
Intervall:=Ende-Start;
Streifenanzahl:=trunc(Intervall/Streifenbreite);
for i:=0 to Streifenanzahl-1 do begin
x:=Start+(i*Streifenbreite);
y:=x*x;
Teilflaeche:=Streifenbreite*y;
Flaeche:=Flaeche+Teilflaeche;
end;
Ergebnis.Caption:=FloatToStr(Flaeche);
Anzahl.Caption:=IntToStr(Streifenanzahl);
end;
Mein Problem ist der rote Bereich. Wenn ich Streifenbreiten einsetze, die kleiner als 0,3 (zumindest ungefähr 0,3) sind, bekomme ich genau einen Streifen zu wenig raus. Bei Streifenbreiten wie 0,5 oder 1, stimmt die Streifenanzahl.
Habt ihr vielleicht ne Idee woran das liegt und am besten auch eine Lösung für mein Problem? Ich hab jetzt echt alles durchprobiert und kontrolliert
Vielen Dank, Fabian!