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 循环当条件是真值时才执行。
他们的运行结果如下
image.png

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

未完待续 个人笔记

本文由 越行勤 创作,如果您觉得本文不错,请随意赞赏
采用 知识共享署名4.0 国际许可协议进行许可
本站文章除注明转载/出处外,均为本站原创或翻译,转载前请务必署名
原文链接:https://blog.yxqin.top/2020/09/30/2020-09-30-23-44-05
最后更新于:  316  天前,内容可能已经不具有时效性,请谨慎参考。

Q.E.D.


努力学习的小菜鸟