robsean@126.com QQ 群：192903718 2 / 4 循环在你想多次重复代码时使用。例如，如果你想在屏幕上打印 10次“Hello”，你可能需要 10 个 Writeln 命令。你可以同在一个循环中放置 1 个 Writeln 来完成相同的事，循环将重复自 身 10次。 在这里有 3种类型的循环，它们分别是 for循环，while循环和 repeat until 循环。 For 循环 for 循环使用一个循环计数器变量，它每次加 1，从第一个数循环到最后一个数。 Program Loops; Var i:Integer; begin For i :=1 to 10 do Writeln('Hello'); end. 如果你想在一个循环中有多个命令，那么你必需把它们放置在一组 begin 和 end 之间。（重要） Program Loops; Var i:Integer; begin For i :=1 to 10 do begin Writeln('Hello'); Writeln('This is loop',i); end; end. While 循环 for 循环在一个条件为 True 时重复。顾名思义，该条件在循环的顶部被测试是否为 True，而 不是在循环运行期间。一个 While 循环不需要一个循环计数变量，但是如果你想使用一个变量 的话，你必需在进入整个循环前初始化它的值。 Program Loops; Var i:Integer; begin i:=0; While i <= 10 begin i :=i+1; robsean@126.com QQ 群：192903718 3 / 4 Writeln('Hello'); end; end. Repeat until 循环 repeat until 循环类似于 While 循环，除了它在循环的底部被测试是否为
