如何在 Pascal 中的另一个过程中调用一个过程

Question

procedure questiontype;  
 begin  
  writeln ('Enter the type of question you would like...');  
  writeln ('1. Add');  
  writeln ('2. Multiply');  
  writeln ('3. Subtraction');  
  writeln ('4. Division');  
  readln (typeofquestion);  
   case typeofquestion of
    1: add;
    2: multiply;
    3: subraction;
    4: division   
else writeln ('Choose again'); 
end;
end;          

加、乘、减、除都是过程。如果我把它放在主程序中，它会正常工作，但是当我把它作为一个过程本身时，我得到错误未声明的标识符。我在很多网站上都看过这样的例子，但我找不到。

如何使加法、乘法、减法、除法从这个内部进入它们的程序？

Answer 1

您必须在调用它们的例程之前声明过程。虽然您没有展示其他例程是如何定义的，但我推断它们是在您展示的例程之后声明的。

因此您可以简单地重新排序您的代码，以便在调用它们的过程之前定义加法、乘法、减法和除法。

所以这会起作用：

procedure add;
begin
  //do something;
end;

procedure questiontype;  
begin  
  add;  
end;

但这不会编译：

procedure questiontype;  
begin  
  add;  
end;

procedure add;
begin
  //do something;
end;

Pascal 及其变体在单遍中编译，如果编译器在提到它时不知道例程，它就无法继续。

Pascal 通过使用 *forward 声明支持 A 调用 B 和 B 调用 A 的协同例程。例如：

procedure B; forward;

procedure A;
begin
  B;
end;

procedure B;
begin
  A;
end;

当然，这是一个无限循环，它将以堆栈溢出终止（多么合适！），但当然也有真实的例子证明这是必要的。

但是，很少需要前向声明，应尽可能避免，因为它们会增加复杂性。总是可以通过简单地重新排序您的声明来找到解决方案。

最后，声明在使用之前发生的排序约束在 Brian Kernighan 的著名文章 Why Pascal is Not My Favorite Programming Language 中明确提到。

Answer 2

我看到你已经标记了你的问题[delphi] 以及[pascal]，所以我猜你实际上是在编写 Delphi 代码。然后你有更多的选择，除了关心过程的顺序和大卫讨论的forward指令。

Delphi 项目（GUI 或控制台）通常被划分为“单元”。一个典型的单位如下所示：

unit MyUnit;

interface

const
  RANDOM_NUMBER = 17;

var
  PrintExtraNiceMessage: boolean;

procedure DoThis;
procedure DoThat;

implementation

const
  BUFFER_SIZE = 256;

procedure InitSomething;
begin
  // TODO: do some internal work...
end;

procedure DoThis;
begin
  // TODO: do something
end;

procedure DoThat;
begin
  // TODO: do something else
end;

您会注意到该单元分为两部分：interface 部分和implementation 部分。 interface 部分仅包含声明（函数、过程、类型、常量和变量）；此处声明的函数和过程在implementation 部分中定义（即实现）。请注意，implementation 部分中定义的函数和过程可能在 interface 部分中没有声明。

伟大的想法是interface 部分的内容对程序中的所有其他单元可见，而implementation 部分的内容仅在该单元内部可见。所以程序中的任何其他单元都可以使用RANDOM_NUMBER 常量、PrintExtraNiceMessage 变量以及DoThis 和DoThat 这两个过程。但是你只能在这个单元中使用InitFunction（例如，insideDoThis 或DoThat）。此外，常量BUFFER_SIZE 在这个单元之外也是不可见的。

这是一种非常优雅的方法。 interface 部分描述了该单元如何在其他单元中使用（例如，有哪些功能以及如何使用它们），实现细节在 implementation 部分中“隐藏”。

这种方法的一个好处是它至少可以解决您的问题。 如果add、multiply、subtract 和divide 过程应该对其他单元可见，那么它们应该在interface 部分中声明。但是，当涉及到您的questiontype 过程时，编译器确实知道它们，因此即使它们在questiontype 部分内的questiontype 过程下方定义（实现），您也可以使用调用它们。但是，另一方面，如果让其他单位使用这些程序完全没有意义，那么它们不应该在interface 部分中声明，您需要按照 David 的建议进行操作。这也适用于您的项目中根本没有正常单位的情况，也就是说，如果您只有 program 文件，该文件没有分为 interface 和 implementation 部分。

Answer 3

请注意，OP 的示例有一个仅适用于最后一个“if”的 else。据推测，如果他们输入 1、2 或 3，相应的过程会触发、返回，然后他们会看到“再次选择”。如果他们输入 4，他们不会。这将由 Case 或级联 if..else if 结构很好地服务，其中最后的 else 仅在“当所有其他方法都失败时”触发，这就像 OP 的意图一样。