Bisektion - Ein Verfahren zur Nullstellenberechnung

[marabu]

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