Herzlich willkommen in der Delphi-PRAXiS, moertymoo.
Hier noch mein Begrüßungsgeschenk für dich:
Delphi-Quellcode:
function Horner(x: Extended; coeff: array of Integer): Extended;
var
i: Integer;
begin
Result := 0;
for i := Low(coeff) to High(coeff) do
Result := Result * x + coeff[i];
end;
So berechnet man Funktionswerte für Polynome. Die Koeffizienten werden mit absteigendem Grad übergeben. Für die Funktion f(x) = 4x^3 - 10x und x = 2 liefert Horner(2, [4, 0, -10, 0]) den hoffentlich korrekten Funktionswert (12). Das Horner-Schema solltest du aus der Schule kennen.
Freundliche Grüße vom marabu