Delphi-Quellcode:
procedure TFunktionsgraph.Schaubild_Zeichnen;
var c: integer;
begin
for c:= 0 to k do
begin
a0:= eingabe[0,c];
a1:= eingabe[1,c];
a2:= eingabe[2,c];
a3:= eingabe[3,c];
Kurve_Zeichnen;
end;
end;
Delphi-Quellcode:
function f(x:extended) :extended;
begin
f:= a3*Power(x,3)+a2*Power(x,2)+a1*x+a0;
end;
In Kurve_Zeichnen wird dann das Schaubild über die Funktion f(x) gezeichnet und der Listbox der jeweilige Eintrag hinzugefügt.
LBGezeichneteFunktionen.Items.AddObject('f´(x)='+ausgabe);
Hoffe das hilft dir weiter
.