Differences

This shows you the differences between two versions of the page.

--- tutorial:conditionalstatement [2019/01/07 10:08]
admin [Break, Continue and Goto]
+++ tutorial:conditionalstatement [2019/01/07 12:56]
admin [Break, Continue, Exit and Goto]
@@ Line 146: / Line 146: @@
 ^  Procedures  ^  Meaning  ^  Format  ^
-| Break | ออกจาก Loop ปัจจุบัน |<sxh delphi;>
+| Break | ออกจาก Loop ปัจจุบัน (For/While/Repeat) |<sxh delphi;>
-procedure ProcedureName;
+  for i:=1 to 10 do
-begin
+    if i=5 then break;
-  {Do something}
-end;
+  writeln('i = ',i);  //i = 5
+  readln;
 </sxh> |
-|Continue| สิ้นสุด Loop ปัจจุบัน เพื่อไปเข้า Loop ถัดไป |<sxh delphi;>
+|Continue| สิ้นสุด Loop ปัจจุบันทันที เพื่อเริ่ม Loop ปัจจุบันใหม่ในรอบถัดไป (For/While/Repeat) |<sxh delphi;>
-procedure ProcedureName;
+  for i:=1 to 5 do
-begin
+  begin
-  {Do something}
+    if i=4 then continue;
-end;
+    writeln('i = ',i); //i = 4 won't be showed
+  end;
 </sxh> |
-|Exit| ออกจาก Sub-Routine ปัจจุบัน |<sxh delphi;>
+|Exit| ออกจาก Sub-Program ปัจจุบัน (Procedure/Function) |<sxh delphi;>
-procedure ProcedureName;
+procedure MyProc;
 begin
-  {Do something}
+  exit;
+  writeln('After Exit'); //This one won't be shown
 end;
 </sxh> |
 |Goto| ไปยัง Label ที่กำหนด |<sxh delphi;>
-PROGRAM Test_Goto;
+label PointA,PointB; //declare labels
-var Answer:Char;
-label RightWay,LeftWay,WrongWay;
 BEGIN
-write('Please select your way: R/L');
+ Goto PointB;
-readln(Answer);
+ PointA:
-if Answer='R' then
+ wrtieln('Passing PointA');
-  Goto RightWay
+ exit; //Exit the program
-else if Answer='L' then
+ PointB:
-  Goto LeftWay
+ wrtieln('Passing PointB');
-else
+ Goto PointA;
-  Goto WrongWay;
-RighWay:
-  writeln('you have selected Right Way');
-  exit;
-LeftWay:
-  writeln('you have selected Left Way');
-  exit;
-WrongWay:
-  writeln('you have selected wrong Way');
-  exit;
 END.
 </sxh> |

Pascal-Lazarus Tutorial

User Tools

Site Tools

Differences

Page Tools