Delphi-Quellcode:
const
EPSILON = 1E-8;
function F(x: Double): Double;
begin
Result := (-8/5) * x + Sqrt(39 / 25 * x * x - 19);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x, y: Double;
begin
x := -100;
while (39 / 25 * x * x - 19) < 0 do
begin
x := x + 0.0001;
end;
repeat
x := x + 0.0001;
y := F(x);
until IsZero(y - Round(y), EPSILON);
ShowMessage(Format('%0.4f %.0n', [x, y]));
end;
naja ich hab jetzt ein while rein mit der das eigentlich umgangen werden müsste, jedoch besteht das problem weiterhin