คำสั่ง  CASE

               

                คำสั่ง  Case  เป็นคำสั่งที่สั่งให้เครื่องเลือกปฏิบัติงาน  เมื่อมีเงื่อนไขให้

เลือกหลายเงื่อนไข





รูปแบบการใช้คำสั่ง

               

                Case    เงื่อนไข          of

1 :  คำสั่ง 1;

2 :  คำสั่ง 2;



n     :  คำสั่ง  n;

                Else

                        คำสั่ง;

                        คำสั่ง;



                End; {Case}



ตัวอย่างโปรแกรม

       

Program         TestCase1;

Uses                    Crt

Var                     num1,num2  :  Integer;

                        Opr  :  Char;

Begin

        Clrscr;

                Writeln;Writeln;Writeln;

                Write(‘ให้พิมพ์เครื่องหมาย  +,-,*,/ อย่างใดอย่างหนึ่ง’);

                Readln(opr);

                Write(‘ให้พิมพ์ตัวเลขจำนวนเต็มค่าที่  1’);  Readln(num1);

                Write(‘ให้พิมพ์ตัวเลขจำนวนเต็มค่าที่  2’);  Readln(num2);

Write(‘ผลลัพธ์  =’);

Case    opr  of

                ‘+’     :       Writeln(num1+num2);

                ‘-‘     :       Writeln(num1-num2);

                ‘*’     :       Writeln(num1*num2);

                ‘/’     :       Writeln(num1/num2);

Else

                Writln(opr, ‘Is  not  operator’);

        End; {Case}

        Readln;

End.



ตัวอย่างโปรแกรม

Program         Testcase2;

Uses                    crt;

Var                     Mark : Integer;

Begin

        Clrscr;

                Write(‘ให้พิมพ์คะแนนที่คุณสอบได้’);Readln(Mark);

                Case    Mark    of

                        90..100 : Writeln(‘คุณได้เกรด  A’);

                        80..89  : Writeln(‘คุณได้เกรด  B’);

                        70..79  : Writeln(‘คุณได้เกรด  C’);

                        50..69  : Writeln(‘คุณได้เกรด  D’);

                        0..49   : Writeln(‘คุณสอบไม่ผ่าน’);

                Else

                        Writeln(‘ข้อมูลผิดพลาด’);

                End;  {Case};

        Readl;n;

End.





 ตัวอย่างโปรแกรม

Program         Testcase3;

Uses                    crt;

Var                     Name : String[30];

                        Sex,Age : Integer;

Begin

        Clrscr;

                Write(‘ให้ป้อนชื่อ); Readln(Name);

                Write(‘ให้ป้อนอายุ); Readln(Age);

                Write(‘ให้ป้อนเพศเป็นตัวเลขถ้าเพศชายให้ป้อน 1 ถ้าเพศหญิงให้ป้อน 2’);

                Readln(Sex);

                Case  Sex  of

                        1 : Case  Age  of

                                1..15 : Begin

                                        Writeln(name);

                                        Writeln(‘เพศชาย’);

                                        Writeln(‘คุณอายุอ่อนกว่าฉัน’);

                                           End;

                                16 : Begin

Writeln(name);

Writeln(‘เพศชาย’);

Writeln(‘คุณอายุเท่ากันฉัน’);

                                       End;

                                17..150 : Begin

                                            Wirteln(name);

                                            Writeln(‘เพศชาย’);

                                            Writeln(‘คุณแก่กว่าฉัน’);

                                          End;

                                End;

                        2 : Case  Age  of

                                1..15 : Begin

                                        Writeln(name);

                                        Writeln(‘เพศหญิง’);

                                        Writeln(‘คุณอายุอ่อนกว่าฉัน’);

                                           End;

                                16 : Begin

Writeln(name);

Writeln(‘เพศหญิง’);

Writeln(‘คุณอายุเท่ากันฉัน’);

                                       End;

                                17..150 : Begin

                                            Wirteln(name);

                                            Writeln(‘เพศหยิง’);

                                            Writeln(‘คุณแก่กว่าฉัน’);

                                          End;

                                End;

        Readln;

End.

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

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