คำสั่ง  While…Do  เป็นคำสั่งที่ทำงานเป็นวงรอบเช่นกัน  แต่จะตรวจสอบ

เงื่อนไขก่อน  หากเงื่อนไขเป็นจริงจึงจะเข้าทำงานในวงรอบ และจะทำซ้ำอยู่จนกว่าเงื่อ

นไขเป็นเท็จ  หากเงื่อนไขเป็นเท็จแต่แรกจะไม่เข้าทำงานในวงรอบ




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



                WHILE   เงื่อนไข  (เป็นจริง)  DO   คำสั่ง;



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



        Program TestWhile1;

        Uses            crt;

        Var             Factorial,N,Tem :  Integer;

        Begin

                Clrscr;

                        Write(‘ให้ป้อนตัวเลขที่มีค่าไม่เกิน  7’);

                        Readln(N);

                        Factorial  :=  N;  Tem :=  N;

                        While  N  >  1  Do

                                Begin

                                        N  : =  N – 1;

                                        Factorial  :=  Factorial * N;

                                End;

                        IF (Tem = 1 )  OR  (Tem <> Factorial)  Them

                                Writeln(‘The  Factorial  of’,Tem, ‘is’,Factorial);

                        Else

                                Writeln(‘Can’t  find  the  factorial  of’ ,Tem);

                Readln;

        End.





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



        Program TestWhile2;

        Uses            crt;

        Var             Salary,FiveHum,OneHun,Ten       :  Integer;

                        Total  : Integer;

                        Cntr  :  Integer;

        Begin

                Clrscr;

                        Total := 0; FiveHun := 0; OneHun := 0; Ten := 0;

                        Cntr := 1;

                        Writeln(‘ให้ป้อนเงินเดือน’); Write(Cntr, ‘ :’);

                        Readln(Salary);

                       



While  Salary  <> 0  Do

                                Begin

                                        Total  :=  Total + Salary;

                                       Salary  :=  Salary  Div  10;

                                        Ten  :=  Ten + Salary  Mod  10;

                                        Salary :=  Salary  Div  10;

                                        OneHun  :=  One + Salary  Mod  5;

                                        FiveHun  :=  FiveHun + Salary  Div  5;

                                        Cntr  :=  Cntr + 1;

                                        Write(Cntr, ‘:’);  Readln(Salary);

                                End;

                        Writeln(‘Total  =’,Total);

                       Writeln(‘Five  Hundread  bill  =’,FiveHun);

                        Writeln(‘One  Hundread  bill  =’,OneHun);

                       Writeln(‘Ten  bill  =’,Ten);

                Readln;

        End.

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

        Program TestWhile3;

        Uses            crt;

        Var             Total,Total1,Sum,P      :  Integer;

        Begin

                Clrscr;

                        Writeln(‘ให้ป้อนตัวเลขจำนวนเต็มเพื่อเก็บไว้ที่ตัวแปร Total’);

                        Readln(Total);

                        Writeln(‘ให้ป้อนตัวเลขจำนวนเต็มเพื่อเก็บไว้ที่ตัวแปร P’);

                        Readln(P);

                        While  Total  >  0  Do   Begin

                                While  P  >  0  Do

                                        Begin

                                                Total1  := Total  Div  P;

                                                Sum  :=  Total  Mod  P;

                                        End;

                                End;

                        Writeln(‘ค่าของ Total1  =’,Total1);

                        Writeln(‘ค่าของ  Sum  =’,Sum);

                Readln;

        End.

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

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