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



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




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



1. FOR  ตัวแปร := ค่าเริ่มต้น  TO  ค่าสุดท้าย  DO  คำสั่ง;

2. FOR  ตัวแปร := ค่าเริ่มต้น DOWNTO ค่าสุดท้าย DO คำสั่ง;



  คำสั่ง FOR ที่ใช้คูกับ DOWNTO  ค่าเริ่มต้นจะต้องมากกว่าค่าสุดท้าย



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

        Program TestFor1;

        Uses            crt;

        Var             Name    :  String[30];

                        Count   :  Integer;

        Begin

                Clrscr;

                        Writeln(‘ให้ป้อนชื่อบุคคล 5 ชื่อ’);

                        For  Count := 1 To 5 Do

                                Begin

                                        Write(Count, ‘   ‘);

                                        Readln(Name);

                                End;

                        Writeln(‘ค่ารอบสุดท้าย  =’,Count);

                Readln;

        End.  

         



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

        Program TestFor2;

        Uses            crt;

        Var             Sum, I,Num      :  Integer;

        Begin

                Clrscr;

                        Sum := 0;

                        Writeln(‘นี่คือโปรแกรมบวกเลขจากค่าที่รับเข้ามา’);

                        For  I :=  1  To  10  Do

                                Begin

                                        Writeln(‘ตัวเลขตัวที่  1  คือ’); Readln(Num);

                                        Write(I, ‘   ‘, ‘Num  =’,Num, ‘Sum  =’,Sum);

                                End;

                        Writeln(‘เมื่อ  I  =  10  ออกนอก  Loop  For’);

                Readln;

        End.



                       



                       



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



        Program Interest;

        Uses            crt;

        Var             Total,Rate      :  Real;

                        Year,I          : Word;

        Begin

                Clrscr;

                        Write(‘ให้ป้อนเงินต้นทั้งหมด’);

                        Readln(Total);

                        Write(‘ให้ป้อนอัตราดอกเบี้ยเป็นร้อยละต่อปี’);



Readln(Rate);

                        Write(‘ให้ป้อนระยะเวลาเป็นปี’);

                        Readln(Year);

                        Writeln(‘เงินรวมเมื่อสิ้นปีคือ’);

                        For  I  :=  1  To  Year  Do

                                Begin

                                        Total  :=  Total + Total * Rate / 100;

                                        Writeln(I, ‘=’, Total :3:2);

                                End;

                        Readln;

        End.

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



        Program TestFor3;

        Uses            crt;

        Var             Total,N, I      :  Integer;

        Begin

                Clrscr;

                        Total :=  0;

                        Writeln(‘นี่คือโปรแกรมหาผลบวกตั้งแต่ค่าแรกถึงค่าสุดท้าย’);

                        Readln(N);

                        For   I := N  Downto  1  Do

                                Begin

                                        Write(I, ‘  ‘,Total, ‘+’,I, ‘=’, ‘  ‘);

Total := Total + I;

Write(Total);

                                End;

                        Writeln(‘ออกจาก  Loop  เมื่อค่า  N  =  ค่าสุดท้าย’);

                Readln;

        End.



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

        Program Soodkoon;

        Uses            crt;

        Var             Sum,I,J :  Integer;

        Begin

                Clrscr;

                        For  I := 1  To  5  DO

                        Begin

                                For  J :=  1  To  12  Do

                                Begin

                                        Sum := I * J;

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

                                End;

                        End;

                Readln;

        End.

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

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