Loop Statements

ประกอบไปด้วย For..Do, While..Do และ Repeat..Until ดังนี้

Statements

Syntax

Example

For..Do

For i:={Start} to {End} do
  {Statement};

For i:={Start} downto {End} do
  {Statement};

For i:=1 to 10 do
  writeln('i = ',i);

For i:=10 downto 1 do
  writeln('i = ',i);

While..Do

While {Condition} do 
  {Statement};

i:=0
While i<10 do 
  i:=i+1;

Repeat..Until

Repeat {Statement} until 
  {Condition};

i:=0;
Repeat i:=i+1 until 
  i<10;

จากตารางข้างบน เป็นรูปแบบ Loop ที่มี statement แค่บรรทัดเดียวต่อหนึ่ง condition เท่านั้น อย่างไรก็ตามหากมี statement หลายบรรทัด ต้องเติม begin .. end ด้วยทุกครั้ง ยกเว้น Repeat..Until Loop ดังนี้

Loops: Multiple Statements

Statements

Syntax

Example

For..Do

For i:={Start} to {End} do
  begin
    {Statement1}; 
    {Statement2};
    ...
  end;

For i:=1 to 10 do
  begin
    j:=i*2+5;
    writeln('i = ',i); 
  end;

While..Do

While {Condition} do 
  begin
    {Statement1};
    {Statement2};
    ...
  end;

i:=0
While i<10 do 
  begin
    writeln('i = ',i);
    i:=i+1;
  end;

Repeat..Until

Repeat 
  {Statement1};
  {Statement2}; 
  ... 
until 
  {Condition};

i:=0;
Repeat 
  i:=i+1;
  writeln('i = ',i){;}
until 
  i<10;

หมายเหตุ - คำสั่งสุดท้ายของ Repeat ก่อนจะเข้าสู่ Until จะใส่เครื่องหมาย “;” ปิดท้ายหรือไม่ก็ได้

Pascal-Lazarus Tutorial

Sidebar

Loop Statements

Pascal-Lazarus Tutorial

User Tools

Site Tools

Sidebar

Loop Statements

Page Tools