คำสั่ง  IF – THEN – ELSE



                เป็นคำสั่งใช้ตรวจสอบเงื่อนไขว่าเป็นจริงหรือเป็นเท็จ

  ถ้าเงื่อนไขเป็นจริงจะไปทำงานที่คำสั่งที่อยู่หลัง  Then

  ถ้าเงื่อนไขเป็นเท็จจะไปทำงานคำสั่งที่อยู่หลัง  Else  หรือถ้ามีมีคำสั่ง  Else  ก็จะ

ไปทำงานที่คำสั่งบรรทัดถัดลงมาจาก  IF




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

        IF  (เงื่อนไข)  THEN  (คำสั่ง)

        ELSE  (คำสั่ง);

เช่น

                IF  X > Y  THEN  Writeln(X + Y)

                ELSE Writeln(X – Y);



                IF  NAME  =  ‘น’  THEN  Writeln(NAME)

                ELSE  Readln(NAME);







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

Program         TestIf;

Uses                    crt;

Var                     H,A,B  :  Real;

Begin

        Clrscr;

                Write(‘ให้พิมพ์ค่าของ  A  เป็นตัวเลขจำนวนเต็ม’);

                Readln(A);

                Write(‘ให้พิมพ์ค่าของ  B  เป็นตัวเลขจำนวนเต็ม);

                Readln(B);

                IF  (A > 0)  AND  (B > 0)  THEN    H := Sqrt(Sqr(A) + Sqr(B);

                Writeln(‘ด้านตรงข้ามมุมฉาก = ‘, H:5:2);

                Readln;

End.







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

Program         TestIf1;

Uses                    crt;

Var                     Name  : String[30];

                        Sex  :  string[3];

                        Age  :  Integer;

Begin

        Clrscr;

                Writeln(‘ให้พิมพ์ชื่อของคุณ’);Readln(Name);

                Writeln(‘ให้พิมพ์เพศหญิง  หรือ  ชาย’);Readln(Sex);

                Writeln(‘ให้พิมพ์อายุของคุณ’);Readln(Age);

                Clrscr;

                IF  Age > 17  THEN  Writeln(‘คุณแก่กว่าฉัน’ : 30)

                        ELSE  IF  Age  = 17  THEN  Writeln(‘คุณอายุเท่ากับฉัน’  : 30);

                                ELSE  IF  Age  <  17  THEN  Writeln(‘คุณอายุน้อยกว่าฉัน’ : 30);

                Writeln(Name,Sex,Age : 30);

                Readln;

End.



Program         TestIf2;

Uses                    crt;

Var                     nme1,nme2,nme3,tem : string[30];

Begin

        Clrscr;

                Writeln(‘ให้พิมพ์ชื่อคน  3  ชื่อ : 30’);

                Write(‘คนที่  1  ชื่อ’ : 25);Readln(nme1);

                Write(‘คนที่  2  ชื่อ’ : 25);Readln(nme2);

                Write(‘คนที่  3  ชื่อ’ : 25);Readln(nme3);

                IF  nme1 > nme2  THEN

                        Begin   tem := nme1;

                                nme1 := nme2;

                                nme2 := tem;

                        End;

                IF  nme2 > nme3  THEN

                        Begin   tem := mne2;

                                nme2 := nme3;

                                nme3 := tem;

                        End;

                IF  nme1 > nme2  THEN

                        Begin   tem := nme1;

                                nme1 := nme2;

                                nme2 := tem;

                        End;

                Clrscr;

                Writeln(‘ชื่อที่เรียงลำดับแล้วคือ’ :25);

                Writeln(nme1, ‘   ‘  ,nme2, ‘   ‘ ,nme3);

                Readln;

End.

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

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