Question

如果没有在此处复制粘贴我的代码，如果计算某个值到X＆＃39;？

，我怎样才能阻止我的ADA程序在运行时执行任何代码行？

类似的东西：

 variable_name := variable_name +4;
 if variable_name >1 then
 // END program here and dont execute any lines under this one
 end if

我不是编程新手，而是ADA的新手，所以找到正确的语法很痛苦。有什么帮助吗？

Answer 1

没有任何具体的语法。

如果您在主要程序中，可以使用简单的return。

与Ada83兼容的答案为here on SO。

只要你没有任何任务，两者都可以。

有一个Ada95 Rosetta Code解决方案，无论您是否有任务都可以使用：

with Ada.Task_Identification;  use Ada.Task_Identification;

procedure Main is
   -- Create as many task objects as your program needs
begin
   -- whatever logic is required in your Main procedure
   if some_condition then
      Abort_Task (Current_Task);
   end if;
end Main;

和GNAT特定的解决方案，也可以完成任务：

with Ada.Text_IO; use Ada.Text_IO;
with GNAT.OS_Lib;
procedure Stopping is
   procedure P is
   begin
      GNAT.OS_Lib.OS_Exit (0);
   end P;
begin
   Put_Line ("starting");
   P;
   Put_Line ("shouldn't have got here");
end Stopping;

Answer 2

 if variable_name >1 then
    raise PROGRAM_ERROR with "Aborted because ...";
 end if;

会按你的要求做。不管你想要的是另一回事，你还没有给我们足够的背景来猜测。

“abort”语句也可以使用，但它的正常作用是终止多任务程序中的任务。

提出异常可能是最简单的，如果您不喜欢标准异常，您可以随时声明自己的异常。除了例外，您还可以在自己的异常处理程序中进行任何整理（例如，如果需要，可以关闭文件）。有关详细信息，请参阅the Wikibook。

如何在我的程序中停止执行

2 个答案: