Ada 三元

Ada 三元是一种特殊的 if 语句，用于在条件为真或假时返回不同的结果。在 Ada 编程语言中，它们广泛用于实现复杂的决策结构，并减少代码中的重复。

语法

Ada 三元的语法如下：

result := (condition) ? true_expr : false_expr;

其中，condition 是一个布尔表达式，true_expr 和 false_expr 是可以被赋给 result 变量的两个表达式。如果 condition 为真，则 true_expr 将被赋给 result，否则 false_expr 将被赋给 result。

示例

以下是一个示例程序，展示了如何在 Ada 中使用三元表达式：

with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
   Age : Integer := 20;
begin
   Put_Line("You " & (Age >= 18 ? "are" : "are not") & " an adult.");
end Main;

在此示例程序中，我们使用三元表达式来判断一个人是否成年，并用不同的字符串返回结果。

总结

Ada 三元是一种非常强大的工具，可以大大简化代码，并使复杂的语句结构变得更容易理解。虽然它们可能看起来有些奇特，但一旦您掌握了它们，就可以在 Ada 编程中运用自如。