超出帕斯卡范围

Question

procedure solve(liko_skaitmenu, rezultatas : integer);
    var i, j : integer; 
begin
    if (not baigti) and (liko_skaitmenu = 0) and (rezultatas = b) then
        begin
            for j := 1 to c do
                WriteLn(ats[j]);
            baigti := true;
        end

        else 
            for i := 1 to N do
            begin
                ats[liko_skaitmenu] := i;
                solve(liko_skaitmenu-1,rezultatas + a[i]);
            end; 
end;

所以我遇到了范围溢出错误，而且我不知道我真正超出范围的地方。我试图用这个函数做的是尝试找到 N 长度数组中等于 b 的 c 元素之和。请帮我。

Answer 1

if (not baigti) and (liko_skaitmenu = 0) and (rezultatas = b) then

当 liko_skatimenu 为 0 时，有可能计算结果为 false，因为计算结果也取决于 rezultatas 和 baigti。如果下次继续，您将得到 ats[-1] := i;，这可能不是您想要的。我会把它改成这样：

if (liko_skaitmenu = 0) or ((not baigti) and (rezultatas = b)) then

Answer 2

这些代码使用了几个全局变量，这使得理解变得困难，并且您没有显示在调用过程之前如何初始化变量。如果代码示例是英文的也会有帮助。

无论如何，

1. 代码并不能防止 rezultatas > 的可能性。 b.。
2. 由于 if 上的复杂条件，ats[liko_skaitmenu] := i; 可能会以 liko_skaitmenu liko_skaitmenu 的值执行。 1..
3. 该代码不防止重复相同的数字/索引位置。

您可能想要更多类似的东西：

if not baigti and (resultatas <= b) then (* if not told to stop, or off-range *)
begin
    if liko_skaitemu = 0 then
    begin
        (* finished searching: either success or failure *)
        if resultatas = b then
           (*success! save the values *)
           baigti := true;
        end;
    end
    else
    begin
       (* continue searching *)
    end
end;

也就是说，该方法是 O(N^c)。您可以通过对数组进行排序并将递归步骤限制为数组中可以保存答案的部分来做得更好，或者您可以使用数组中 c 个数字的组合。有 许多类似的问题在这个论坛上都有很好的答案。