Object Pascal 结构化程序设计

Object Pascal 关系运算符

---

运算符	名称
=	等于
<>	不等于
>	大于
<	小于
>=	大于等于
<=	小于等于
<= (属于元素的)	包含于
>= (属于元素的)	包含
in (属于元素的)	属于

# Object Pascal 逻辑运算符

---

运算符	名称	含义
Not	逻辑非	单目运算符，进行取反操作，由True变为False或由False变为True
And	逻辑与	双目运算符，只有两个表达式的值同时为True时，结果才为True则为False
Or	逻辑或	双目运算符，只要有一个表达式的值为True,结果就为True
Xor	逻辑异或	双目运算符，当两个表达式的值不同，则结果为True，否则为False

注：逻辑运算符的优先级分别是：Not > And > Or(Xor)

Object Pascal 单分支与双分支IF语句

---

语法格式：

if ( 表达式 ，逻辑运算符， 表达式) then为True时执行
else为False时执行 （这里才是一个if 表达式的结尾）

	beginif (  1 < 0 ) then ShowMessage('True')elseShowMessage('False');end;

Object Pascal 多分支Case语句

---

语法格式：

case 表达式 of 值1：语句1值2：语句2值3：语句3...else都不匹配就走这就（可以省略）
end;

program MultiBranchExample;usesSysUtils;varDirection: Integer;
begin// 假设Direction的值已经被正确赋值case Direction of0:Writeln('方向为北');1:Writeln('方向为南');2:Writeln('方向为东');3:Writeln('方向为西');elseWriteln('未知方向');end; // case的结束
end.

Object Pascal 循环结构语句

---

语法格式：while语句

while (表达式) do循环体 // 里面要有结束循环的判断

vari,j,k: integer;
begini := 1;j := 10;k := 0;while (i < j) do begink := k + i;i := i + 1; end;
end;

break 和continue 语句 (用来强制终止循环)

vari,j,k: integer;
begini := 1;j := 10;k := 0;while (i < j) do begink := k + i;i := i + 1; if ( i mod 2  = 0 ) thenbegincontinue // 跳出本次循环end;if( i > 5 ) then beginbreak; // 跳出整个循环end;end;
end;

语法格式：repeat语句

repeat 循环体
until ( 表达式 )

vari,j,k: integer;
begini := 1;j := 10;k := 0;repeat // 先执行循环体中的内容，再进行判断条件成不成立k := k + i;i := i + 1; until (i > j);
end;

注：这个语法不需要用begin / end 包裹

语法格式：for语句

for  变量:=赋值 to 变量值+1 dobegin循环体end;for  变量:=赋值 downto 变量值-1 dobegin循环体end;

for to

	vari,j,k: integer;
beginj := 10;k := 0;for i:=1  to j do // 这里的 i 会每次循环过后 i的值会自动 +1 ，只到变为 j的值 就退出循环 k: = k + i; // 这里如果只有一行，则不需要用begin / end 包裹
end;

for downto

	vari,j,k: integer;
beginj := 1;k := 0;for i:=10  to j do // 这里的 i 会每次循环过后 i的值会自动 -1 ，只到i 变为 j的值 就退出循环 k: = k + i; // 这里如果只有一行，则不需要用begin / end 包裹
end;