Delphi-Quellcode:
function GetOffset(Input, Offset: Extended; Tolerance: Extended = 1) : Single;
var
Error: Extended;
begin
Error:=999;
while Error > Tolerance do
begin
Result:=Rechne(Input, X);
Error:=Abs(Result - Input - Offset);
end;
end;
Wie soll da irgendetwas sinnvoll funktionieren? Änderungen in der Schleife können nur über den geheimnisvollen globalen
Parameter X erfolgen, aber die Fehlerabschätzung kann nicht in die nächste Iteration eingehen, da Error lokal ist und nicht an Rechne übergeben wird!
Neben schlechtem Design scheint mir auch die Logik löchrig zu sein. Normalweise ändert man X innnerhalb der Schleife abhängig von Error (und eventuellen Nebenbedingungen).