การทำงานเป็นวงรอบ (LOOP)

                การทำงานเป็นวงรอบ (LOOP) หมายถึง การทำงานเป็นรอบตามเงื่อนไขที

่กำหนดและจะเลิการทำงานออกนอกวงรอบก็ต่อเมื่อเงื่อนไขที่ตรวจสอบเป็นจริง

หรือเป็นเท็จตามที่ผู้เขียนโปรแกรมกำหนดไว้





        คำสั่งที่ทำงานเป็นวงรอบมีดังนี้

1. คำสั่ง  REPEAT…UNTIL

2. คำสั่ง FOR…TO…DO และ FOR…DOWNTO…DO

3. คำสั่ง WHILE…DO



1. คำสั่ง  REPEAT…UNTIL

เป็นคำสั่งที่ทำงานเป็นวงรอบ (LOOP)  แบบหนึ่งโดยทั่ว ๆ จะทำงานเป็นวงรอบจน

กว่าเงื่อนไขจะเป็นจริง



รูปแบบการใช้งาน



        REPEAT  คำสั่ง;

                        คำสั่ง;         1  LOOP

                        คำสั่ง;

        UNTIL           เงื่อนไข;



ตัวอย่างที่ 1



                Program TestRepeat;

        Uses            crt;

        Var             Sum     :  Real;

                        N       :  Integer;

        Begin

                Clrscr;

                        Sum  :=  0.0;

                        N :=  1;

                        Repeat

        1  LOOP         Sum :=  Sum+1/N;

                                N :=  N + 1;

                        Until  2.0 – Sum < 0.001;



                Writeln (‘Sum  =  ‘,Sum:10:8, ‘N  =’,N Div  2)

                Readln;

        End.









 ตัวอย่างที่ 2



        Program TestRepeat1;

        Uses            crt;

        Var              Name   :  String[30];  I       :  Integer;

        Begin

                        I := 0;

                Repeat

                        Clrscr;

                        Writeln(‘ป้อนชื่อคน’);

       1  LOOP          Readln(Name);

                        I := I + 1;

                Until  I = 10;

                Writeln(‘ชื่อคนสุดท้ายคือ     ‘, Name, ‘ค่า  I  =’,I);

                Readln;

        End.



ตัวอย่างที่ 3



        Program TestRepeat2;

        Uses            crt;

        Var              Sum,I,J   :  Integer;

        Begin

                Clrscr;

                        Sum := 0;  I  :=0;  J :=  0;

                        Repeat

                                Sum := I * J;

        1  LOOP         I  :=  I + 1;

                                J  :=  J + 2;

                                Writeln(‘Sum  =’,Sum);  Writeln(‘I  =’,I);

                                Writeln(‘J  =’,J);

                        Until  Sum  >  100;

                Writeln(‘ออกนอก  LOOP  จบการทำงาน’);

                Readln;

        End.

หากต้องการทราบการอัพเดทของ เขียนโปรแกรม การทำงานเป็นวงรอบ (LOOP) ภาษาปาสคาล และเรื่องที่เกี่ยวข้อง แนะนำให้กด ที่ facebook ด้านล่างนี้เลยค่ะ เผื่อที่จะได้อัพเดทก่อนใคร

อัพเดทเมื่อ วันอาทิตย์ที่ 17 พฤศจิกายน พ.ศ. 2556 ในหมวดหมู่ของ เขียนโปรแกรม เรื่อง เขียนโปรแกรม การทำงานเป็นวงรอบ (LOOP) ภาษาปาสคาล