0

ADAのハノイプログラムの再帰塔。

これまでのところ、ほとんどがダウンしていると思いますが、私の問題は解決機能にあります。アルゴリズムは問題ないと思いますが、それを関数に実装する方法がわかりません。これを使用するすべての例は、次のように関数自体を使用しています。 例

私のエラーは次のとおりです。

hanoi.adb:23:09: cannot use function "solve" in a procedure call
hanoi.adb:27:09: cannot use function "solve" in a procedure call
hanoi.adb:59:15: missing ")"

これまでの私のコードは次のとおりです。

with ada.text_io, ada.command_line;
use ada.text_io, ada.command_line;


procedure hanoi is

Argument_Error : EXCEPTION;
max_disks, min_disks : integer := 3;
moves : integer := 0;


verbose_bool : boolean;

function solve (N: in integer; from, to, using: in character) return integer is
begin


if N = 1 then
    if verbose_bool = true then
    put("Move disk " & integer'image(N) & " from " & character'image(from) & " to " & character'image(to));
    end if;
else
    solve(N - 1, 'A', 'B', 'C');
    if verbose_bool = true then
    put("Move disk " & integer'image(N) & " from " & character'image(from) & " to " & character'image(to));
    end if;
    solve(N - 1, 'B', 'C', 'A');
end if;
    moves := (2 ** min_disks) - 1;
    return moves;

end solve;

begin

while min_disks /= max_disks loop

IF Argument_Count > 1 THEN
      if Argument_Count = 1 then
      min_disks := integer'value("Argument(1)");
      elsif Argument_Count = 2 then
      min_disks := integer'value("Argument(1)");
      max_disks := integer'value("Argument(2)");
      elsif Argument_Count = 3 then
      min_disks := integer'value("Argument(1)");
      max_disks := integer'value("Argument(2)");
      if argument(3) = "v" or argument(3) = "V" then
      verbose_bool := true; -- if argument is V or v it is true
      end if;
      END IF;
END IF;

IF Argument_Count > 3 THEN
      RAISE argument_error;
END IF;


if (max_disks > 0) then
      solve (N: integer; from, to, using : character);
END IF;

min_disks := min_disks + 1;

end loop;
EXCEPTION
   WHEN Name_Error =>
      Put_Line("Please re-enter your arguments, check to see if you entered integers and characters. Max of 3 arguments.");
   WHEN OTHERS =>
      Put_Line("Please try to not break the program again, thank you.");

end hanoi;
4

3 に答える 3

7

関数は値を返しますが、プロシージャは値を返しません。また、Solve を関数として定義しました。

Ada では、関数の戻り値で何かを行う必要がありますが、ここでは行っていません。(他のプログラミング言語で行われているように、返された結果を無視することはできません。)

エラー メッセージに示されているように、構文はプロシージャ コールを作成するもの、つまりプロシージャを呼び出すものですが、関数の名前を指定しています。

関数から返される値が意味のあるものである場合は、その目的に従って処理してください。意味のある機能を提供していない場合は、それを削除して Solve をプロシージャとして定義します。

于 2013-02-06T01:42:03.493 に答える
1

余談ですが、表示コードをネストされたサブプログラムにリファクタリングすることもできます。以下の概要ではprocedure Print、のパラメータにアクセスできますprocedure Solve。

procedure Solve (N: in Integer; From, To, Using: in Character) is

   procedure Print is
   begin
      if Verbose then
      ...
      end if;
   end Print;

begin
   if N = 1 then
      Print;
   else
      Solve (N - 1, 'A', 'B', 'C');
      Print;
      Solve (N - 1, 'B', 'C', 'A');
   end if;
end Solve;
于 2013-02-06T02:46:12.900 に答える
0

Solveの呼び出しが適切なAda関数参照ではないというマークのコメントに加えて、使用している構文は仕様の構文であり、Solveの呼び出しの構文ではありません。あなたはそれを最初の呼び出しではなく、Solveの体に正しく持っていました：

  if (max_disks > 0) then
        solve (N: integer; from, to, using : character);
  END IF;
于 2013-02-06T15:26:39.147 に答える