pascal 视频教程_pascal和basic_pascal选择排序(24)

Blue: X := 3;

Yellow, Orange, Black: X := 0;

end;

case Selection of

Done: Form1.Close;

Compute: CalculateTotal(UnitCost, Quantity);

else

Beep;

end;

Control Loops（控制循环）

循环使你能重复执行一系列语句，它使用一个控制条件或变量来决定何时停止执行。

种循环：repeat语句、while语句和for语句。

你能使用Break和Continue过程来控制repeat、while或for语句的流程。

而Continue开始执行下一次循环。

Repeat Statements（Repeat语句）

repeat语句的语法是

repeat statement1; ...; statementn; until expression

这里，expression返回一个布尔值（until之前的最后一个分号是可选的）Breakrepeat语句顺序执行它的命令Object Pascal

- 37 - 有三终止它所在的语句， 。

Syntactic elements

序列，在每次循环之后测试expression，当expression返回True时，repeat语句就停止。repeat语句中的命令总是至少执行一次，因为直到完成第一次循环才测试expression。

repeat语句的例子包括

repeat

K := I mod J;

I := J;

J := K;

until J = 0;

repeat

Write('Enter a value (0..9): ');

Readln(I);

until (I >= 0) and (I <= 9);

While Statements（While语句）

while语句和repeat语句类似，除了它的控制条件在第一次循环之前进行测试。因此，若条件为假，则命令永远不会执行。

while语句的语法是

while expression do statement

这里，expression返回一个布尔值，statement可以是复合语句。while语句重复执行构成它的命令，在每次循环前测试expression的值。只要expression返回True，执行就继续下去。

while语句的例子包括

while Data[I] <> X do I := I + 1;

while I > 0 do

begin

if Odd(I) then Z := Z * X;

I := I div 2;

X := Sqr(X);

end;

while not Eof(InputFile) do

begin

Readln(InputFile, Line);

Process(Line);

end;

For Statements（For语句）

for语句不像repeat和while语句，它需要你明确指定循环进行的次数。for语句的语法是

for counter := initialValue to finalValue do statement

或

for counter := initialValue downto finalValue do statement

这里

? counter是一个有序类型的局部变量（在包含for语句的块中声明），没有任何限定符；

? initialValue和finalValue是和counter赋值兼容的表达式；

? statement是简单或结构语句，它不改变counter的值。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-23665-24.html