Delphi条件语句和循环

条件语句 if

标准格式

if True then
begin
Writeln('if完整版');
end;

if True then
  Writeln('if简写');

if True then
begin
    Writeln('if else完整版');
end
else
begin
       Writeln('if else完整版');
end;

if True then
    Writeln('if else简写')//这里没有分号
else
  Writeln('if else简写');

case选择语句

var
  i: Integer;
   i:=6;
  case i of
    1:
    begin
      Writeln('条件1');
    end;
    2:
    begin
      Writeln('条件2');
    end;
    3:
    begin
      Writeln('条件3');
    end;
    4:
    begin
      Writeln('条件4');
    end
    else
     begin
        Writeln('条件默认');
     end;

循环语句for

Pascal 中的for循环严格地建立在计数器基础上，循环每执行一次，计数器不是增加一个值就是减小一个值。下面是一个for语句的简例，用来将前十个数加起来

var
  K, I: Integer;
begin
  K := 0;
  for I := 1 to 10 do
    K := K + I;

你还可以这样写

var
  K, I: Integer;
begin
  K := 0;
  for I := 10 downto 1 do
    K := K + I;

Pascal 中的for循环语句其灵活性比其他语言小（它不能指定1之外的步长），不过简单也容易理解。
如果需判断的条件比较复杂，或想自定义计数器，你可以用while语句 或 repeat 语句，而不是for循环语句。

while语句和repeat语句

while-do 循环语句和 repeat-until 语句的不同点在于repeat 循环语句的代码至少要执行一次,并且

I:=0;
   while(I<10)do
   begin
      I:=I+1;
       Writeln(i);
   end;
I:=0;

repeat
I:=I+1;
  Writeln(i);
until I>10;
Readln;

repeat-until 循环的条件是反向的条件，只要不满足这个条件，循环就执行；当条件满足时，循环终止。这正好与while-do 循环相反，while-do 循环当条件是真值时才执行。
他们的运行结果如下

break & continue
用 Break 和 Continue 系统过程可以改变循环执行的标准流程。Break 中断循环；Continue直接跳至循环测试句，或使计数器增加一个步长，然后继续循环（除非条件为空或计数器达到最大值）。还有两个系统过程 Exit 和 Halt，让你立即从函数或过程中返回，或者终止程序。

未完待续 个人笔记