tutorial:conditionalstatement
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision | ||
|
tutorial:conditionalstatement [2019/01/07 10:50] admin [Break, Continue, Exit and Goto] |
tutorial:conditionalstatement [2019/01/07 13:00] (current) admin [Break, Continue, Exit and Goto] |
||
|---|---|---|---|
| Line 146: | Line 146: | ||
| ^ Procedures ^ Meaning ^ Format ^ | ^ Procedures ^ Meaning ^ Format ^ | ||
| - | | Break | ออกจาก Loop ปัจจุบัน (ใช้กับ Loop พวก For, While, Repeat) |<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> | | </sxh> | | ||
| - | |Continue| สิ้นสุด Loop ปัจจุบัน เพื่อไปเข้า Loop ถัดไป (ใช้กับ Loop พวก For, While, Repeat) |<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> | | </sxh> | | ||
| - | |Exit| ออกจาก Sub-Program ปัจจุบัน |<sxh delphi;> | + | |Exit| ออกจาก Sub-Program ปัจจุบัน (Procedure/Function) |<sxh delphi;> |
| - | procedure ProcedureName; | + | procedure MyProc; |
| begin | begin | ||
| - | {Do something} | + | exit; |
| + | writeln('After Exit'); //This won't be shown | ||
| end; | end; | ||
| </sxh> | | </sxh> | | ||
| - | |Goto| ไปยัง Label ที่กำหนด |<sxh delphi;> | + | |Goto| ไปยัง Label ที่ระบุ |<sxh delphi;> |
| - | PROGRAM Test_Goto; | + | label PointA,PointB; //declare labels |
| - | var Answer:Char; | + | |
| - | label RightWay,LeftWay,WrongWay; | + | |
| BEGIN | 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. | END. | ||
| </sxh> | | </sxh> | | ||
tutorial/conditionalstatement.1546833040.txt.gz · Last modified: 2019/01/07 10:50 by admin
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
