Zitat von
Dave_lernt_Delphi:
Genau das meine ich
Wie aber kann ich das machen?
Code:
var
w, x, y, z: Integer
[...]
for w := Low(Integer) to High(Integer) do
begin
for x := Low(Integer) to High(Integer) do
begin
for y := Low(Integer) to High(Integer) do
begin
for z := Low(Integer) to High(Integer) do
begin
if w * x - y + z = 1302 then
begin
ShowMessageFmt("%0:d * %1:d - %2:d + %3:d", [w, x, y, z]);
end;
end;
end;
end;
end;
Das ist aber nicht korrekt, da es eigentlich unendlich viele Lösungen gibt (es sei denn, Du schränkst den Wertebereich ein, so wie ich es hier getan habe).
// Edit: Natürlich kann man das noch optimieren, ist halt ein Quick-and-Dirty-Ansatz, der Deinen Rechner und Dich einige Zeit lang beschäftigen dürfte.