0

我正在写长数字算法。这是一个添加到 longint long 二进制数字的函数。我需要在函数内输出总和，以调试它。在不创建新变量的情况下，我怎么能做到这一点？

function add(var s1,s2:bindata;shift:longint):bindata;
var l,i:longint;
    o:boolean;
begin
    writeln(s1.len,' - ',s2.len);
    o:=false;
    l:=max(s1.len,s2.len);
    add.len:=0;
    for i:=1 to l do begin
        if o then Begin
            if s1.data[i+shift] then Begin
                if (s2.data[i]) then add.data[i+shift]:=true
                Else add.data[i+shift]:=false;
            End
            else if s2.data[i] then add.data[i+shift]:=false
            else Begin
                add.data[i+shift]:=true;
                o:=false;
            End;
        End
        Else Begin
            if s1.data[i+shift] then Begin
                if s2.data[i] then 
                Begin
                    add.data[i+shift]:=false;
                    o:=true;
                End
                Else add.data[i+shift]:=true;
            End
            else if s2.data[i] then add.data[i+shift]:=true
            else add.data[i+shift]:=false;
        End;
        output(add);  //Can I output a variable?
    end;
    add.len:=l;
    if o then Begin
        inc(add.len);
        add.data[add.len]:=true;
    End;
end;

4

1 回答 1

1

您正在函数结果变量中累积函数的结果，这通常很好，但使用了过时的样式，并导致您在这里面临的问题。您正在尝试报告函数结果的中间值，为此，您正在尝试引用函数的名称add. 但是，当您这样做时，编译器会将其解释为尝试报告函数本身，而不是该函数的特定调用的预期返回值。output如果定义为接受函数地址，您将获得函数的地址；否则，你会得到一个编译器错误。

如果你的编译器提供了某种公共语言扩展，那么你应该使用隐式Result变量来引用中间返回值，而不是继续通过函数名来引用它。由于Result是隐式声明的，因此您不必创建任何其他变量。编译器会自动识别Result并将其用作函数返回值的别名。只需找到您add在函数中编写的每个位置并将其替换为Result. 例如：

if o then begin
  Inc(Result.len);
  Result.data[Result.len] := True;
end;

Turbo Pascal、Free Pascal、GNU Pascal 和 Delphi 都支持隐式变量，但如果你已经被不Result提供该扩展的编译器卡住了，那么你别无选择，只能声明另一个变量。您可以命名它，然后在末尾添加一行来实现您的函数，如下所示：Result

function add(var s1, s2: bindata; shift: longint): bindata;
var
  l, i: longint;
  o: boolean;
  Result: bindata;
begin
  {
    Previous function body goes here, but with
    `add` replaced by `Result`
  }
  { Finally, append this line to copy Result into the
    function's return value immediately before returning. }
  add := Result;
end;
于 2013-12-17T17:39:04.467 回答