- 帕斯卡教程
- 帕斯卡 - 主页
- 帕斯卡 - 概述
- Pascal - 环境设置
- 帕斯卡 - 程序结构
- Pascal - 基本语法
- Pascal - 数据类型
- Pascal - 变量类型
- 帕斯卡 - 常数
- 帕斯卡 - 运算符
- 帕斯卡 - 决策
- 帕斯卡 - 循环
- 帕斯卡 - 函数
- 帕斯卡 - 程序
- Pascal - 变量作用域
- 帕斯卡 - 弦乐
- 帕斯卡 - 布尔
- 帕斯卡 - 数组
- 帕斯卡 - 指针
- 帕斯卡 - 记录
- 帕斯卡 - 变体
- 帕斯卡 - 集合
- 帕斯卡 - 文件处理
- 帕斯卡 - 记忆
- 帕斯卡 - 单位
- 帕斯卡 - 日期和时间
- 帕斯卡 - 对象
- 帕斯卡 - 类
- 帕斯卡有用资源
- 帕斯卡 - 快速指南
- 帕斯卡 - 有用的资源
- 帕斯卡 - 讨论
Pascal - 重复直到循环
与在循环顶部测试循环条件的 for 和 while 循环不同, Pascal 中的重复...直到循环在循环底部检查其条件。
Repeat ...until 循环与 while 循环类似,不同之处在于 Repeat...until 循环保证至少执行一次。
句法
repeat S1; S2; ... ... Sn; until condition;
例如,
repeat sum := sum + number; number := number - 2; until number = 0;
请注意,条件表达式出现在循环末尾,因此循环中的语句在测试条件之前执行一次。
如果条件为假,则控制流跳回重复,并且循环中的语句再次执行。重复此过程直到给定条件成立。
流程图
例子
program repeatUntilLoop; var a: integer; begin a := 10; (* repeat until loop execution *) repeat writeln('value of a: ', a); a := a + 1 until a = 20; end.
当上面的代码被编译并执行时,它会产生以下结果 -
value of a: 10 value of a: 11 value of a: 12 value of a: 13 value of a: 14 value of a: 15 value of a: 16 value of a: 17 value of a: 18 value of a: 19
pascal_loops.htm