2.3 控制流和条件语句

在 Oberon 中，有许多控制流语句和条件语句，用于控制程序的执行流程。

一个基本的控制流语句是循环。Oberon 中有两种循环语句：WHILE 和 REPEAT。WHILE 循环执行循环体，只要给定的条件为真。而 REPEAT 循环首先执行循环体，然后检查给定的条件是否为真，如果是，则继续执行循环。下面是一个计算 1 到 100 的和的例子，使用了 WHILE 循环语句：

VAR
    i, sum : INTEGER;
BEGIN
    i := 1;
    sum := 0;
    WHILE i <= 100 DO
        sum := sum + i;
        INC(i);
    END;
END.

条件语句是根据条件执行特定代码块的语句。在 Oberon 中有两种条件语句：IF-THEN 和 CASE。IF-THEN 语句根据给定的条件执行代码块。CASE 语句根据给定的表达式执行特定代码块，它将表达式的值与每个 CASE 标签进行比较。下面是一个使用 IF-THEN 语句的例子：

VAR
    n : INTEGER;
BEGIN
    n := 10;
    IF n < 0 THEN
        WriteString("n is negative");
    ELSE
        WriteString("n is non-negative");
    END;
END.

下面是一个使用 CASE 语句的例子：

VAR
    dayOfWeek : INTEGER;
BEGIN
    dayOfWeek := 3;
    CASE dayOfWeek OF
        0: WriteString("Sunday");
        1: WriteString("Monday");
        2: WriteString("Tuesday");
        3: WriteString("Wednesday");
        4: WriteString("Thursday");
        5: WriteString("Friday");
        6: WriteString("Saturday");
    ELSE
        WriteString("Invalid day of week");
    END;
END.

以上是 Oberon 中控制流和条件语句的简单介绍。它们是编写高效程序的基础需知。