通常,一个脚本是逐行读取和执行的,但是有各种各样的控制
结构来影响执行流程。
`c.P`@KA if 命令允许在满足给定条件的情况下执行其他语句。
RTQtXv6mD 例子:
dW#T1mB if a < 0 then
u [Dz~ show "a is negative!"
!HCuae3_ 建议在新的行中开始 then 部分,并使用一些缩进以提高清晰度。此外,还可以添加一
^jB17z[ 个在条件未满足时执行的 else 部分:
{\p&? if a < 0 then
1G`zwfmh~ show "a < 0 !!!"
`:#IZ else
4Gor*{ show "Ok"
)Rc 可以使用 begin 和 end 之间的块,而不是单个命令:
z;Yo76P if a < 0 then
O]VHX![Y$ begin
{({Rb$ show "Problem: a < 0"
o8c5~fG1 b := 0
/Dj-@7.C/ end
c\DMeYrg else
bx._,G begin
P0<)E b := sqrt(a)
6R'z3[K9 show "Ok"
%n)H(QPW end
6.6;oa4j 注意,begin 和 end 应该总是单独出现在一行中。此外,在“then”后面可以有一个命令,也可以没有任何命令,但不只是一个注释。
q#_<J1)z 在下文中,我们将“statement”一词用于以下内容之一:
- 单一命令
- begin 和end之间的一组命令
- 控制结构
对于“for”语句,可以对给定范围的每个值解释一次以下语句。例子:
,*m{Q for x := 1 to 10 do show x, ", ", sin(x):f6
`;HZO8 将使用不同的 x 值执行 show 命令。循环命令可以位于同一行(如上所述)或下一行(最好使用缩进以提高可读性,或者在 begin 和 end 之间可以有一个命令块)。
a?1lj,"~R 后者的一个例子:
opfg %* y := 0
PTP0 _|K for j := 0 to 10 do
3{H&{@Q begin
i#KY'"P x := sqrt(j)
vf0
fa46 y := y + x
j^6,V\;l show x:d3, ", ", y:d3
(MzThGJK_ end
/C6$B)w_*{ 还允许按以下方式指定值列表(以“|”分隔):
6(8zt"E for x := 1 | 2 | 5 | 10 do
{&uN q^Ch show x, " ", 10 * lg(x):f1
>41K>=K 如果值的范围为空(例如,for j := 1 to 0),则根本不执行命令或块。
bR*}
s/ 使用“while”可以构造一个循环,在该循环中,只要满足某个条件,命令(或命令块)就会被一次又一次地解释。例子:
Nz;f| 2h j := 1
w[]\%`69}Z while j < 5 do
S5/p3;O\c show j := j + 1
,u S)N6'b6 使用“repeat”语句,可以构造一个循环,其中一个命令块(这里不需要 begin 和 end)被一次又一次地解释,直到满足某个条件为止。
F~C7$ 例子:
=z*SzG repeat
bZ[ay-f6oK j := rnd(5)
@d_9NOmNT show j:f3
-GODM128 ^ until j < 1
mt\pndTy7! WCyjp 允许组合所有控制结构。例如,可以使用嵌套 for 循环来运行某些二维空间:
-GZ:}<W6+ for x := 1 to 10 do
<tgfbY^nL for y := 0 to 1 step 0.1 do
0w!:YB ,} show x:d4, " ", y:d4, " ", sin(x) * cos(y)
v-&@c 另一个示例是将 if-then 语句作为 if-then-else 语句的 else 部分:
zb. ^p
X if x > 0 then
'k9Qd:a} show "positive"
q'KXn0IY# else if x < 0 then
xp%LXxj show "negative"
jhB+ ] else
UL0n>Wa5 show "zero"
6F; |x 请注意,在数学表达式中可以使用类似的控制结构;这些控制结构不应与脚本命令的控制结构混淆。例如,请参见以下
函数定义:
HE@P< set_a(n, x) := (for j := 1 to n do a[j] := x^j; a[n])
iJb-F*_y 此外,还有 goto 语句,用于直接跳转到脚本中的某个位置。goto 之后,通常只有一些标签(比如变量名),或者括号中的表达式,可以从中计算标签。
软件将搜索一行以冒号开头,紧跟标签,不包含任何其他内容(甚至不包含空白字符或注释)。例子:
jygKw+C goto TEST
Gdv{SCV show "This is not shown.”
8V@\$4@b!# :TEST
T854}RX[{ show "This is shown."
|vY|jaV} 请注意,使用 goto 可以跳出任何其他控制结构,但不能跳转到其他控制结构里。
u&<